Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c