Einzelnen Beitrag anzeigen

Rapthor

Registriert seit: 30. Nov 2002
139 Beiträge
 
#1

FileSize arbeitet ungenau oder ?

  Alt 15. Sep 2003, 15:08
Hallo,
hab ne IF Anweisung, die eine bestimmte Datei löschen soll, wenn sie leer ist (also 0 Bytes). Wenn ich allerdings folgendes aufrufe, löscht er mir in jedem Falle die Datei, egal ob da ein paar Zeichen drin stehen oder nicht:

Delphi-Quellcode:
   Assign(aktuellS, 'Aktuell.ini');
   Reset(aktuellS);
   if FileSize(aktuellS) = 0 then
      begin
        CloseFile(aktuellS);
        DeleteFile('Aktuell.ini');
      end
      else CloseFile(aktuellS);
Ist die Anweisung nur KB - genau ?
  Mit Zitat antworten Zitat