安全な決済コンポーネントですか？

Question

Iは、フォームに記入空にするためにこのコードを使用する：

var 
i: integer; 

for i:=0 to componentcounts-1 do 
    begin 
    if component[i] is TEdit then 
     (component[i] as Tedit).text:=''; 
    .....another component also include 
    end; 

しかし、それは別の形で使用することができるので、私はプロシージャを作成

その後、フォームの外側にこのコードを使用することを好む

procedure emptyForm(f:Tform) 
var 
    i:integer; 
begin 
with f do 
    begin 
    for i:=0 to componentcounts-1 do 
     begin 
     if component[i] is TEdit then 
      (component[i] as Tedit).text:=''; 
      //.....another component also include 
     end; 
    end; 
end; 

このように保存しますか？

Answer 1

私はそうだと思いますが、「with」を使用するのは少し危険です。理由を調べるには、TFormはTComponentの子孫であり、Component [i]と同じプロパティの多くを持ち、潜在的な混乱とエラーにつながることに注意してください。私は以下を好む

procedure emptyForm(f:Tform); 
var 
    i:integer; 
    iComponent : TComponent; 
begin 
    for i:=0 to f.componentcount-1 do 
    begin 
     iComponent := f.Components[ I ]; 
     if iComponent is TEdit then 
     begin 
      (iComponent as Tedit).text:=''; 
     end; 
      //.....another component also include 
    end; 
end;