So mein nächstes Problem.
Also habe eben auch schon gefragt wie man mehrere "Boolean-Ausdrücke(dingens)" in eine If Abfrage reinkriegt. Das klappt so weit so gut.
jetzt hab ich aber ein Problem das meine Suche (in diesem Fall) auf Form2.Listbox1 ausgerichtet ist.
Kann man das irgendwie auf mehrere ListBox's "konfiguieren" falls ListBoxX.Visible?
also hier mal mein Code:
Delphi-Quellcode:
procedure TForm1.SearchClick(Sender: TObject);
var i : Integer;
searchUp : String;
begin
If ((Form2.ListBox1.Visible) or (Form2.ListBox2.Visible)) then begin //mehrere ListBoxen
If Edit2.Enabled=True then begin //Zusätzliche Funktion (unwichtig)
Form2.listBox1.MultiSelect := True; //evtl. Form2.listbox2.MultiSelect := True; hinzufügen?
searchUp := AnsiUpperCase(Edit1.Text); //muss man wohl nix ändern
for i:=0 to StrToInt(Edit2.Text) do //hier glaub auch nix ändern
if Pos(searchUp, AnsiUpperCase(Form2.listBox1.Items[i])) > 0 then begin //Wie Hier Form2.ListBox2.Items[i] hinzufügen? oda per "else unten hinzufügen?
Form2.listBox1.Selected[i] := true; //evtl. Form2.listbox2.Selected[i] unten hinzufügen?
application.ProcessMessages;
end
else
Form2.listBox1.Selected[i] := false; //evtl. Form2.listbox2.selected[i] := false; hinzufügen
end;
end;
also das durchsucht nur ListBox1 (fals Visible) und nicht LIstBox2 (fals visible)