Runtime Error bei meiner Funktion

[Neutral General]

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

[Die Muhkuh]

Vielleicht solltest du die TDateien die du erstellt auch wieder free'en?

[Ultimator]

[Falsch] [Doch Richtig]

Delphi-Quellcode:

for i := 1 to Loc.Count do begin  
   Datei[i] := TDatei.Create;

Probiers mal so

Delphi-Quellcode:

for i := 0 to Loc.Count-1 do begin  
   Datei[i] := TDatei.Create;

Da das erste Element den Index 0 hat, hat das letzte nicht den Index Lerngth, sondern Length-1
[/Falsch] [/Doch Richtig]


Shit, hHast nicht Recht

[Neutral General]

@ Ultimator : Ohh nein nicht schon wieder.
Ich les die Strings ja nicht ein -.-
Ich will doch nur so viele TDatei's erstellen wie die Datei Zeilen hat.
Das wurde aber schon hier geklärt

@ Spider : Dadran dürfte es aber normalerweise nicht liegen...
Außerdem wenn ich ins OnClose das schreibe :

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i : Integer;
begin
  for i := 1 to Length(Datei) do
  Datei[i].Free;
end;

bekomm ich ne Fehlermeldung "Ungültige Zeigeroperation" beim Beenden.

[Bernhard Geyer]

Ultimator hat schon recht, jedoch nicht nur bezüglich der Stringlist sondern auch deinem dynamischen Array.

Dieses hat eine Array-Gültigkeit von 0 bis Loc.Count-1.

[Die Muhkuh]

hi,

es muss:

Delphi-Quellcode:

for I := 0 to High(Datei) do
  Datei[I].Free;

heißen

[edit]
@Bernhard
das hatten wir hier schonmal: http://www.delphipraxis.net/internal...&highlight=for

[Neutral General]

Ok dann beomm ich zwar nichtmehr den Zeigeroperationfehler aber der Runtimefehler bleibt

[Edit]
Ok bei 0 to Loc.Count-1 gehts...
Ist ja von der Anzahl das gleich wie 1 to Loc.Count. Bernhard hat doch Recht. Aber stimmt ja, ein dynamisches Array beginnt mit 0. [/edit]

[alcaeus]

Delphi-Quellcode:

function Anzahl : Integer; 
var loc : TStringlist; 
    i : Integer; 
begin 
  loc := TStringlist.Create; 
  loc.LoadFromFile('dc.loc'); 
  SetLength(Datei,Loc.Count); 
  for i := 0 to Loc.Count-1 do begin  //Loc geht von 0 bis Loc.Count-1
   Datei[i] := TDatei.Create; 
  end; 
  Result := loc.Count; 
  loc.Free; 
end;

So muesste das funktionieren...tuts jedenfalls bei mir.
Warum wollen alle ihre dynamischen Arrays von 1..Count ansprechen?

Greetz
alcaeus

[Bernhard Geyer]

Zitat von alcaeus:

Warum wollen alle ihre dynamischen Arrays von 1..Count ansprechen?

Weil man im Mathematikunterricht erst die natürlichen Zahlen ohne Null gelernt bekommt (1..10).
Auch weil Delphi ein Mischmasch zwischen 0 und 1-Basierenden Elementen hat (String -> 1-Basierend, dynamisches Array -> 0-Basierend, ...)

[alcaeus]

Zitat von Bernhard Geyer:

Auch weil Delphi ein Mischmasch zwischen 0 und 1-Basierenden Elementen hat (String -> 1-Basierend, dynamisches Array -> 0-Basierend, ...)

Ist zwar OT, aber nein. Strings (jedenfalls ShortStrings mit bis zu 255 Zeichen) sind auch 0-basiert. Auf das 0te Element kannst du nur nicht zugreifen, das ist das Laengenbyte. Die neuen Strings mit Kapazitaeten von bis zu 2GB arbeiten etwas komplizierter, aber ShortStrings sind definitiv 0-basiert.

Greetz
alcaeus