[Lazarus] Class const of array of record.

Everton Vieira tonvieira at gmail.com
Fri Feb 24 14:28:30 CET 2012


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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120224/a8540e33/attachment-0002.html>


More information about the Lazarus mailing list