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