Zitat von
HomerGER:
Zitat von
marabu:
Hallo Homer,
du hast in der Hitze des Gefechts die Zuweisung an Result vergessen. So findet keine rekursive Suche statt.
marabu
????
Ich bekomme doch die Control über meine Function zurück nur ich kann ihr nicht zuweisen
Hi,
ich glaube er meint das:
[delphi]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;
(c_ctrl as TextBox).Text := '';
end
else
begin
Result := Finde(c_ctrl, c_name_s); <----- Das
end;
if Assigned(Result) then
begin
Exit;
end;
end;
end;