[[egostar]]

Empezado por roman

Hay cosas en delphi que deben existir desde la prehistoria, y sin embargo, no las conocía. Un ejemplo, lo siguiente compila sin problemas:

Código Delphi [-]
var
  A: array(.1..10.) of Integer;
  I: Integer;

begin
  for I := 1 to 10 do
    A(.I.) := I;
end;

// Saludos

Interesante descubrimiento Román.

Aunque me gusta más de ésta forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  A: array(.1..10.) of Integer;
  Y: Integer;
begin
  for Y := 1 to 10 do
    A(.Y.) := Y;
end;

Saludos