I was trying to make this construction:

type
  TRec = record
    Numero: Integer;
    Nome: String;
  end;
function mTRec(Numero: Integer; Nome: String): TRec;
type
  TTest = class
    const Nomes: array[0..2] of TRec = (mTRec(1, 'everton'), mTRec(2,
'murilo'), mTRec(3, 'vieira'));
  end;
implementation
{$R *.lfm}
function mTRec(Numero: Integer; Nome: String): TRec;
begin
  Result.Numero := Numero;
  Result.Nome := Nome;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  i1: Integer;
begin
  for i1 := 0 to Length(TTest.Nome) -1 do
    ShowMessage(TTest.Nomes[i1].Nome);
end;

Is there any how to do it?

[...]

Is there any how to do it?

Do what?

Above declaration looks to me as if you define a constant array, that exists only once in memory. You can move the "const..." out of the class, with the same effect.

DoDi

try
((Numero:1;  Nome'everton'), (Numero:2; Nome: 'murilo'), (Numero:3;
Nome:'vieira'));

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20120224/3f2f8f97/attachment.html>

Worked, even better than i thought.

Many thanks!
2012/2/24 Adrian Veith

Is contructions like this that aren't available:

type
  TRec = record
    Numero: Integer;
    Nome: String;
  end;
implementation
{$R *.lfm}
procedure ShowTRec(rec: TRec);
begin
  ShowMessage(rec.Nome);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowTRec((Numero: 1; Nome: 'Pascal'));
end;

In this constructions is that today is nice to use a function to create the TRec.

2012/2/24 Everton Vieira

static; should be a keyword, doesn't?

2012/2/24 Everton Vieira