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.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
