txt datei leer?

[cRayZo]

wie kann ich am schnellsten prüfen, ob eine .txt Datei leer ist, also keine Buchstaben/zahlen/Sonderzeichen drin sind?

ich hätte es jetzt so ähnlich gemacht

Delphi-Quellcode:

var F:File; sl:stringlist; begin 
assingfile(F,Pfad)
sl.crate;
sl.loadfromfile(Pfad);

aber wie kann ich am leichtesten Prüfen ob etwas drin ist?
ich habe mir überlegt, dass es doch eigentlich um einiges leichter sein würde, wenn ich prüfe, ob die txt datei 0byte groß ist, aber wie kann ich das prüfen?

Delphi-Quellcode:

//so bisher txt dateien erstellt:
if not FileExists('pfad\x.txr')
         then CreateTextFile2('pfad\x.txt');

aber selbst wenn ich es so mache, wenn ich eine txt erstelle ist sie immer 2byte groß, weil sieimmer einen Zeilenumbruch drin hat.
Wie bekomme ich den schon während des erstellens raus?

[mkinzler]

Zitat:

sl := TStringList.Create;

statt

Delphi-Quellcode:

sl.crate;

[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;

[cRayZo]

super vielen Dank omata!
weiß jemand noch wie ich das Problem mit dem erstellen von den txts lösen kann, sodass sie ohne Zeilenumbruch erstellt werden?
sprich 0 byte?

Delphi-Quellcode:

//so bisher txt dateien erstellt: 
if not FileExists('pfad\x.txr') 
         then CreateTextFile2('pfad\x.txt');

aber es ist halt immer ein Zeilenumbruch entstanden

[omata]

Delphi-Quellcode:

procedure CreateEmptyFile(Dateiname:string);
var Datei:textfile;
begin
  try  
    assignfile(Datei, Dateiname);
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;

[mkinzler]

Am Ende der Datei oder wo?

[cRayZo]

danke omata, echt klasse^^
nur bei deinem Code vom lesen ob die Datei leer ist fehlt der Ergebnistyp, ich bin zu blöd dafür, kannst du mir da pls noch helfen?

[omata]

Ups, habe ich korrigiert.

[Luckie]

Warum nicht einfach CreateFile benutzen und nichts reinschreiben?

[omata]

Nichts anderes macht assignfile + rewrite + closefile.