letztes Element eines Records löschen

[Davidlocke13]

Hallo;

wie kann ich das letzt Element eines Records löschen ?

Fange gerade erst mit Records an deshalb habe ich da gar keine Ahnung!


Liebe Grüße

[Uwe Raabe]

Zitat:

Zitat von Davidlocke13 (Beitrag 1227179)

wie kann ich das letzt Element eines Records löschen ?

Die Frage macht irgendwie keinen Sinn. Bevor ich jetzt rate, erklär doch mal, was du hast und was du willst.

[mkinzler]

Verwechselst Du Record mit Array?

[Davidlocke13]

Nein ich meine schon einen Record

Delphi-Quellcode:

Type
  TEdit_Satz=record
    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;
end;

Das ist doch ein Record ?!

[Uwe Raabe]

Und welches Element soll nun gelöscht werden?

Edit: mir schwant furchtbares...

[Der schöne Günther]

Jetzt bin ich auch mal gespannt. VCL-Komponenten in einem Record, ok. Aber dann "das letzte" ... "löschen"? :shock:

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

Delphi-Quellcode:

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 ?

Delphi-Quellcode:

Edit_Sätze[k].zehn_Edit :=free;

geht schon mal nicht !


Es geht nur:

Delphi-Quellcode:

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?

[stahli]

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

Delphi-Quellcode:

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

Delphi-Quellcode:

Edit1 := nil;

Beide Anweisungen lassen sich auch gemeinsam ausführen:

Delphi-Quellcode:

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.

[Der schöne Günther]

Zitat:

Zitat von Uwe Raabe (Beitrag 1227192)

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:

Zitat von Der schöne Günther (Beitrag 1227195)

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]

Delphi-Quellcode:

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:

Zitat von Davidlocke13 (Beitrag 1227190)

Delphi-Quellcode:

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 ?

Delphi-Quellcode:

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 :wink:

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

Zitat von Davidlocke13 (Beitrag 1227190)

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.

[p80286]

@Davidlocke
Wie wäre es wenn Du uns mal erklären würdest was Du erreichen willst.
Ich hab den Eindruck, daß Du mit einer Rohrzange einen Nagel einschlagen willst.
U.U wäre es aber besser eine Schraube und einen Schraubendreher zu nutzen.

Gruß
K-H