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

Фйлы и 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;
/

---

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

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



Память: 0.45 MB
Время: 0.015 c