Ш
Size: a a a
Ш
ДT
A
АВ
AS
AS
Y
program project1;
uses
fgl;
type
TMyRecord = record
Value: integer;
Name: string;
end;
TMyList = specialize TFPGList<TMyRecord>;
TExMyList = class(TMyList)
procedure ToDo(AValue: TMyRecord);
end;
procedure TexMyList.ToDo(AValue: TMyRecord);
begin
// do some things
end;
begin
end.
Y
Y
Record на Class то все нормально компилитсяШ
Ш
Y
Y
Y
Y
TMyRecord = record
Value: integer;
Name: string;
class operator = (X, Y: TMyRecord): boolean;
end;Ш
Ш
Y
{$modeswitch advancedrecords} 🤣Y
fgl или Generic.Collections?Y