VPF::WriteLn() не пишет в txt-файл - Форум программистов

malor

Дата 16.7.2011, 14:46 (ссылка)

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

Загрузка ...

Опытный

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

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

Внутри функции FormCreate ;

Код

  AssignFile(fLogKB, pathLogKB);
  Rewrite(fLogKB);
  //Append(fLogKB);

  WriteLn(fLogKB, 'record');

В другом файле объявлены переменные:

Код

const pathLogKB: AnsiString         = 'D:\VM_remote\LogKB.txt';
var fLogKB: Textfile;

Файл остается пустым. Почему?

Delphi XE

Keeper89

Дата 16.7.2011, 15:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Надо бы

Код


CloseFile(fLogKB);

добавить.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CodeMonkey

Дата 19.7.2011, 08:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

А что вы ожидаете увидеть в Watch-е?

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

bems

Дата 23.7.2011, 13:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

malor, а в watch list нужно добавлять TTextRec(fLogKB)

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

Обижено школьников: 8

GydruS

Дата 27.7.2011, 13:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Давным-давно была такая проблема.
Решил явным указанием, откуда брать процедуру:

Код


system.Writeln(...);

northener

Дата 27.7.2011, 23:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(GydruS @ 27.7.2011, 13:09

)

Давным-давно была такая проблема.
Решил явным указанием, откуда брать процедуру:

А что Write & Writeln ещё где-то прописаны в стандартной поставке Дельфи?
smile

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

GydruS

Дата 28.7.2011, 09:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(northener @ 27.7.2011, 23:55)

А что Write & Writeln ещё где-то прописаны в стандартной поставке Дельфи?
smile

Да. Например, в компонентах инди (сокеты). И если пытаться обратиться к WriteLn в методе, связанном с такими компонентами, то это породит сию проблему.
Наберите writeln в IDE и нажмите F1 - там еще есть варианты.
Конечно, в чистом новом проекте такой беды не будет...
smile

northener

Дата 30.7.2011, 01:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(GydruS @ 28.7.2011, 09:29

)

Да. Например, в компонентах инди (сокеты).

Бред полный! :(
Слава богу, что в эпоху Д1 Инди ещё не было!

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

ZaDoXliK

Дата 1.8.2011, 13:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(malor @ 16.7.2011, 12:46)

Внутри функции FormCreate ;

Код

  AssignFile(fLogKB, pathLogKB);
  Rewrite(fLogKB);
  //Append(fLogKB);

  WriteLn(fLogKB, 'record');

В другом файле объявлены переменные:

Код

const pathLogKB: AnsiString         = 'D:\VM_remote\LogKB.txt';
var fLogKB: Textfile;

Файл остается пустым. Почему?

Delphi XE

Код


var
F:TextFile
...
AssignFile(F,'C:\Log.txt');//Назначаем файл
If FileExists('C:\Log.txt') then Append(F) else Rewrite(F);//проверяем наличие файла. если есть то дописываем если нет то создаём и пишем.
WriteLn(F,'какой ни будь текст');//добавляем нужный нам текст
CloseFile(F);//закрываем файл

Так будет работать.

У меня сразу встречный вопрос есть.
Как добиться того чтобы путь к файлу был не строгий?
вот пример рабочего кода:

Код


...
Assign(F,'C:\Windows\!Logs\key.txt');
if FileExists('C:\Windows\!Logs\key.txt') then Append(F) else Rewrite(F);
Writeln(F,Key);
CloseFile(F);

А вот так не хочет никак работать smile

Код


...
GetWindowsDirectory(WinDir,SizeOf(WinDir));
Assign(F,WinDir+'\!Logs\key.txt');
if FileExists(WinDir+'\!Logs\key.txt') then Append(F) else Rewrite(F);
Writeln(F,Key);
CloseFile(F);

В чём проблема то? smile

Может из за того что эти процедуры в dll используются?

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