Array-Element löschen

[Taladan]

Hallo, ich will in einen dynamsiches Array, in dem ich Records habe, eines raus nehmen und die anderen Nachrücken lasse. Doch irgendwie erhalte ich immer Zugriffsverletzungen oder erhalte nicht das richtige Ergebnis.

Delphi-Quellcode:

procedure TFeldliste.DeleteField(Index: Integer);
var i,l : integer;
begin
  L := length(FListe);
    for i := index to L-1 do begin
      FListe[i].ID := FListe[i+1].id;
      FListe[i].Name := FListe[i+1].Name;
      FListe[i].typ := FListe[i+1].typ;
    end;
  setlength(Fliste, length(fliste)-1);

end;

[BenjaminH]

Du musst L-2 statt L-1 schreiben, da Array[Length(Array)-1+1] genau um 1 zu groß ist

[Robert_G]

Wenn du aus deinem Record eine Klasse machst und statt dem Array einen TObjectList (oder eine eigene Ableitung) von TObjectList nimmst dürfte es weniger bis keine Probleme mehr geben. Auf jeden Fall weniger Code. ;)

[Christian Seehase]

Moin Taladan,

ich weiss ja nicht, wie gross die Liste werden kann, aber ich hatte es vor kurzen auch so gemacht (Kombination dynamisches Array und Record), und auch ganze Bereiche so gelöscht / eingefügt wie Du.
Der Umbau auf TObjectList statt des dynamischen Arrays und einer simplen Klasse (ohne Methoden ;-)) statt des Records hat mir eine Geschwindigkeitssteigerung um den Faktor 30 gebracht (ca. 30 Sekunden statt vorher ca. 1000).

[Robert_G]

Zitat:

Zitat von Christian Seehase

Der Umbau auf TObjectList statt des dynamischen Arrays und einer simplen Klasse (ohne Methoden ;-)) statt des Records hat mir eine Geschwindigkeitssteigerung um den Faktor 30 gebracht (ca. 30 Sekunden statt vorher ca. 1000).

Das Problem an einem Array ist einfach, dass er keine Klasse ist. :mrgreen:
Deshalb kann man ihn nicht, wie es TList macht, sprungweise wachsen lassen.
Man könnte es, aber es wäre irgendwo ein hässlicher Krampf immer erst eine olle funktion aufzurufen, die das macht. :?
TList selbst ist ja auch nur ein Array, nur halt in einer verwendbaren Kapselung... :)

[Taladan]

TObjectList <---- Die Antwort auf viele, sehr viele Wutentbrannte Stunden!!! :wall:

Warum hab ich die net schon vorher gekannt. :cry: Gabs die schon in delphi4std :gruebel: ? Ich glaub net... da kamen ja grad die dynamischen Arrays hinzu...

Toll, alles wieder um schreiben. Aber wenigstens danach weniger getippe...

Dumme Frage dazu.

Zitat OH:

Zitat:

Rufen Sie Extract auf, um ein Objekt aus der Liste zu entfernen ohne das Objekt selbst dadurch freizugeben. Nachdem das Objekt entfernt ist, werden alle folgenden Objekte in der Indexposition nach oben verschoben und Count wird herabgesetzt.

Was bedeutet das mti dem Object frei geben? Wird das dann nicht gelöscht? Wenn es aber nicht mehr in der Liste drin ist, wo ist das Object dann? Werd aus der OH nicht so ganz schlau (Ich vermisse die guten alten Beispiele die es in der OH von D4 noch gab

[Robert_G]

Zitat:

Zitat von Taladan

wenistens danach weniger getippe...

Hier habe ich eine kleine Beispielliste getippt: http://www.delphipraxis.net/internal...=381090#381090
Du könntest einfach TToken durch deine FeldDings-Klasse ersetzen und schon sparst du dir viel rumgecaste. ;)

edit: Da fehlte wohl ein "weni" im Zitat. ;)

[jim_raynor]

Und falls man doch nicht auf Arrays verzichten kann hilft meine DeleteArray-Funktion:

http://www.delphipraxis.net/internal...ht=deletearray

[r2c2]

Zitat:

Zitat von Robert_G

TList selbst ist ja auch nur ein Array, nur halt in einer verwendbaren Kapselung... :)

Wirklich? Ich dachte immer n List funktioniert über Pointer: Jedes Item hat n Pointer auf das vorherige und das nächste Item. N dynamisches Array is aber nix anderes als n statisches mit n bisschen Compiler-Magic. Beim Vergrößern wird einfach n neues - statisches - Array erstellt und die Daten reinkopiert. Bei ner List wird n neues Item erstellt und der Pointer des letzten Otems von nil auf die Adresse des neuen Items gesetzt. Oder hab ich das was verpeilt? :gruebel:

mfg

Christian

[yankee]

Du kannst auch das ganze item hochrollen:

Delphi-Quellcode:

procedure TFeldliste.DeleteField(Index: Integer); 
var i,l : integer; 
begin 
  L := length(FListe); 
    for i := index to L-2 do
    begin 
      FListe[i] := FListe[i+1];
    end; 
  setlength(Fliste, length(fliste)-1); 

end;

Das ist kürzer und schneller. Nicht schneller als diese ObjectList, aber dafür kannst du dir das umschreiben sparen. Naja und bei kleinen Listen (<1000 Elemente) wirst du dabei auch keinen Performancenachteil haben, wenn du diese procedure nicht ganz oft hintereiander ausführst.