Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Vererbung mit mehrfach eingeschränktem TypParamater

  Alt 19. Mai 2014, 12:28
Du hast
  1. immer noch nicht die Delphi-Tags verwendet
  2. bei Klasse0<T:IKlasse1,IKlasse2> angegeben, dass du genau einen Typ-Parameter angeben möchtest und versuchst dort jetzt zwei anzugeben

So geht es (aber ich weiß nicht, ob es das ist, was du willst)
Delphi-Quellcode:
program dp_180380;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  IKlasse1 = interface
    ['{E90AABBF-1711-4E09-AD38-63A6F53C2DBA}']
  end;

  IKlasse2 = interface
    ['{8D8349B5-F5C2-4F85-9DAC-606D7307667A}']
  end;

  TKlasse0<T : IKlasse1, IKlasse2> = class( TInterfacedObject )

  end;

  TKlasse = class( TInterfacedObject, IKlasse1, IKlasse2 )

  end;

  TKlasse1 = class( TKlasse0<TKlasse> )
  end;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

end.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (19. Mai 2014 um 12:36 Uhr)
  Mit Zitat antworten Zitat