The weather has been unusually hot and dry for the time of year in the UK — so I got on with painting the outside of my house rather than replying to EMails — so maybe I have should have replied earlier.

Lazarus — это уже не Delphi, а нечто, написанное на коленке энтузиастами, со своими тараканами, багами и всеми остальными прелестями в виде разного поведения под разные операционки.

Когда померла Borland (а вместе с ней и Delphi) и начался цирк с конями в виде Code Gear/Ebmarcadero я понял, что надо валить из этого зоопарка. Lazarus в то время было неюзабельное говнище (думаю, что если посмотреть на кодогенерацию современных версий, то они недалеко ушли).

Я знаю, что некоторые здесь используют Лазаря в разработке (тот же Чёрный Властелин). Расскажите, как у вас это получается? Уже месяц потрачен на эту поделку, там вообще нифига не работает. Какие-то рандомные ошибки постоянно валятся, FPC через раз компилирует проект. Может просто перестать это делать с сообщениями типа "Error: Undefined symbol: .Lj3850". Причем решение проблем вообще не гуглится...

Фиг с ним, я вынес код для протектора в отдельную bpl и проблема пропала.
Будет время — подготовлю для вас тестовый пример, но не в ближайшее время.

function ExecuteOpenDialogForm(Report: TRDReport; var Id: Integer): Boolean;

function ExecuteOpenDialogForm(Report: TObject; var Id: Integer): Boolean;

procedure SendData(List: TList<TObject>);

type
  TObjectList = TList<TObject>;

procedure SendData(List: TObjectList);

s> procedure SendData(List: TList<TObject>);
s>

s> type
s>   TObjectList = TList<TObject>;

s> procedure SendData(List: TObjectList);
s>

program Project1;

{$mode delphi}

uses
  Generics.Collections;

procedure Proc(List : TList<TObject>);
var
  o : TObject;
begin
  for o in List do
    WriteLn(o.ToString);
end;

begin
  Proc(TList<TObject>.Create);
end.

R>program Project1;

R>{$mode delphi}

R>uses
R>  Generics.Collections;

R>procedure Proc(List : TList<TObject>);
R>var
R>  o : TObject;
R>begin
R>  for o in List do
R>    WriteLn(o.ToString);
R>end;

R>begin
R>  Proc(TList<TObject>.Create);
R>end.