Suche in ListBoxes

[bitsetter]

Hi,

Zitat von Loni:

nun möchte ich die gefundene zeile aber nicht in ein Label übernehmen sondern die zeile direkt in der ListBox zB Rot markiert haben

ich habe dir ein Beispiel angehängt wo du mit Hilfe von Listbox.Tag eine Zeile rot markieren kannst. Dein Code würde ich dann so abbändern:

Delphi-Quellcode:

procedure TForm4.BitBtnSucheClick(Sender: TObject);
begin
Suchwort:=EdSuchen.Text;
l:='';
if LaInXSuchen.Caption='In  // Allgemeine Hilfe' then
begin
for i:=1 to Form6.ListBoxHilfeAllgemein.items.count-1 do
if pos(l+Suchwort+l, Form6.ListBoxHilfeAllgemein.items[i-1]) > 0 then
Form6.ListBoxHilfeAllgemein.Tag := Form6.ListBoxHilfeAllgemein.items[i-1];//<--
end;
end;

Oder ansonsten einfach mit Form6.ListBoxHilfeAllgemein.ItemIndex := Form6.ListBoxHilfeAllgemein.items[i-1]; die Zeile markieren.