Forum: Programmieren allgemein
by omata,
18. Aug 2008
Ok, für mich war so etwas nie entscheident.
Forum: Programmieren allgemein
by omata,
18. Aug 2008
Nichts anderes macht assignfile + rewrite + closefile.
Forum: Programmieren allgemein
by omata,
18. Aug 2008
Ups, habe ich korrigiert.
Forum: Programmieren allgemein
by omata,
18. Aug 2008
procedure CreateEmptyFile(Dateiname:string);
var Datei:textfile;
begin
try
assignfile(Datei, Dateiname);
rewrite(Datei);
finally
closefile(Datei);
end;
end;
Forum: Programmieren allgemein
by omata,
18. Aug 2008
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;