For-In-Schleifen-Problem mit String-Array

[DieDolly]

Man könnte denke ich bin mal wieder eine blinde Kuh.
Aber der Code hier unten wirft eine Exception aus, nachdem die Messagebox mit "cab" angezeigt wurde und mir ist es völlig schleierhaft warum ?!

Der Code ist auf das absolut Nötigste reduziert und da tritt der Fehler auch noch auf.
Ich möchte jeden Wer von Array Values ins Array ResArray schreiben. Natürlich ist der Code umfangreicher und gewisse Anpassungen werden vorgenommen wenn z.B. ein Eintrag einen Punkt als erstes Zeichen hat wird der entfernt und sowas. Aber das da unten ist das Miniumum-Beispiel was noch immer nicht funktioniert.

Delphi-Quellcode:

var
 ResArray, Values: TArray<string>;
 Tmp: string;
begin
 // Ein ganz normales String-Array
 Values := TArray<string>.Create('1', '2', '3');

 // String-Array Values durchiterieren
 for Tmp in Values do
  begin
   ShowMessage(Tmp);

   SetLength(ResArray, Length(ResArray) + 1);

   ResArray[Length(ResArray)] := Tmp; // Der Fehler tritt in dieser Zeile auf glaube ich
  end;
end;

[Fritzew]

Bin nicht am Rechner, aber nicht length(resarray) sondern high(resarray) bei der Zuweisung.
Length ist immer eins zu hoch.......
Sorry am smartphone

[himitsu]

Da du Probleme hast, solltest du auch mal die Index- und Bereichsprüfung in den Projektoptionen aktivieren.

Und da du nur glaubst wo der Fehler auftritt, würde es nicht schaden zu lernen wie man den Debugger benutzt.

[DieDolly]

Fritz konnte mir helfen, ohne auf mich einzudreschen. Vielen Dank.

[p80286]

"dreschen" ist ein wenig hart formuliert.
Aber der Debugger und die Projektoptionen gehören nun mal zum Basiswissen im Umgang mit dem Compiler.

Gruß
K-H

[DieDolly]

Das war nur so dahingesagt
Aber ich weiß was ihr meint und ja, es stimmt schon.

[bernau]

Man kann Elemente auch einfach an ein Array dranhängen, ohne SetLength zu bemühen.

Delphi-Quellcode:

var
 ResArray, Values: TArray<string>;
 Tmp: string;
begin
 // Ein ganz normales String-Array
 Values := TArray<string>.Create('1', '2', '3');

 // String-Array Values durchiterieren
 for Tmp in Values do
  begin
   ShowMessage(Tmp);
   ResArray := ResArray + [Tmp];
  end;
end;

Siehe Docwiki

[Mavarik]

Zitat von bernau:

Man kann Elemente auch einfach an ein Array dranhängen, ohne SetLength zu bemühen.

Ist aber langsamer, wenn ich mich richtig erinnere.

[himitsu]

So viel Langsamer sollte es nicht sein, als dieses ständige SetLength in jedem Durchlauf.
Also besser wäre es ja wohl, wenn man die Größe des Ziel-Arrays vor den Zuweisungen nur einmal auf Länge bringt.

Aber seit Kurzem kann man ja auch einfach sowas machen.

Delphi-Quellcode:

for Tmp in Values do
  ShowMessage(Tmp);
ResArray := ResArray + Values;