TObjectlist Problem mit index

[khh]

Zitat:

Zitat von DeddyH

Du hast jetzt alle Objekte in der ComboBox, oder? An das entsprechende Objekt kommst Du doch dann über den ItemIndex der ComboBox.

stimmt,


ich danke dir vielmals


Gruss KH

[DeddyH]

Zur Verdeutlichung noch ein Codeschnippsel (mit einer List- statt einer ComboBox, aber ist ja egal):

Delphi-Quellcode:

procedure TfrmStammdaten.btnDeleteSalutationClick(Sender: TObject);
begin
  if lbSalutations.ItemIndex > -1 then
    case TSalutation(lbSalutations.Items.Objects[lbSalutations.ItemIndex]).Delete of
        dtOK: begin
                TSalutation(lbSalutations.Items.Objects[lbSalutations.ItemIndex]).Free;
                lbSalutations.DeleteSelected;
              end;
     dtError: MessageBox(Handle,'Beim Löschen ist ein Fehler aufgetreten.',
                         nil,MB_OK or MB_ICONERROR)
    end;
end;

[Sharky]

Hai khh,

bitte nutzte doch zum ergänzen deiner Beiträge die Edit-Funktion. Solange noch kein neue Anwort gekommen ist musst Du nicht für jede weitere Info/Frage einen neuen Beitrag erzeugen.

Danke.

[khh]

Zitat:

Zitat von Sharky

Hai khh,

bitte nutzte doch zum ergänzen deiner Beiträge die Edit-Funktion. Solange noch kein neue Anwort gekommen ist musst Du nicht für jede weitere Info/Frage einen neuen Beitrag erzeugen.

Danke.

ok, mach ich

danke für die info


Gruss Kh