Пишу прогу для просотра информации графических изображений и мне надо получит размер файла.
Вот код:
Код:
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 текстовым? - объясните.