Problem mit "Search"Funktion (Suche)

[xShadowBoZz]

Zitat von soulies:

versuch mal

Delphi-Quellcode:

procedure TForm1.SearchClick(Sender: TObject);
var ...
    ...
    comp_anzahl : integer ;
begin
    for comp_anzahl:=0 to Form2.ComponentCount-1 do
    begin
      if (Form2.Component[comp_anzahl] is TListbox) and ((Form2.Component[comp_anzahl] as TListbox).Visible) then
      begin
        ...
      end;
    end;
end;

(ungetestet)

cya

Fehler gibts zwar keine, allerdings funktionieren tut es auch nicht. Trotzdem danke für den Versuch. Falls jemand noch ne Idee hat kann er mir ne PN schreiben oder einfach hier antworten. Ich glaube ich werde für jede ListBox eine eigene/einzelne If-Abfrage starten so wird der Code zwar ziemlich, aber es wird funktionieren ^^.