DelphiProjekt - Erstellen eines Adressbuches

[Kleine]

Ich hab jetzt eine procedure 'EintragAendern' hinzugefügt, die so aussieht

Delphi-Quellcode:

procedure TFormAdresse.EintragAendern;
var
 i: Integer;
begin
     for i :=0 to KontaktListBox.Items.Count -1 do
       begin
            if KontaktListBox.Selected[i] then
            Adresse.Kontakte.Insert(i,adresse.Kontakte);
            //KontaktListBox.insert(i,Kontakte);
       end;

end;

es funktioniert natürlich nicht. hat jemand ne idee wie man das machen könnte?

[DeddyH]

Was soll denn eigentlich geändert werden?

[Kleine]

in foAdresse, kann man ja e-mail telfeon und so einfügen.
Und wenn man ein Eintrag in der Liste auswählt erscheint er ja auch in der combobox und im editfeld, und das editfeld soll man verändern können, und wenn man dann auf den button ändern klickt soll er den alten eintrag überschreiben.
Also das sogesehen aktualisieren :?

[DeddyH]

Ich schreibe Dir mal eine Minimal-Demo, wie sich so etwas realisieren ließe, kann aber einen Moment dauern.

[Kleine]

Bin schon weiter gekommen, mir wurde ausserhalb geholfen.
Im moment siehts so aus..

[DeddyH]

Schau ich mir gleich an, hier erstmal meins :)

[Kleine]

danke schön :)

mal ne frage zu meinem neuen Programm..
Irgentwie überschreibt er den Wert in AdresseListBox im foMain. Dabei soll er den neuen ja einfach unten dran fügen :?

[Luckie]

Deutschland ist nicht der Nabel der Welt. Will sagen, es gibt auch Postleitzahlen, die Buchstaben enthalten, zum Beispiel in England:

Delphi-Quellcode:

procedure TAdresse.SetPLZ(const Value: TString5);
var
  dummy: integer;
begin
  if (Value = '') or TryStrToInt(Value, dummy) then
    FPLZ := Value
  else
    raise Exception.CreateFmt('"%s" ist keine gültige Postleitzahl.', [Value]);
end;

;)

[DeddyH]

Das ist mir doch wurscht, mir ging es nur darum, irgendwie zur Demonstration einen Setter einzubauen ;)

[DeddyH]

Zitat:

Zitat von Kleine (Beitrag 1097347)

Irgentwie überschreibt er den Wert in AdresseListBox im foMain. Dabei soll er den neuen ja einfach unten dran fügen :?

Ist das denn auch tatsächlich ein neues Objekt? Ich habe nur kurz über die neue Version drübergeschaut, aber wenn ich das richtig gesehen habe ist das immer noch dieser Kuddelmuddel mit einer Adresse und Unteradressen.