Dateigröße von einer Textdatei ermitteln

[Hercules]

Hallo,
ich wollte wissen, ob eine Textdatei leer ist. Dazu habe ich mir zwei Variablen deklariert:

Code: Alles auswählen

FTXT: Textfile;
SIZE: Integer;

Mit den Befehlen

Code: Alles auswählen

AssignFile(FTXT, 'DATEI.TXT');
SIZE := FileSize(FTXT)

konnte ich mir in Delphi immer die Dateigröße nach SIZE holen. Mit Lazarus geht das nicht mehr.
Fehlermeldung:
Unit1.pas(812,22) Error: Call by var for arg no. 1 has to match exactly: Got "Text" expected "File"
Kann mir da jemand helfen ?
Gruß Hercules und noch einen schönen sonnigen Tag.

[indianer-frank]

Das funktioniert auch in Delphi nicht, da die Datei für Filesize geöffnet sein muß. Also mindestens so

Code: Alles auswählen

AssignFile(FTXT, 'DATEI.TXT');
reset(ftxt);
SIZE := FileSize(FTXT);

Dann erhälst Du allerdings die falsche Länge, da mit Recordgröße=128 gerechnet wird, und reset(ftxt,1) geht auch nicht. Wenn Du nur die Länge einer Datei haben will, mußt Du die Variable ja nicht als Text deklarieren. Dies läuft unter Delphi und FPC/Lazarus:

Code: Alles auswählen

var
FTXT: file;
SIZE: Integer;
begin
Assign(FTXT, 'DATEI.TXT');
reset(ftxt,1);
SIZE := FileSize(FTXT);

oder besser: Du benutzt findfirst aus SysUtils und TSearchRec.size und sparst Dir die Filevariable und das Reset:

Code: Alles auswählen

var
  ts: TSearchRec;
begin
if findfirst('DATEI.TXT', faAnyFile, TS)=0 then begin
   writeln('FF: ', ts.size);
end;

[Hercules]

Hallo Frank,
vielen Dank, mit
FTXT: File;
hat das funktioniert.
Danke und schönen Abend noch.
Gruß Hercules.

[mschnell]

IMHO: Mehr "Pascal-Like":

Code: Alles auswählen

sl := TStringlist.create(Filename, fmread);  // (oder so ähnlich)
if sl.count = 0 then ....

-Michael

[theo]

@mschnell: Was ist denn das nu wieder? TStringList kann man nicht mit Parametern createn.
Manchmal frage ich mich echt, warum du einen Beitrag schreibst, wenn du k.A. hast. Bzw. wie man nach gefühlten hundertausend Beiträgen immer noch k.A. haben kann.

Was einfach wäre:

Code: Alles auswählen

uses FileUtil;
FileSize(FileName);

[Hercules]

Hallo Theo,
war die letzten Tage nicht in der Firma, deshalb erst heute eine Anwort auf Deinen Beitrag.
Vielen Dank.
Ich habe folgende Befehle geschrieben:

Code: Alles auswählen

uses FileUtil;
FLGR: Integer;
FLGR := FileSize(FileName);

Danach habe ich in FLGR irgend einen Wert erwartet.
Aber der war immer Null (0).
Mach ich da noch was falsch, oder habe ich das noch nicht verstanden ?

Grußß, Hercules

[mschnell]

@mschnell: TStringList kann man nicht mit Parametern createn.

Ich sach ja: "oder so ähnlich". Ich meine natürlich TStringlist kreieren und mit LoadFromFile an eine Datei koppeln. Da TStringlist dies angesagte Methode ist, um mit Textdateien umzugehen, könnte man das auch hier so machen. Es war ja explizit nach Textdatei gefragt und nicht nach beliebiger Datei (keine Ahnung warum).

-Michael

[baba]

Hallo Theo,
war die letzten Tage nicht in der Firma, deshalb erst heute eine Anwort auf Deinen Beitrag.
Vielen Dank.
Ich habe folgende Befehle geschrieben:

uses FileUtil;
FLGR: Integer;
FLGR := FileSize(FileName);
Danach habe ich in FLGR irgend einen Wert erwartet.
Aber der war immer Null (0).
Mach ich da noch was falsch, oder habe ich das noch nicht verstanden ?

Grußß, Hercules

Du hast FileName schon durch einen echten Dateinamen ersetzt? Oder?

Wie wäre es mit einem FileExists(filename)

Baba.

[code=laz][/code]

[theo]

Mach ich da noch was falsch, oder habe ich das noch nicht verstanden ?

Müsste klappen, wenn in FileName ein existierender/gültiger Dateipfad steht.
Bis du unter Win und hat dein Dateipfad Umlaute oder sonstigen Schrott drin?

[indianer-frank]

Ich sach ja: "oder so ähnlich". Ich meine natürlich TStringlist kreieren und mit LoadFromFile an eine Datei koppeln. Da TStringlist dies angesagte Methode ist, um mit Textdateien umzugehen, könnte man das auch hier so machen. Es war ja explizit nach Textdatei gefragt und nicht nach beliebiger Datei (keine Ahnung warum).

Wieder falsch! Damit ergibt sich nur die Anzahl der Zeilen, aber nicht die Dateigröße.

[carli]

Ich sach ja: "oder so ähnlich". Ich meine natürlich TStringlist kreieren und mit LoadFromFile an eine Datei koppeln. Da TStringlist dies angesagte Methode ist, um mit Textdateien umzugehen, könnte man das auch hier so machen. Es war ja explizit nach Textdatei gefragt und nicht nach beliebiger Datei (keine Ahnung warum).

Wieder falsch! Damit ergibt sich nur die Anzahl der Zeilen, aber nicht die Dateigröße.

Und nebenbei gesagt ist das ziemlich mit Kanonen auf Spatzen geschossen, die komplette Datei einzulesen, nach Zeilenenden zu trennen und in eine Klasse zu stopfen, bloß um herauszufinden, dass die Zeilenanzahl 0 ist.

[Maik81ftl]

Hab die hier mal grade so richtig durchgelesen, und mußte innerlich lachen Dateigrößenabfrage hab ich mal für ein Kopierschutz verwendet^^ das Teil lief auch Sehr gut, nur mit den Unterschied, das eine änderung von einen bit das ganze Programm löschte ^^

mal sehen, ob ich die zeilen noch finde und in eine Abfrage auf "leer" umändere.

[Hercules]

Hallo baba, hallo theo,
der FileName hat gestimmt, das war schon so OK.
Aber: Ich hatte die Datei in der gleichen Anwendung noch als
Textdatei geöffnet, z.B

Code: Alles auswählen

F: TextFile.
AssignFile(F,'Datei.txt');
Reset(F);

Erst nachdem ich die mit CloseFile(F) geschlossen hatte
wirkte FLGR := FileSize('Datei.txt');
und die Füllung wurde mir in FLGR angezeigt.
Vielen Dank für den Hinweis, hat was gebracht.
Schönen Tag noch,
Hercules.

[pluto]

Ich weiß jetzt nicht mehr wie genau die Funktion heißt ob GetFileSize oder nur FileSize. Jedenfalls wird sie mit einem Dateinamen als Parameter aufgerufen und liefert die Größe in byte zurück.
In den Internet Foren gibt es sehr viele Funktionen, mit den man diese Byte umrechnen kann auf MB oder GB und der gleichen. Bei einigen kann man sogar bestimmen ob durch 1024 oder durch 1000 gerechnet wird(Also entweder MB oder MiB).

[Maik81ftl]

Ich weiß jetzt nicht mehr wie genau die Funktion heißt ob GetFileSize oder nur FileSize. Jedenfalls wird sie mit einem Dateinamen als Parameter aufgerufen und liefert die Größe in byte zurück.
In den Internet Foren gibt es sehr viele Funktionen, mit den man diese Byte umrechnen kann auf MB oder GB und der gleichen. Bei einigen kann man sogar bestimmen ob durch 1024 oder durch 1000 gerechnet wird(Also entweder MB oder MiB).

FileSize ist diese Function. eine GetFileSize wäre mir wirklich neu.