Hallo,
ich suche nach einer Möglichkeit, daß eine for-Schleife erst dann weiterläuft, wenn ich auf den Button Suche clicke. In der Schleife wird eine TStringlist (ini-Paare) nach Werten abgefragt und mit einer Eingabe im Edit verglichen. Es soll dann den String (in diesem Fall der Section-Name) in einer ListBox markieren:
Delphi-Quellcode:
procedure TForm2.SuchBtnClick(Sender: TObject);
var i,x: Integer;
begin
for i := 0 to Form1.ListBox1.Items.Count - 1 do
begin
ini.ReadSectionValues(Form1.ListBox1.Items.Strings[i],sl);
for x := 0 to sl.Count - 1 do
begin
if AnsiContainsText(sl.ValueFromIndex[x],Edit1.Text) = True then
begin
Form1.ListBox2.Items.Add(Form1.ListBox1.Items.Strings[i]);//<- Als Kontrolle
Form1.ListBox1.ItemIndex:=i;
Form1.SetFocus;
end;
end;
end;
end;
Die Suche funktioniert prima, aber das nächste soll erst dann gesucht werden, nachdem ich auf den Button clicke.
Ich habe schon Break nach Form1.SetFocus versucht, aber die Schleife läuft weiter. In der Kontrolle werden alle gefundenen Sections gleich in die ListBox2 geschrieben.
Wenn ich Break nach end setze bricht die Schleife zwar ab, die Kontrolle zeigt mir aber nach dem Drücken des Suche-Btn immer nur das erste Section an.
Kann mir jemand helfen?
Vielen Dank im Voraus
Kutter111