![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); begin assignfile(t1,'D:\testdelphi2.txt'); reset(t1); a:=edit1.Text; b:=edit2.Text; writeln(t1,a); //writeln(t1,b); closefile(t1); end; end. ![]() ![]() |