Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.009 c
