type packed record

[jonmendi]

Hola!
tengo definido

 
  TFUsAct = packed record
    Codigo: SmallInt;
    numero: SmallInt;
  end;
 
 
var
  usuario : TFUsAct ;
 
begin
  usuario.codigo := 1;
  usuario.numero:= 123;
end;

para acceder uso el nombre del "campo". ¿Hay alguna forma de acceder sin usar el nombre? me refiero a algo como

 
usuario[0] := 1;
usuario[1] := 123;

Gracias a todos!

Jon

[[basti]]

Con punteros podrías hacer algo parecido, con arrays no se me ocurre como:

Código Delphi [-]
type
  TRecord = packed record
    Codigo : Smallint;
    Numero : Smallint;
  end;

var
  r : TRecord;
  p1 : ^Smallint;
begin
  r.Codigo := 1;
  r.Numero := 123;
  p1 := @r;
  Label1.Caption := IntToStr(p1^);
  Inc(p1);
  Label2.Caption := IntToStr(p1^);
end;

[Lord Delfos]

Bueno, con arreglos se podría hacer algo así:

Código Delphi [-]

type Arr=array [1..2] of Smallint;

{. . .}

var p:^Arr;
     Rec:TFUsAct;
begin
  p:=@Rec;
  p^[1]:=3;
  p^[2]:=17;
  ShowMessage(IntToStr(Rec.Codigo)+' - '+IntToStr(Rec.numero));
end;

Cuya practicidad es discutible. Pero que funciona, funciona.

Saludongos.