Fehler beim ermitteln der Dateigröße

[ferby]

Hallo,

ich will eine Funktion in einer eigene Unit schreiben, die ich bei bedarf einbinden kann.
Diese Funktion soll mir die Dateigröße einer Datei bestimmen.

Hier die Funktion

Delphi-Quellcode:

function FileSize(fn: TFileName): Integer;
var
  Datei: Textfile;
begin
  AssignFile(Datei, fn);
  Reset(Datei);
  result:=FileSize(Datei);
  CloseFile(Datei);
end;

Jetzt die Fehlermeldung:

[Fehler] Datei.pas(19): Inkompatible Typen: 'String' und 'Text'

Ich verstehe die Meldung nicht ganz. Es kommt weder ein String noch ein Text vor???
Kann mir wer das erklären?

Ferby

[edit=SirThornberry]Threadtitel geändert. Mfg, SirThornberry[/edit]

[Oxmyx]

Vermutlich musst du TFileName auf string casten.

[Hawkeye219]

Hallo ferby,

bei der Zuweisung zu result rufst Du Deine Routine rekursiv auf!
Ändere die Zeile in

Delphi-Quellcode:

result := System.FileSize(Datei);

dann klappt's vielleicht.

[Christian Seehase]

Moin Ferby,

übrigens schlägt Deine Funktion fehl, wenn Du eine Datei > 2GB übergibst.

[inherited]

Wobei er nur Textdateien öffnen will und wehr jhat schon Textfiles mit SINNVOLLEN 2 gb text?

€dit das erinnert mich an ein krankes japanisches video: da sitzt das Windows ME-Männchen und sortiert dateien. Kommt ne datei größer als 2 gb an und schmeisst sie in den papierkorb....is schlecht zu beschreiben ich poste irgendwann mal den link

[ferby]

Hallo,

danke für die Antwort

die Lösung von Hawkeye219:

Delphi-Quellcode:

result := System.FileSize(Datei);

hat funktioniert.