Control suchen

[HomerGER]

nein, der fehler war wirklich wir ihr gesagt habt
das rekursive Result

das habe ich komplett übersehen

Delphi-Quellcode:

Function Finde(sender : control; const c_name_s : String) : Control;
var
c_ctrl : Control;
begin
  Result := NIL;
  for c_ctrl in sender.Controls do
  begin
    //Rekursiv
    if (c_ctrl.Name = c_name_s) then
    begin
      Result :=  c_ctrl;
    end
    else
    begin
      Result := Finde(c_ctrl, c_name_s);
    end;
    if Assigned(Result) then
    begin
      Exit;
    end;
  end;
end;

ich neige mein Haupt und sage Dankeschön

Homer