Daten aus Listbox auf Editfelder übertragen??

[Sharky]

Hai Plautzer,

ich bin nicht sicher ob ich dich richtig verstanden habe. Meinst Du so etwas:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM tabelle WHERE id_feld = :myid';
  Query1.ParamCheck := True;
  Query1.Params.ParamByName('myid').AsString := ListBox1.Items.Strings[ListBox1.ItemIndex];  // ID steht in der Listbox
  Query1.Open;
  Edit1.Text := Query1.FieldByName ('feldname_1').AsString;
  Edit2.Text := Query1.FieldByName ('feldname_2').AsString;
  Edit3.Text := Query1.FieldByName ('feldname_3').AsString;
end;