Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Едиты и текст   Найти похожие ветки 

 
Opera   (2003-02-26 01:34) [0]

Есть edit1, edit2, button1, button2. Помогите! Пример:
По нажатию button1
создается файл с названием из edit1
(если в edit1 "file.txt" создается файл с названием file.txt).
В этот файл должно сохранятся что в edit2
(если в edit2 "qwe" то в файл сохраняется "qwe").
А по нажатию button2 в edit2 появляется текст из файла который предварительно указан в edit1.
(например в edit1 "file.txt" после нажатия button2 в edit2 появляется содержимое "file.txt")!
Всем заранее благодарен!
Спасибо за ответы!


 
Palladin   (2003-02-26 01:47) [1]

то есть просто ответ на вопрос "как писать и читать текстовые файлы?" нас уже не устраивает...
ладно...


procedure SaveStringToFile(p_strFileName,p_strValue:string);
var
f:textfile;
begin
AssignFile(f,p_strFileName);Rewrite(f);
writeln(f,p_strValue);
CloseFile(f);
end;

function ReadStringFromFile(p_strFileName:string):string;
var
f:textfile;
begin
AssignFile(f,p_strFileName);Reset(f);
Readln(f,result);
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
WriteStringToFile(Edit1.Text,Edit2.Text);
end;

procedure TForm1.Button2Click(Sender:TObject);
begin
Edit2.Text:=ReadStringFromFile(Edit1.Text);
end;


писал прямо тут, соотвесно не тестировад...


 
Мыш   (2003-02-26 04:14) [2]

Я вот что заметил, чем более так сказать помягче... маразматический вопрос, тем больше вероятность получить на него даже кусочек кода от кутюр. А вот в случае реальных проблем, народ начинает говорить намеками.
Это я не не со зла, просто забавно :)

Сорри за оффтоп.


 
Palladin   (2003-02-26 05:14) [3]


> Мыш (26.02.03 04:14)

Ты обрати внимание как человек подробно описал что он хотел! :)
За такие старания можно и код от "кутюр"...


 
Opera   (2003-02-26 06:51) [4]

Спасибо Palladin!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.041 c
1-16989
Nehto
2003-02-22 01:01
2003.03.06
TabOrder


1-16997
jinn
2003-02-23 15:20
2003.03.06
нахождение нужной суммы в списке чисел


7-17411
ychnik
2003-01-05 16:16
2003.03.06
Работа с буфером


1-17161
Radion
2003-02-23 17:30
2003.03.06
А как, с помошю цикла, наити самое большое число в Массиве?


3-16877
Брат
2003-02-14 13:34
2003.03.06
Проблема с просмотром VIEW





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский