Ich bin gerade am suchen, aber ich weiß nicht wie ich es nennen soll, daher fallen die Suchergebnisse daneben...
Ich möchte bei einer ganzen Reihe von TEdit die Eigenschaft
text auf (leer) setzen. Also im Prinzip von (dasEdit).text:=''; Dann auch noch
checked diverser TCheckbox auf false.
Also denke ich mir, ich mache eine
Code:
Procedure SetAll(propertyname:String; aufWert:string; vonComponents:array of TComponent);
Var i:integer;
begin
for i:=0 to count(vonComponents)-1 do
vonComponents[i].propertyname:=aufWert;
end;
Wobei natürlich zuvor
aufWert an den jeweiligen Typen angepasst wird.
Mein Unwissen besteht jetzt darin, wie ich den in propertyname übergebenen Text so hinbekomme, daß es funktioniert.
Also sowas wie findcomponent('TForm1') ...??