Главная страница
    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.46 MB
Время: 0.04 c
15-1138195910
Petr V. Abramov
2006-01-25 16:31
2006.02.12
Хочу создать ветку


15-1138025797
stud
2006-01-23 17:16
2006.02.12
удаление нортон антивирус


1-1137485328
medvedenator
2006-01-17 11:08
2006.02.12
ПОМОГИТЕ!!!!


4-1132864804
Максим
2005-11-24 23:40
2006.02.12
Сканирование папки


15-1138119168
Pazitron_Brain
2006-01-24 19:12
2006.02.12
Помогите зарегистрировать домен





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский