Фйлы и edit

← →
Diod © (2003-02-02 07:33) [0]

Цель:
Есть 2 кнопки по нажатию button1 читается то что в файле 1.txt напрмер "Рот" и появляется в edit1. По нажатию на button2 читается то что в edit1 например "нос" и сохраняется в файл 1.txt

Помогите начинающему ламеру у которого пока нет книги с кодом!
Всем заранее благодарен за ответы!
Спасибо за внимание!
Жду код!
---------------------------DioD----

← →
uw © (2003-02-02 09:29) [1]

procedure TForm1.btReadNoseClick(Sender: TObject);
var
f: TextFile;
s: String;
begin//
AssignFile(f, "FileWithNose.txt");
Reset(f);
ReadLn(f, s);
CloseFile(f);
edNose.Text := s;
end;

Со ртом аналогично.

← →
Shatun (2003-02-04 11:52) [2]

Просто по button1click надо читать в Edit1, а по button2Click записывать в файл с Edit1.Text: если я правильно тебя понял примерно так {Процедура чтения из файла} procedure TForm1.Button1Click(Sender: TObject); var f: TextFile; begin AssignFile(f, "1.txt"); Reset(f); ReadLn(f, Edit1.Text); CloseFile(f); end; {Процедура записи в файл} procedure TForm1.Button2Click(Sender: TObject); var f: TextFile; begin AssignFile(f, "1.txt"); ReWrite(f); WriteLn(f, Edit1.Text); CloseFile(f); end; /

Фйлы и edit Найти похожие ветки