Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Listbox durschsuchen
hansg - So 26.01.03 10:18
Titel: Listbox durschsuchen
Hallo,
ich möchte eine Listbox mit einem Eingabefeld (Edit) vergleichen, ist der Eingabetext in der Listbox vorhanden möchte ich eine Variable auf 5 setzen.
Bitte um kurze Hilfestellung.
Delete - So 26.01.03 10:30
IndexOf.
hansg - So 26.01.03 10:39
Upps,
habe ich mich doch glatt vertan, ich meinte eine Combobox.
Delete - So 26.01.03 10:43
Ok, dann für eine Combobox: IndexOf.
hansg - So 26.01.03 10:59
Hallo,
danke für den Tip aber irgendwo habe ich einen Denkfehler.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
begin
for i:= 0 to combobox1.ItemIndex -1 do
begin
if combobox1.Items.IndexOf(edit1.text) > -1 then label1.Caption:='5' else label1.Caption:='0';
end;
end; |
Nur wo?
Delete - So 26.01.03 11:05
Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if Combobox1.Items.IndexOf(Edit1.Text) > -1 then
ShowMessage(IntToStr(Combobox1.Items.IndexOf(Edit1.Text)))
else
ShowMessage('Nicht gefunden.');
end; |
hansg - So 26.01.03 12:13
@Luckie
danke für den Code, geht supi!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!