Unverständliche Fehlermeldung E2010 in Verbindung mit Varianten

[Uwe Raabe]

So geht's auch:

Delphi-Quellcode:

procedure TMyClass.DoSomething;

  procedure PerformRec(ARec: TRec);
  begin
  end;

  procedure SetVariant(var V: Variant);
  begin
    V.A.B := 5;
  end;

var
  V: Variant;
begin
  SetVariant(V);

  for var Rec in FRecs do
    PerformRec(Rec);
end;