VPF::Вывод в файл - Форум программистов

Black_Joker

Дата 26.12.2005, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

мне нужно вывести в ТХТ файл информацию.
Если использовать
var f: TextFile;

AssignFile(f, 'c:\111.txt');
То файл заполняется только после корректного завершения программы
Мне нужно чтобы файл заполнялся постоянно, а не зависимо от команды закрытия файла.

проблема возникла в связи с непонятным звисанием проги. Использовать memo не могу, т.к. форма перестает реагировать.

Пожалуйста опиште все действия. Как задать переменную, как реализовать вывод. smile

Snowy

Дата 26.12.2005, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Делай Flush(f); после записи строки в файл.

z-END

Дата 26.12.2005, 12:38 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

А вообще конечно надо лечить не симптомы а заболевание...

Цитата(Black_Joker @ 26.12.2005, 11:46)

проблема возникла в связи с непонятным звисанием проги. Использовать memo не могу, т.к. форма перестает реагировать.

имхо, надо решать эту проблему.

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

F1reF0x

Дата 27.12.2005, 02:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

Код


Var
  F: TStringList;
begin
  F:= TStringList.Create;
  F.Add('Test');
  F.SaveToFile('text.txt');
end;

Примерно так.

Albinos_x

Дата 27.12.2005, 02:36 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

F1reF0x
с каждым действие полностью переписывать файл, не самый лучший вариант....
и тогда уж:

Код


Var    
  F: TStringList;    
begin    
  F:= TStringList.Create;
  f.LoadFile('text.txt');    
  F.Add('Test');    
  F.SaveToFile('text.txt');
  f.free;    
end;

но, имхо, лучше юзать

Цитата(Snowy @ 26.12.2005, 12:14)

Делай Flush(f); после записи строки в файл.

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 27.12.2005, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Поставь на таймер такое действие:

Код


var
  f : TextFile;
begin
  if not FileExists('C:\text.txt') then begin
    AssignFile(f, 'C:\text.txt');
    Rewrite(f);
    CloseFile(f);
  end;
  AssignFile(f, 'C:\text.txt');
  Append(f);
  Writeln(f, '{записываем в файл}');
  CloseFile(f);
  Flush(f);
end;

Только Flush действует именно с TextFile, не вздумай в file задействовать!

--------------------

Ll 2

Romikgy

Дата 27.12.2005, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Guedda @ 27.12.2005, 15:00)

CloseFile(f);
Flush(f);

ВАУ ... зачем делать флаш после закрытия файла, при закрытии оно само выполняется, а после

Цитата(Guedda @ 27.12.2005, 15:00)

CloseFile(f);

ф не на что не указывает , в ашибку вывалимся,
Флаш применяют , что бы дослать буфер данных в файл , без его закрытия

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Guedda

Дата 27.12.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Да... Изняюсь... Немного ошибся smile

Спешка... Спешка... Да и кофе остывал =)

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »