Функция возраста файла

[romanzi]

Написал код, не могу понять в чём ошибка, на каждом файле, который я открываю стоит "3.5.1980 11:03:32"

function GetFileDateTime(filename: string): TDateTime;
var
intFileAge: LongInt;
begin
if intFileAge = -1 then
Result := 0
else
Result := FileDateToDateTime(intFileAge);
end;


procedure TForm2.Label1Click(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(GetFileDateTime(opendialog1.FileName));
end;

[Arigato]

А чего это Вы читаете переменную intFileAge, значение которой не инициализировано?

[romanzi]

Не инициализировано?
Где?

[russian-stalker]

Забыли:
intFileAge := FileAge(fileName);
В начале функции.

[phomm]

на слове FileDateToDateTime жмем F1, читаем, видим что предлагают использовать значения, возвращаемые функциями filegetdate или fileage. вам больше подходит fileage , инициализировать так - intFileAge := fileage(filename); а потом уж и проверяйте и прочее

Упд. опередили меня ))

[Stilet]

В функции. Она описана но ей ничего не присвоено.

var
intFileAge: LongInt;
begin
if intFileAge = -1 then