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]