Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - [listbox] Eintrag durch String markieren


Ryazor - Do 14.08.03 22:40
Titel: [listbox] Eintrag durch String markieren
Hallo, ich hab einen String und möchte ihn gerne mit einen entsprechenden Listbox-Eintrag markieren.
Ist dies möglich?
Beispiel:
String BLA = 123;
Einträge:
1
12
123
1234
Nun möchte ich, dass In der Listbox, BLA markiert wird, also der dritte Eintrag...


patrick - Do 14.08.03 23:47

mal so aus dem handgelenk:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
var i,searchlen,itmlen,posresult:integer;
    searchstr:string;
begin
searchstr:='123'//deine suchvariable
searchlen:=length(searchstr);
for i:=0 to listbox1.Items.Count-1 do
  begin
  posresult:=pos(searchstr,listbox1.Items.Strings[i]);//zeichenkette vorhanden?
  itmlen:=length(listbox1.Items.Strings[i]);
  if (posresult<>0and (searchlen=itmlen) then //wenn das item nur aus dieser zeichenkette besteht dann
    listbox1.Selected[i]:=true
  else
    listbox1.Selected[i]:=false;
  end;