Witam potrzebuje wrzucic do comboboxa zawartość tabeli osoba w taki sposób aby po rozwinięciu pokazywane informacie były w formacie id_osoby Nazwisko. Robiłem dokładnie taką samą czynność w c# lecz w delphi nie mam pomysłu. Aktualnie mam tak i wyświetla mi tylko id
procedure TForm1.ComboBox1Enter(Sender: TObject);
var Q: TAdoQuery;
begin
try
combobox1.items.Clear;
Q := TAdoQuery.Create(Self);
try
Q.Connection := ADOConnection1;
Q.SQL.Text := 'SELECT * FROM osoba';
Q.Open;
while not Q.Eof do
begin
combobox1.Items.AddObject(Q.FieldByName('id_osoby').AsString , TObject(Q.FieldByName('nazwisko').AsString)); Nie wiem jak zmodyfikować tą linie aby to działało.
Q.Next;
end;
finally
Q.Free;
end;
finally
combobox1.Items.EndUpdate;
end;
end;