02-06-2011, 02:49 AM
نعم اخى الكود يعمل لكن تلك الرسال تخرج فى الاسفل غيرت فى الداله قليلا تخلصت منها لكن لا زلت لا اعرف ماذا يعنى ذلك الخطا
كود :
function size(f: string):integer;
var
handle: integer;
begin
handle := FileOpen(f, fmOpenRead);
if handle = -1 then
result:=0
else
begin
try
result:=FileSeek(handle,int64(0),2);
finally
FileClose(handle);
end;
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
if OpenDialog1.Execute then
begin
k:=size(OpenDialog1.FileName);
ShowMessage(IntToStr(k));
end;
end;
end.