|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2006, 15:00 | #1 |
Пользователь
Регистрация: 19.12.2006
Сообщений: 18
|
Сохранение в TXT фйл
Как текст из Edit'ов (здесь их 2) сохранит в тестовой файл на разных строчках, а потом открыть в первый Edit
первую строку,а во второй вторую? Заранее благодарен. |
20.12.2006, 15:15 | #2 |
Регистрация: 16.12.2006
Сообщений: 4
|
Долго писать в Библии Делфи подробно рассматрено это все
|
20.12.2006, 15:17 | #3 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Примерно так:
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
20.12.2006, 15:35 | #4 |
Регистрация: 16.12.2006
Сообщений: 4
|
или вот так
procedure TForm1.FormActivate(Sender: TObject); // для примера var f:tstringlist; f0:tfilestream; if not FileExists('c:\date.txt') then begin f0:=tfilestream.Create('c:\date.txt ',fmcreate );// создаем файл f0.Free; f:= TStringList.Create(); f.Add(Edit1.Text); // <- добавить новую строку в файл f.SaveToFile('c:\date.txt'); f.Free; // а читать из файла f:= TStringList.Create(); f.LoadFromFile('с:\filename.txt'); // f.strings[0] // это и будет твоя первая строка из файла |
20.12.2006, 15:41 | #5 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Это конечно несколько сложнее, но тоже вариант. Что выбрать - решать M@rsel'у. Основное отличие в том, что в моем варианте файл создается каждый раз поновой, а в твоем используетя существующий. И где он очищается? Онведь будет писать и писать, а как же стирать?
ICQ: 5311314
[SIGPIC][/SIGPIC] Последний раз редактировалось AVer; 20.12.2006 в 15:43. |
22.12.2006, 16:03 | #6 | |
Пользователь
Регистрация: 19.12.2006
Сообщений: 18
|
Спосибо только у меня почему-то
здесь Цитата:
Left side cannot assign to |
|
22.12.2006, 16:12 | #7 | ||
Форумчанин
Регистрация: 20.12.2006
Сообщений: 135
|
Цитата:
Это чтение, а сохранить можно так Цитата:
writeln('Hello Dude!!!');
Последний раз редактировалось -=DeS=-; 22.12.2006 в 16:19. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сохранение | Патрон | Общие вопросы Delphi | 21 | 14.12.2008 14:23 |
сохранение | 1234 | Общие вопросы Delphi | 11 | 30.08.2008 11:47 |
TClientSocket - сохранение | JRcoker | Общие вопросы Delphi | 4 | 03.08.2008 00:37 |
Сохранение страницы | Патрон | PHP | 3 | 28.03.2008 00:00 |
Сохранение | Lonix | Общие вопросы Delphi | 1 | 22.04.2007 00:15 |