[AlexSoft]

Код:

function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin
try
FS := TFilestream.Create(Filename, fmOpenRead); //вот в этой строчке выдает ошибку "Cannot open file..."
except
Result := -1;
end;
if Result <> -1 then Result := FS.Size;
FS.Free;
end;

[YVitaliy]

Как правильно открыть/прочитать файл с помощью TFileStream

Верно задать имя файла. Функция верна кажись.

[AlexSoft]

Сообщение от YVitaliy

Верно задать имя файла. Функция верна кажись.

Имя файла верное.

[YVitaliy]

Всегда заставляют аттачить:

[AlexSoft]

Сообщение от YVitaliy

Всегда заставляют аттачить:

Спасиб! Я разобрался в своей ошибке.