Y
Ctrl+D.Size: a a a
Y
Ctrl+D.Y
unit utest;
{$mode delphi}{$H+}
interface
uses
Classes, SysUtils, fgl;
type
TTestData = record
Value1: integer;
Value2: string;
Value3: integer;
class operator = (Left, Right : TTestData) Result : Boolean;
end;
TTestList = TFPGList<TTestData>;
implementation
class operator TTestData. = (Left, Right: TTestData)Result: Boolean;
begin
Left := Right;
Result := True;
end;
end.
KB
Y
RS
Ctrl+D.Y
RS
RS
Y
DB
DB
Y
MyList: TList<MyStruct>; И этого достаточно.DB
Y
class operator TTestData. = не заходит :)DB
MyList: TList<MyStruct>; И этого достаточно.DB
class operator TTestData. = не заходит :)RS
class operator TTestData. = не заходит :)Y
Y
DB
procedure TForm1.Button1Click(Sender: TObject);
var
TestList, TestList2: TTestList;
begin
TestList := TestList2;
end;