FileSize

Owned by Merve Yurdakul
Feb. 10, 2017
1 min read

Parameter

(var F : TFileClass) : Integer;

Beschreibung

FileSize gibt die Anzahl der Bytes in der geöffneten Datei F zurück.

Beispiel

try
  AssignFile(f, 'c:\FileName.txt');
  try
    Reset(f);
    size := FileSize(f);
    S := 'File size in bytes: ' + IntToStr(size);
  finally
    f.Free;
  end;
except
  ShowMessage('Exception');
end;

Beispiel

 var
  f : TFileClass;
begin
  //...
  try
    AssignFile(f, 'c:\FileName.txt');
    try
      Reset(f);
      size := FileSize(f);
      S := 'File size in bytes: ' + IntToStr(size);
    finally
      f.Free;
    end;
  except
    ShowMessage('Exception');
  end;
  //...
end;