| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Фйлы и edit [D5, Win95/98, WinME]

Diod ©   (2003-02-02 07:33:00) 

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

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

---

Shatun   (2003-02-04 11:52:00) [1]

Просто по 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;
/

---

uw   (2003-02-02 09:29:00) [2]

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;

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

---

Наверх