txt datei leer?

[omata]

Delphi-Quellcode:

function isEmpty(Dateiname:string):boolean;
var Datei:file of byte;
begin
  try
    assignfile(Datei, Dateiname);
    reset(Datei)
    Result:=(filesize(Datei) = 0);
  finally
    closefile(Datei);
  end;
end;