Array verkleinern

[Andreas L.]

Hi,
ich habe eine Klasse entwickelt. Außerdem habe ich einen Array of TMeineKlasse. Diesen Array fülle ich, je nach User angaben, mit der Klasse. Jetzt wollte ich eine Löschroutine bauen um einzelne Elemente wieder zu entfernen. Meine Idee war, einfach alle nachfolgenden Elemente eins nach vorne zu kopieren

Delphi-Quellcode:

procedure Delete(index: Integer);
begin

 for i := index to length(meinarray) do
  begin

   meinarray[i] := meinarray[i + 1];

  end;

end;

Das scheint auch zu funkionieren. Doch bleibt das letzte Element erhalten, also muss ich es noch entfernen. Erstmal meinarray[length(meinarray)].free; und dann wollte ich mit Setlength(meinarray, length(meinarray) -1) den Array kürzen. Doch funktioniert das nicht. Brauche ich da eine andere Routine oder habe ich einen Fehler in meinen Code?

bye,
Andy

[fLaSh11]

Ein
SetLength(meinarray,Length(meinarray)-1); nach der for-Sch,leife muss funktionieren.

[mkinzler]

Handelt es sich hier um einen statischen oder dynamischen Array? setLength() funktioniert nur bei zweiteren

[fLaSh11]

dann müsste setLength aber eine AV bringen oder? und nicht einfach nicht funktionieren, wie oben beschrieben...

[Andreas L.]

Es ist ein dynamischer Array. Eine AV kommt nicht. Wenn ich in einer weiteren Routine, die nach Delete ausgeführt wird, bla := length(meinarray); showmessage(inttostr(bla)); aufrufe, steht da immer noch die Länge wie zuvor drin.

Warum beginnt der Index eines Arrays eigentlich mit 1 und nicht wie bei bspw. einer StringList mit 0?

[Neutral General]

Hi,

Also von Delphi selbst wird es ca. so gemacht:

Delphi-Quellcode:

procedure Delete(Index: Integer);
begin
  FreeAndNil(Array[Index]);
  System.Move(Array[Index+1],Array[Index],ArrayCount*SizeOf(ArrayDatenTyp));
  dec(ArrayCount);
  SetLength(Array,ArrayCount);
end;

Ich habs jetzt ausm Kopf gemacht... Ich hoffe das stimmt so...

Gruß
Neutral General

[Jelly]

Ihr mit euren Arrays
TObjectList nutzen und einfach die Methode Delete(index) aufrufen machts erheblich schneller.

[Luckie]

Zitat von Andreas L.:

Warum beginnt der Index eines Arrays eigentlich mit 1 und nicht wie bei bspw. einer StringList mit 0?

Weil es das bei dynamischen Arrays nicht tut. Dynamische Arrays beginnen mit dem Index 0.

[Andreas L.]

Zitat von Luckie:

Zitat von Andreas L.:

Warum beginnt der Index eines Arrays eigentlich mit 1 und nicht wie bei bspw. einer StringList mit 0?

Weil es das bei dynamischen Arrays nicht tut. Dynamische Arrays beginnen mit dem Index 0.

Wenn ich meinarray[0] was zuweise bekomme ich ne AV.

TObjectList kann ich nicht nutzen, weil meine Klasse von TComponent abstammt. Die ObjectList will aber TObject. Beim versuch meine Klasse umzuschreiben ging auf einmal gar nichts mehr... Warum auch immer...

[mkinzler]

Und TObject ist die Mutter aller Klassen auch TComponent