[Lazarus] Class const of array of record.

Everton Vieira tonvieira at gmail.com
Fri Feb 24 15:16:39 CET 2012


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 <tonvieira at gmail.com>

> 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.
>



-- 
Everton Vieira.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120224/75385758/attachment-0003.html>


More information about the Lazarus mailing list