ComboBoxen mit Daten füllen

[Progman]

Schreib doch diese Füllgeschichte in eine eigene Proc:

Delphi-Quellcode:

procedure TfrmData.FillListe;
var i: Integer; s: String;
begin
  CB.Clear; //Combobox erstmal löschen
  if Adressen.RecordCount > 0 then begin
    Adressen.First;
    for i:=0 to Adressen.RecordCount - 1 do begin
      s :=Adressen.FieldByName('NACHNAME').Value+', '+
          Adressen.FieldByName('VORNAME').Value;
      CB.Items.Add(s);
      Adressen.Next;
    end;
    Adressen.First;
  end;
end;

die ruft man im FormShow oder irgendwann auf, wenn die Daten geladen sind.