Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#5

AW: XE2 GENERIC RECORDS als Funktionsparameter

  Alt 28. Jun 2012, 13:44
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat