TFPGList с записью в режиме objfpc - PullRequest
Новая
       34

TFPGList с записью в режиме objfpc

0 голосов
/ 05 июля 2019

Я хочу использовать TFPGList с пользовательской записью. Мне потребовалось много времени, чтобы получить все необходимые подсказки из Интернета, чтобы скомпилировать этот небольшой фрагмент: 

program Project1;
{$mode delphi}{$H+}
uses
  fgl;

type    
  TSomeRecord = record
    feld_1: Byte;
    class operator Equal(Left, Right : TSomeRecord) Result : Boolean;
  end;

  class operator TSomeRecord.Equal (Left, Right: TSomeRecord) Result:  Boolean;
  begin
    Result := Left.feld_1 = Right.feld_1;
  end;

type
  TypedList = TFPGList<TSomeRecord>;

var
  x : TypedList;

begin
end.

Как видите, проблема заключается в указании оператора Equal для записи. Кроме того, это представляется возможным только в режиме delphi.

Предполагается, что я хотел написать эту программу не в режиме delphi, а в режиме objfpc. Каким будет правильный синтаксис для указания оператора Equal для записи? Возможно ли это?

Моя версия fpc 3.0.4

...