Как перехватить ошибку в приложении?

← →
St74 (2006-01-04 19:07) [0]

Здравствуйте Уважаемые!
Как мне перехватить ошибку "Неверный аргумент для преобразования в дату" появляющуюся при
запуске программы, но не появляющуюся при запуске программы с помощью клика по файлу
созданному данной программой!

...
var
Str: string;
i: Integer;
begin
if (ParamCount > 0) then
begin
Str := ParamStr(0);
for i := 2 to ParamCount do
begin
Str := Str + "" + ParamStr(i);
end;
RxRichEdit2.Lines.LoadFromFile(lfn(ParamStr(1)));
MyProg.Caption := "На данный момент открыт фаил - " + (lfn(ParamStr(1)));
end;
MyProg.KeyPreview := True;
label5.Caption := IntToStr(GetFileSize(ParamStr(1))) + " байт";
GetFileDate(ParamStr(1)); // вот тут если ошибка потушить её
end;
...

← →
begin...end © (2006-01-04 19:11) [1]

try
GetFileDate(ParamStr(1))
except
// Обработка ошибки
end

← →
St74 (2006-01-04 20:06) [2]

> begin...end © (04.01.06 19:11) [1]

Вот так нормально или нет!
...
try
GetFileDate(ParamStr(1));
except
// Обработка ощибки "Неверный аргумент для преобразования в дату"
// возникающую при запуске программы!
on EConvertError do
exit;
end
...

← →
begin...end © (2006-01-04 20:32) [3]

> St74 (04.01.06 20:06) [2]

Не знаю я. Мне неизвестно, что представляет из себя подпрограмма GetFileDate, поэтому я не знаю, какие исключения могут в ней возникать.

← →
St74 (2006-01-04 22:29) [4]

> Мне неизвестно, что представляет из себя подпрограмма GetFileDate

function GetFileDate(FileName: string): string;
var
FHandle: Integer;
begin
FHandle := FileOpen(FileName, 0);
try
result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

← →
Virgo_Style © (2006-01-04 23:00) [5]

и охота же функции в форум копипастить вместо того, чтобы написать три строчки и проверить,

> нормально или нет

← →
St74 (2006-01-04 23:13) [6]

> Virgo_Style © (04.01.06 23:00) [5]

ЗвЫнЯйТе! Но кто акромя вас уважаемых поможет и вразумит!

> GetFileDate(ParamStr(1)); // вот тут если ошибка потушить её

Я может и глупость спрошу, но не понимаю на кой фиг вызывать функцию, если возвращаемое значение её нафиг никому не нужно, учитывая то, что функция только и делает, что возвращает это значение?

> Плохиш ©

"появляющуюся при
запуске программы, но не появляющуюся при запуске программы с помощью клика по файлу
созданному данной программой!"

Судя по всему, автор вообще не знает, зачем нужет этот кусок кода и что он означает.
Видимо, или дорабатывает чужую программу, или взял готовый чужой код для своей.

АВТОРУ
Надо сначала проверить, есть ли вообще параметр запуска, если нет - сразу выходить из обработчика.
Переписать нафиг этот самый GetFideDate, чтобы не поднимал исключение.
Думаю, так

← →
St74 (2006-01-05 14:34) [9]

> Гаврила © (05.01.06 01:47) [8]

Здря! Функция для определения размера файла!(Функция для определения последнего изменения файла)

Как перехватить ошибку в приложении? Найти похожие ветки