<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
try<br>
<br>
((Numero:1; Nome'everton'), (Numero:2; Nome: 'murilo'), (Numero:3;
Nome:'vieira'));<br>
Am 24.02.2012 14:28, schrieb Everton Vieira:
<blockquote
cite="mid:CAPNYM7JxmdXN1SR344ypP+ZTyLWdKsyiGb6KRGCjppG1zg_0Ag@mail.gmail.com"
type="cite">
<div>I was trying to make this construction:</div>
<div> </div>
<div>type<br>
TRec = record<br>
Numero: Integer;<br>
Nome: String;<br>
end;</div>
<div> </div>
<div>function mTRec(Numero: Integer; Nome: String): TRec;</div>
<div> </div>
<div>type<br>
TTest = class<br>
const Nomes: array[0..2] of TRec = (mTRec(1, 'everton'),
mTRec(2, 'murilo'), mTRec(3, 'vieira'));<br>
end;</div>
<div><br>
implementation</div>
<div> </div>
<div>{$R *.lfm}</div>
<div> </div>
<div>function mTRec(Numero: Integer; Nome: String): TRec;<br>
begin<br>
Result.Numero := Numero;<br>
Result.Nome := Nome;<br>
end;</div>
<div> </div>
<div>{ TForm1 }</div>
<div> </div>
<div>procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
i1: Integer;<br>
begin<br>
for i1 := 0 to Length(TTest.Nome) -1 do<br>
ShowMessage(TTest.Nomes[i1].Nome);<br>
end; </div>
<div> </div>
<div>Is there any how to do it?</div>
<div><br>
-- <br>
Everton Vieira.<br>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">This body part will be downloaded on demand.</pre>
</blockquote>
</body>
</html>