[Ross]

Пишу прогу для просотра информации графических изображений и мне надо получит размер файла.
Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
PicFile : file of Real;
pic : Cardinal;
picsize : Integer;
begin
//-----------------------------------
AssignFile(PicFile, OpenPictureDialog1.FileName);
Reset(PicFile);
//----------------------------------

picsize :=GetFileSize(PicFile, NULL);

Edit1.Text := FloatToStr(picsize);
CloseFile(PicFile);
end;

А этот гад ругается -
incompatible typse: 'Cardinal' and 'Text';
Поочему он счетает PicFile текстовым? - объясните.