Combobox und Mysql(ZEOS Komponenten)

[rosch]

Hallo!

ich habe eine combobox mit Daten wie folgt gefüllt:

Delphi-Quellcode:

with cmbVerb do
  begin
    DM.qeVerb.Close;
    DM.qeVerb.Sql.Clear;
    DM.qeVerb.Sql.Add('Select ' +#10+
                      'ID_KONTORAHMEN, ' +#10+
                      'KONTO_NR, '       +#10+
                      'BEZEICHNUNG '     +#10+
                      'From KONTORAHMEN '+#10+
                      'WHERE KONTO_NR <9999 and KONTO_NR >0 ' +#10+
                      'ORDER BY KONTO_NR, BEZEICHNUNG  ASC'
                      );

     DM.qeVerb.Active := True;
     Items.Clear;
     with DM.qeVerb do
     begin
       While not Eof do
       begin
         Items.ADD(FieldByName('KONTO_NR').AsString+' | '+FieldByName('BEZEICHNUNG').AsString);
       next;
     end;
   end;
 end;

nun möchte ich mit OnSelect aus der query die richtige Kontonummer an ein TEdtit weitergeben.
leider habe ich keinen Eintrag im Forum gefunden.
könnte mir jemand auf die sprünge helfen.

danke

Rosch

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[ipworks]

Delphi-Quellcode:

var
kto,hilfsstr: string;
begin
   hilfsstr:=ComboBox1.Text;
   kto:='';
   for x:=1 to Length(hilfsstr) do begin
     if hilfsstr[x]<>'|' then kto:=kto+hilfsstr[x]
     else break;
   TEdit.Text:=kto;
end;

Alternativ kannst du's auch mit Lastdelimiter machen.

[rosch]

Vielen Dank!

ich habe wieder mal zu umständlich gedacht,
wollte die position in der combobox als variable
an die query übergeben und dann aus der query
an im Tedit ausgeben.

nochmals danke für die hilfe

rosch