关于FileSize的小问题-优快云博客

本文讨论了在Delphi环境下使用Windows SDK API获取文件大小时遇到的类型不兼容错误，并提供了一个有效的解决方案。通过调整变量类型和使用正确的文件操作方法，可以成功读取并显示文件的大小。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

关于FileSize的小问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061208135104222.html
AssignFile(f,getPath+'\'+filename);
Reset(f);
size:=FileSize(f);
我想获得文件大小。
最后一句老报错[Error] u_share.pas(452): Incompatible types: 'String' and 'Text'
写在一个新的工程里就没有问题
不知道怎膜回事？

procedure TForm1.Button1Click(Sender: TObject);

var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
end;

看看列子吧估计你f定义的有问题