Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c