XE2 GENERIC RECORDS als Funktionsparameter

[daywalker9]

Evtl <T> ergänzen bei der Deklaration der Funktion:


 TServerMainForm.IdTCPServerReadCommandRecord<T: TGenericRecord>(.., MyRecord : T) //muss vom Typ TGenericRecord sein Dann kannst Du jeden Record übergeben der vom Typ TGenericRecord ist

[bernhard_LA]

mag der compiler alles nicht


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

hier sagt mir der compiler unbekanntes feld TRecordType

und bei

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

sagt mir der compiler unbekannt TGenericRecord ... die definition von TGenericRecord ist aber definitiv eingebunden , denn die Version


procedure IdTCPServerReadCommandRecord(AContext: TIdContext; ReceiveRecord : TGenericRecord<TCommBlock> );
macht ja was sie soll und hier kennt der compiler alles

[daywalker9]

So müsste es aber tun:

Delphi-Quellcode:

type
  TGenRec<TRecordType>=class
  private
    FRecTyp: TRecordType;
  public
    property Rec : TRecordType read FRecTyp write FRecTyp;
  end;

type
  TForm6 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure doit<T>(rec:TGenRec<T>);
  end;

[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;

[bernhard_LA]

DANKE !! !!!!


wenn man die Lösung sieht ist eigentlich alles ganz einfach und logisch ....

[Uwe Raabe]

Zitat von bernhard_LA:

Delphi-Quellcode:

    procedure IdTCPServerSendCommandRecord(AContext: TIdContext;
      Sendrecord: TGenericRecord<T>);

Du hast ja auch das <T> im Methodennamen weggelassen!

IdTCPServerReadCommandRecord<T>