letztes Element eines Records löschen

[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.

[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.

[Der schöne Günther]

Ich meinte nur das hier:

Zitat von Davidlocke13:

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 !

Ich persönlich habe noch keine Verbindung zu diesem k aufgebaut, mir selbst ist das nicht so wichtig

[DeddyH]

Achso. k wird höchstwahrscheinlich eine Schleifenvariable sein, ansonsten erschließt sich mir der Sinn auch nicht.

[bcvs]

Ich weiß zwar auch nicht genau, was hier mit den Edits passieren soll, aber wäre es nicht viel eleganter, das ganze in Klassen und Listen zu verwalten anstatt in Records und Arrays.

also

Delphi-Quellcode:

Type
  TEdit_Satz=class
    Combo_Komponente:TCombobox;
    Mmo_Beschreibung:TMemo;
    Preis_Edit:TEdit;
    zehn_Edit:TEdit;
    zehnMwSt_Edit:TEdit;
    zwanzig_Edit:TEdit;
    zwanzigMwSt_Edit:TEdit;
    vierzig_Edit:TEdit;
    vierzigMwSt_Edit: TEdit;
    constructor Create;
    destructor Destroy; override;
end;

Im Create werden die ganzen Komponenten erzeugt und im Destroy mit free wieder freigegeben.

Anstatt deinem Array nimmst du eine TObjectList.

Delphi-Quellcode:

var 
  list:TObjectList;
  es:TEditSatz;
  ...
  // Liste füllen
  es:=TEditSatz.Create;
  list.add(es);
  ...
  // und Löschen des letzten Objekts
  list.delete(list.count-1);

[Uwe Raabe]

Zitat von Davidlocke13:

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 ?

Delphi-Quellcode:

SetLength(Edit_Sätze, Length(Edit_Sätze) - 1);
dec(k);

Eventuell musst du noch die Komponenten innerhalb des Records freigeben, aber es ist bisher ja auch nicht ersichtlich, wie die da überhaupt rein kommen.