Wenn ich diese Funktion in meinem Programm aufrufe kommt ein Runtime Error wenn ich das Programm beende.
var Datei : Array of TDatei;
Delphi-Quellcode:
function Anzahl : Integer;
var loc : TStringlist;
i : Integer;
begin
loc := TStringlist.Create;
loc.LoadFromFile('
dc.loc');
SetLength(Datei,Loc.Count);
for i := 1
to Loc.Count
do begin
Datei[i] := TDatei.Create;
end;
Result := loc.Count;
loc.Free;
end;
Das Problem liegt nachweislich bei der Erzeugung der TDatei's.
Aber ich seh dadrin kein Problem
