Combobox und Mysql(ZEOS Komponenten)
Hallo!
ich habe eine combobox mit Daten wie folgt gefüllt:
Delphi-Quellcode:
nun möchte ich mit OnSelect aus der query die richtige Kontonummer an ein TEdtit weitergeben.
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; 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] |
Re: Combobox und Mysql(ZEOS Komponenten)
Delphi-Quellcode:
Alternativ kannst du's auch mit Lastdelimiter machen.
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; |
Re: Combobox und Mysql(ZEOS Komponenten)
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz