Текущий архив: 2003.02.13;
Скачать: 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 вся ветка
Текущий архив: 2003.02.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
