VPF::Application.exeName и OpenDialog - Форум программистов

MaxxSoftware

Дата 27.5.2005, 07:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Такая ситуация: в програме пишутся логи различный действий... Пишутся в файл такой то который лежит около ЕХЕ приложения
Пишу так:

Код


procedure  WriteImportReport(lfText: string;mType:string);
var
  LogFile: TextFile;
  lfName: ShortString;
begin
  lfName := ExtractFileName(Application.ExeName);
  lfName := ChangeFileExt(lfName, '.ErorImport.log');
  AssignFile(LogFile, lfName);
  if FileExists(lfName) then
    Append(LogFile)
  else
    Rewrite(LogFile);
  Writeln(LogFile, Format('%s => %s', [mtype, lfText]));
  Flush(LogFile);
  CloseFile(LogFile);
end;

Все бы ОК, но когда в проге открывается OpenDialog и выбирается какой то файл, то лог пишится туда где лежит последний открытый файл... вот за фак???
Чо такое? =)

SPrograMMer

Дата 27.5.2005, 08:45 (ссылка)

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

Загрузка ...

Спамер :)

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

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

OpenDialog изменяет ТЕКУЩИЙ каталог. А у тебя пути относительные - только имя файла, поэтому они и сохраняются втекущем кактлоге, который является тем, который был в Dialog`е. Вместо относительных имен файлов используй полные, используй ParamStr(0) или Application.ExeName, для определения пути к каталогу где содержится программа, и как путь выделешь сохраняй лог в файл следующего формата: путь_к_каталогу + имя_файла

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

животное = зверь
законченный гентушник

Snowy

Дата 27.5.2005, 09:07 (ссылка)

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

Загрузка ...

Эксперт

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

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

Проще говоря:

Код


lfName := ChangeFileExt(ParamStr(0), '.ErorImport.log');

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