N
Size: a a a
N
GB
N
GB
TTest1 = classэто что оно имеет в виду?? :)
end;
TTest2<S: TTest1> = class
public
f: S;
function test(): Integer; inline;
end;
...
procedure TTest2<S>.test();
begin
F := TTest1.Create(); // Error:(25, -1) DELPHI: Incompatible types: 'S' and 'TTest1'
end;
GB
VA
TTest1 = classэто что оно имеет в виду?? :)
end;
TTest2<S: TTest1> = class
public
f: S;
function test(): Integer; inline;
end;
...
procedure TTest2<S>.test();
begin
F := TTest1.Create(); // Error:(25, -1) DELPHI: Incompatible types: 'S' and 'TTest1'
end;
F := TTest1.Create() as S;GB
F := TTest1.Create() as S;VA
GB
GB
VA
TTest2<S: TTest1, constructor> = class
public
f: S;
function test(): Integer; inline;
end;
function TTest2<S>.test: Integer;
begin
F := S.Create;
end;GB
TTest2<S: TTest1, constructor> = class
public
f: S;
function test(): Integer; inline;
end;
function TTest2<S>.test: Integer;
begin
F := S.Create;
end;SB
VA
SB
VA
DB
SB
AS