[Lazarus] Class const of array of record.

[Adrian Veith]

try

((Numero:1;  Nome'everton'), (Numero:2; Nome: 'murilo'), (Numero:3; 
Nome:'vieira'));
Am 24.02.2012 14:28, schrieb Everton Vieira:
> 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?
>
> -- 
> Everton Vieira.
>
>
> This body part will be downloaded on demand.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120224/3f2f8f97/attachment-0003.html>