letztes Element eines Records löschen

[Davidlocke13]

so ...

Delphi-Quellcode:

private
Edit_Sätze:TEdit_Sätze;

ich gehe dann her und erstelle dann mehrere Edits die eine Variable k vom Typen Integer bekommen:

Edit_Sätze[k].zehn_Edit wenn ich jetzt bei k z.B. auf 5 bin, wie kann ich dann das letzte Teil löschen so das k auf 4 ist ?

Edit_Sätze[k].zehn_Edit :=free; geht schon mal nicht !


Es geht nur: Edit_Sätze[k].zehn_Edit :=nil; !
Aber damit ist es ja nicht gelöscht !

[Uwe Raabe]

Wie ist TEditSätze deklariert?

OT: ist doch niedlich, daß die IDE auch Deutsche Umlaute in Variablennamen kann, nicht?

[Der schöne Günther]

Zitat von Uwe Raabe:

OT: ist doch niedlich, daß die IDE auch Deutsche Umlaute in Variablennamen kann, nicht?

Um ganz ehrlich zu sein habe ich teilweise wirkllich Umlaute und (könnte sogar sein) Unicode-Zeichen in Bezeichnern. Tut doch niemandem weh?

[Uwe Raabe]

Zitat von Der schöne Günther:

Um ganz ehrlich zu sein habe ich teilweise wirkllich Umlaute und (könnte sogar sein) Unicode-Zeichen in Bezeichnern. Tut doch niemandem weh?

Jein! Du kannst z.B. auch Komponenten auf dem Form mit Umlauten im Namen verwenden. Schaltest du dann aber das Form in den Textmodus, schrottet die IDE die Textdarstellung.

[stahli]

Also wenn man ein Objekt (z.B. Edit1) freigeben will, dann macht man das mit:

Edit1.Free; Edit1 ist dann "undefiniert". Wenn Du Edit1.Text dann etwas zuweist kann das schnell ungeahnte und unvorhersehbare Probleme verursachen.

Deshalb kann man noch die Variable "auf Null setzen".

Edit1 := nil; Beide Anweisungen lassen sich auch gemeinsam ausführen:

FreeAndNil(Edit1);
Soweit zum Löschen Deines Edits.


Was Du genau mit Deinem Record und Deinem Array bezweckst habe ich nicht wirklich verstanden. Sicher gibt es bessere Lösungen.
I.d.R. werden diese eher für Datenverwaltung verwendet.

Vermutlich solltest Du Dir einmal anschauen, wie man Komponenten entwickelt. So kann man z.B. ein Panel definieren, das gleich einige Edits, Schalter usw. enthält.

Noch einfacher und oft ausreichend ist die Verwendung von Frames.

[DeddyH]

Das FreeAndNil bringt aber nur dann einen Vorteil, wenn vor jedem Zugriff auf die entsprechende Objektvariable auch auf nil bzw. Assigned geprüft wird. Ansonsten produziert man immer noch ggf. AVs.

[Davidlocke13]

type TEdit_Sätze=array of TEdit_Satz;

[DeddyH]

Delphi-Quellcode:

var
  ZuLoeschendesEdit: TEdit;
begin
  ...
  ZuLoeschendesEdit := Edit_Sätze[k].zehn_Edit;
  Edit_Sätze[k].zehn_Edit := nil;
  ZuLoeschendesEdit.Free;
end;

Das sollte nach meinem Dafürhalten funktionieren und nebenbei einigermaßen verständlich sein.

[Der schöne Günther]

Sollte ... das k nicht noch irgendwie von alleine kleiner werden? Mich hat das ganze schon zu Beginn überfordert, ich halte mich besser raus.

Ich kann mir überhaupt nicht vorstellen, was hier grade abläuft. Wenn ich ein Bild malen würde, was sich beim Benutzer auf dem Bildschirm abspielen würde, wie sähe das aus?

[DeddyH]

Wieso sollte k kleiner werden? Die Anzahl der Array-Elemente ist ja nicht betroffen.