Как получить текст ошибки и сохранить его в файл.

← →
Kot_ (2006-01-26 08:33) [0]

Доброго времени суток. Вопрос следующий:
Допусти в Runtime, произошла ошибка, и программа выдала сообщение «Table is busy», как сохранить этот текст в лог файл?

← →
stone © (2006-01-26 09:41) [1]

отловить текст ошибки можно в блоке try...except
что ты понимаешь под словами лог файл? Обычный текстовый файл или системный лог?
Если обычный файл, можно так
procedure WriteLog(FileName, LogMessage: string); var F: TextFile; begin AssignFile(F, FileName); try if not FileExists(FileName) then Rewrite(F); Append(F); Writeln(F, LogMessage); finally CloseFile(F); end; end;

← →
TUser © (2006-01-26 09:51) [2]

> отловить текст ошибки можно в блоке try...except

try

....

except
on E: Exception do
SaveTextToFile (E.Message);
end;

← →
TUser © (2006-01-26 09:52) [3]

Лучше, наверное, так

try

....

except
on E: Exception do begin
SaveTextToFile (E.Message);
raise;
end;
end;

Ветка недавно была, узнать где именно произошла ошибка:
http://delphimaster.net/view/1-1138114582/

← →
Kot_ (2006-01-26 10:12) [5]

Спасибо

Как получить текст ошибки и сохранить его в файл. Найти похожие ветки