Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2010, 20:55   #1
Волчица
Пользователь
 
Аватар для Волчица
 
Регистрация: 12.11.2008
Сообщений: 12
По умолчанию Delphi. Сохранение в текстовый документ.

Есть Edit1 и Label1 их содержимое нужно записать в текстовый файл. (По возможности туда же записать текущее время и дату).
Волчица вне форума Ответить с цитированием
Старый 28.04.2010, 21:04   #2
kakawkin
Форумчанин
 
Регистрация: 21.09.2009
Сообщений: 431
По умолчанию

Program primer;
Var f1:text;
Begin
Assign(f1, ‘file1.txt’);
Rewrite(f1); {открываем файл для записи}
writeln(f1,Edit1.Text);
writeln(f1,Label1.Caption);
end;
end.
kakawkin вне форума Ответить с цитированием
Старый 28.04.2010, 21:11   #3
Quadro_O
Пользователь
 
Регистрация: 21.04.2010
Сообщений: 16
По умолчанию

SaveDialog используй... Например по клику на кнопку. Время не помню как узнать :P

З.Ы: Использование Savedialog1
Код:
begin
if savedialog1.Execute then
Edit1.Text.Savetofile(Savedialog1.Filename);
Savedialog1.FreeOnRelease;
end.
А как дополнить не знаю : \

Последний раз редактировалось Quadro_O; 28.04.2010 в 21:15.
Quadro_O вне форума Ответить с цитированием
Старый 28.04.2010, 21:14   #4
Волчица
Пользователь
 
Аватар для Волчица
 
Регистрация: 12.11.2008
Сообщений: 12
По умолчанию

Если не ошибаюсь, Rewrite каждый раз будет перезаписывать файл. А мне нужно дополнять.
Волчица вне форума Ответить с цитированием
Старый 28.04.2010, 21:18   #5
kakawkin
Форумчанин
 
Регистрация: 21.09.2009
Сообщений: 431
По умолчанию

Процедура Append( var f: Text )
служит для специального открытия выходных файлов. Она применима к уже существующим физическим файлам и открывает из для дозаписи в конец файла.

Тоесть как я понял будет за место переменной Rewrite стоять вот эта - Append
kakawkin вне форума Ответить с цитированием
Старый 29.04.2010, 01:44   #6
Vikenty
Заслуженный флудер
Участник клуба
 
Аватар для Vikenty
 
Регистрация: 31.03.2010
Сообщений: 1,473
По умолчанию

время можно узнать функцией GetSystemTime
Vikenty вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выгрузка из Эксель в текстовый документ без разделителей... igoryava Microsoft Office Excel 19 24.03.2015 13:44
Как откомпилировать текстовый документ Vitalyir84 Общие вопросы Delphi 9 15.02.2010 23:07
имена файлов в текстовый документ Mobile™ Операционные системы общие вопросы 7 02.11.2009 23:41
Вставка картинок в текстовый документ PONKA Общие вопросы Delphi 0 04.02.2009 12:54
Как с помощью Delphi открыть/сохранить/удалить текстовый документ SeRhy Помощь студентам 4 02.11.2007 20:27