Hallo,
wie ich die Listbox durchsuchen kann weiß ich:
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i, subStrPos : Integer;
begin
i := 0; subStrPos := 0;
while (i < ListBox2.Items.Count) and (subStrPos = 0) do
begin
subStrPos := Pos(Edit7.Text,ListBox2.Items[i]);
if suBstrPos > 0 then
ListBox2.ItemIndex := i;
inc(i);
end;
end;
Nur so springt er nur zum erstgefundenen Ergebnis wie kann ich durch einen weiteren Klick das nächste Object anzeigen lassen(da mehrere gleiche Elemente in der Listbox sind)?
Und wenn das letzte Objekt gefunden ist soll er wieder oben anfangen!?
MfG
Christian
Vielen Dank im vorraus!