acceder a una variables

[cahosoft]

Hola gracias por atender mi incognita...
lo que pasa es que quiero guardar dinamicamente en mas de 100 edit
y quiero acceder a ellos dinamicamente...
mas o menos asi

Código Delphi [-]
procedure tform1.guardar;
 var
  i :integer;
  begin
     for i:=1 to 100 do
      begin
         tabla1.fieldbyname('campo').asstring:=accederavariables('edit'+inttostr(i)+'.text');
      end;   
  end;

[marcoszorrilla]

Quizás esta idea con punteros pueda servirte?

var
aTops: Array[1..9] of ^TDbedit;


procedure TfrDatRelojes.FormActivate(Sender: TObject);
begin
Reloj_Conectado:=True;
......


aTops[1]:=@DbeTop1;
aTops[2]:=@DbeTop2;
aTops[3]:=@DbeTop3;
aTops[4]:=@DbeTop4;
aTops[5]:=@DbeTop5;
aTops[6]:=@DbeTop6;
aTops[7]:=@DbeTop7;
aTops[8]:=@DbeTop8;
aTops[9]:=@DbeTop9;
end;


Procedure Mostrar(x:Integer);
var
n:Integer;
begin
For n:=1 to 9 do
begin
if n <= x then
begin
aTops[n]^.Visible :=True;
aTopc[n]^.Visible :=True;
alTopc[n]^.Visible:=True;
alTops[n]^.Visible:=True;
end
else
begin
aTops[n]^.Visible :=False;
aTopc[n]^.Visible :=False;
alTopc[n]^.Visible:=False;
alTops[n]^.Visible:=False;
end;
end;

end;

Un Saludo.

[Neftali [Germán.Estévez]]

Empezado por cahosoft

...lo que pasa es que quiero guardar dinamicamente en mas de 100 edit y quiero acceder a ellos dinamicamente...

Eso es diferente; Tú has hablado de variables y eso son Componentes.
Para hacer lo que necesitas (con componentes) puedes usar el FindComponent de Delphi, al que le pasas el nombre del com`ponente a utilizar y listo.

Código Delphi [-]
 var
  i :integer;
  edt:TEdit;
  begin
     for i:=1 to 100 do
      begin
         edt := TEdit(Self.FindComponent('edit'+inttostr(i)));
         tabla1.fieldbyname('campo').asstring := edt.Text
      end;   
  end;

Te lo he puesto de memoria, así que espero que compile, pero salvo algun error esta es la forma de hacerlo.