Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.034 c
5-1124617599
capkoh
2005-08-21 13:46
2006.02.12
Обновить одновременно?


6-1131019600
nikk
2005-11-03 15:06
2006.02.12
Получение папок локального компа


15-1137764402
Харько
2006-01-20 16:40
2006.02.12
Я электризуюсь. Ужос!


4-1133180965
zaN0za
2005-11-28 15:29
2006.02.12
Вопрос по NtQuerySystemInformation


15-1137621772
Евгений111111111
2006-01-19 01:02
2006.02.12
Помогите. Табличный интеграл от 1/(x^2 + 1) чему равен?