XE2 GENERIC RECORDS als Funktionsparameter

[Uwe Raabe]

Aber so sollte es gehen:

Delphi-Quellcode:

procedure IdTCPServerReadCommandRecord<T>(AContext: TIdContext; ReceiveRecord : TGenericRecord<T> );
begin
end;

...

var
  aSendrecord : TGenericRecord<TCommBlock>; /// verschiedene generic records
  aReceiveRecord : TGenericRecord<TCommBlock>;
  aReceiveDataRecord : TGenericRecord<TDataBlock>;
  Context: TIdContext;
begin
  ...
  IdTCPServerReadCommandRecord<TCommBlock>(context, AReceiveRecord);
  IdTCPServerReadCommandRecord<TDataBlock>(context, AReceiveDataRecord);
  ...
end;