Array verkleinern

[Neutral General]

Hi,

Dein Argument gegen die TObjectList ist nicht besonders gut ;)
Du kannst casten und man kann sich ne Klasse von TObjectList ableiten die auf deine Klasse "spezialisiert" ist ;)

Gruß
Neutral General

[Andreas L.]

Habs jetzt hinbekommen. :-)

Heute anscheinend bei meinen letzten versuch nur vergessen ein bla := Tobjectlist.create; im create meiner klasse aufzurufen :wall:

Und jetzt frisst er auf einmal auch meine Klasse bei objlst.add();

Danke an alle

[Luckie]

Zitat:

Zitat von Andreas L.

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

Dann machst du was falsch:

Delphi-Quellcode:

var
  DynArray: array of Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(DynArray, Length(DynArray) + 1);
  DynArray[High(DynArray)] := round(random * 100);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(IntToStr(DynArray[High(DynArray)]));
end;

Aber eine Klasse zu vewenden wäre bestimmt günstiger: http://www.michael-puff.de/Developer...er_Klassen.php

[himitsu]

Also deine Funktion wäre so wohl funktionsfähig:

Delphi-Quellcode:

procedure Delete(index: Integer);
begin
 meinarray[i].Free;
 for i := index to High(meinarray) - 1 do
   meinarray[i] := meinarray[i + 1];
 SetLength(meinarray, High(meinarray));
end;

oder

Delphi-Quellcode:

procedure Delete(index: Integer);
begin
 meinarray[i].Free;
 for i := index + 1 to High(meinarray) do
   meinarray[i - 1] := meinarray[i];
 SetLength(meinarray, High(meinarray));
end;

Zitat:

Das scheint auch zu funkionieren.

tut es auch soweit.

Zitat:

Doch bleibt das letzte Element erhalten, also muss ich es noch entfernen.

stimmt geneu, das muß weg ... zumindestens der Object-Zeiger daruf.

allerdings muß auch das zu löschende Element weg und zwar komplett. :warn:

Zitat:

Erstmal meinarray[length(meinarray)].free; und dann wollte ich mit Setlength(meinarray, length(meinarray) -1) den Array kürzen.

SetLength stimmte ja, nur darfst du das objekt nicht freigeben ... du hast es doch nach vorne kopiert.
Wenn du das machst, dann würde ja der letzte Eintrag im Array freigegeben (auch der kopierte ... sind ja schließlich das selbe Objekt :zwinker: )

PS: da du nur den Objektzeiger auf das i-te Element überschrieben hast, bleibt dennoch die Objektinstanz erhalten = Speicherleck. :stupid:

Delphi-Quellcode:

Doch funktioniert das nicht.

was genau funktionierte denn nicht? (kann es mir zwar denken, aber die Fehlerbeschreibung von dir ist nicht aussagekräftig.)