Einzelnen Beitrag anzeigen

cRayZo

Registriert seit: 30. Jul 2007
156 Beiträge
 
Delphi 6 Personal
 
#1

txt datei leer?

  Alt 18. Aug 2008, 21:57
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?
  Mit Zitat antworten Zitat