Como transformar uma variavel como um componente

Question

Tenho o seguinte situa��o, tenho varias edit�s que preciso zera ou colocar um valor randomico, conforme exemplo abaixo como fa�o para a variavel �A� se tornar um componente Edit.

I : Integer;
A : STRING;
begin
FOR I := 1 TO 3 DO
BEGIN
A:= �Edit�+trim(inttostr(i));
A:=trim(inttostr(i));
END;
end;

Afarias · Answer

[quote:e5c9d14e81]var  i: Integer;  n: string;  c: TComponent;begin  for i := 1 to 3 do  begin    n := �Edit�+IntToStr(i);    c := FindComponent(n); // encontra o componente com o nome �n�    if Assigned(c) and (c is TEdit) then // se encontrou e � do tipo TEdit      TEdit(c).Text := IntToStr(i); // note o typecast de �c� para TEdit  end;end;[/quote:e5c9d14e81]T+...

Afarias · Answer

Desculpe, postei como �quote� no lugar de �code�... repetindo:

var
  i: Integer;
  n: string;
  c: TComponent;
begin
  for i := 1 to 5 do
  begin
    n := �Edit�+IntToStr(i);
    c := FindComponent(n);     // encontra o componente com o nome �n� 
    if Assigned(c) and (c is TEdit) then     // se encontrou e � do tipo TEdit 
      TEdit(c).Text := IntToStr(i);     // note o typecast de �c� para TEdit 
  end;
end;

T+

F�rum Como transformar uma variavel como um componente #375558