Beim suchen vergeleich ich jetzt bestimmte spalten mitdem editfeld und lass den datensatz dann in einem memo ausgeben
nur hab ich jetzt ein weiteres problem..
wenn ich ein datensatz im grid auswähle,soll er mir die zusätzlichen kontaktdaten wie telefon usw in einer list box ausgeben.
Vorher war das grid auch eine list box und da sah der quelltext so aus
Delphi-Quellcode:
procedure TFormMain.AdresseListBoxClick(Sender: TObject);
var
Adresse : tAdresse ;
begin
Adresse := tAdresse( AdresseListBox.Items.Objects[ Adresselistbox.ItemIndex ] ) ;
RefreshKontaktListe( adresse ) ;
end;
jetzt wollte ich das umändern und hab bisjetzt das
Delphi-Quellcode:
procedure TFormMain.GridAdressenCellClick(Column: TColumn);
var
lAdresse : tAdresse;
i : Integer;
begin
for I := 0 to GridAdressen.SelectedRows.Count - 1 do
begin
lAdresse := tAdresse (GridAdressen.DataSource.DataSet[GridAdressen.SelectedRows[i]]);
RefreshKontaktListe( lAdresse ) ;
end;
end;
Nur leider hab ich überhaupt keine ahnung, wie er die kontaktdaten speziell zu dem ausgewählten datensatz ausgeben soll
