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.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
