Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
Как получить текст ошибки и сохранить его в файл. Найти похожие ветки
← →
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;
← →
Сайбель Алексей © (2006-01-26 09:52) [4]Ветка недавно была, узнать где именно произошла ошибка:
http://delphimaster.net/view/1-1138114582/
← →
Kot_ (2006-01-26 10:12) [5]Спасибо
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
