Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Combobox auslesen ohne Änderung des Index (https://www.delphipraxis.net/129561-combobox-auslesen-ohne-aenderung-des-index.html)

khh 21. Feb 2009 09:17


Combobox auslesen ohne Änderung des Index
 
Hallo zusammen,
ich habe ein pulldownfeld in dessen Liste die Kundennamen stehen und welches ich so auslese:

if self.kundenCombobox.ItemIndex > -1 then
begin
kunden_id:= Tkunde(self.kundenCombobox.Items.Objects[self.kundenCombobox.ItemIndex]).KUNDEN_ID ;
end;

nun kann es sein, dass im Programmlauf der Kunde anderweitig festgestellt wird und der String an kundenCombobox.text übergeben wird.

Damit ist aber itemindex -1 .
Wie komme ich an die kunden_id , quasi so als wenn der Eintag im Pulldown manuell geändert wurde?

Danke Gruss KH

DeddyH 21. Feb 2009 09:18

Re: Combobox auslesen ohne Änderung des Index
 
Delphi-Quellcode:
kunden_id:= Tkunde(self.kundenCombobox.Items.Objects[self.kundenCombobox.Items.IndexOf(StringVariable)]).KUNDEN_ID ;
Müsste doch so klappen, wenn ich nicht irre.

khh 21. Feb 2009 09:34

Re: Combobox auslesen ohne Änderung des Index
 
Zitat:

Zitat von DeddyH
Delphi-Quellcode:
kunden_id:= Tkunde(self.kundenCombobox.Items.Objects[self.kundenCombobox.Items.IndexOf(StringVariable)]).KUNDEN_ID ;
Müsste doch so klappen, wenn ich nicht irre.

werd ich probieren, ich danke dir


Gruss KH

DeddyH 21. Feb 2009 09:38

Re: Combobox auslesen ohne Änderung des Index
 
Prüf aber besser vorher ab, ob IndexOf einen Wert > -1 zurückgibt ;)

khh 21. Feb 2009 09:57

Re: Combobox auslesen ohne Änderung des Index
 
Zitat:

Zitat von DeddyH
Prüf aber besser vorher ab, ob IndexOf einen Wert > -1 zurückgibt ;)

ok, mach ich

funktioniert übrigens auf Anhieb.

ich danke dir


Gruss KH


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:02 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