![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
Advanced Member ![]() ![]() ![]() Группа: Members Сообщений: 168 Регистрация: 13.9.2006 Пользователь №: 26251 ![]() |
Кто знает, подскажите пожайлуста, как сделать, чтобы написанные данные в Edit пи нажатии buttion сохранялись на компьютере ввиде текста. Зараннее ОГРОМНОЕ спасибо :-)
|
|
|
![]() |
![]()
Сообщение
#2
|
|
Junior Member ![]() Группа: Members Сообщений: 27 Регистрация: 25.3.2006 Пользователь №: 29373 ![]() |
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile; begin assignfile(f,'c:/111.txt'); Rewrite(f); Writeln(f,edit1.text); Closefile(f); end; На форме находится Кнопка и Поле ввода Edit, тескт из Edit1 копируется в файл 111.txt на диске C:/ P.S. Имена элементов я не менял...так что там все по умолчанию... |
|
|
![]() ![]() |
Текстовая версия | Сейчас: 20th June 2025 - 02:05 |