Unverständliche Fehlermeldung E2010 in Verbindung mit Varianten

[Uwe Raabe]

Der Fehler kommt auch nicht, wenn man die Variant-Zuweisung raus nimmt.

Update:

Delphi-Quellcode:

 V := 5      // geht
 V.A := 5    // geht
 V.A.B := 5; // geht nicht

[BigAl]

Zitat von Uwe Raabe:

Der Fehler kommt auch nicht, wenn man die Variant-Zuweisung raus nimmt.

Klar. Hatte ich vergessen. Aber das ist halt die Konstellation die ich im Programm habe. Das sieht dann im Programm z.B. so aus:

Delphi-Quellcode:

  ...
  AExcel.Cell[2, Line] := 'Content';
  AExcel.Range(2, Line, 3, Line).Font.Bold := True;
  AExcel.Range(2, Line, 3, Line).Borders[xlEdgeBottom].LineStyle := xlContinuous;
  AExcel.Range(2, Line, 3, Line).MergeCells := True;

  for var Page in FPages do
    ShowPages(Page, Line);

  // Show all parameters left aligned.
  AExcel.Range(CellStart, AExcel.Cell[2, Line]).HorizontalAlignment := xlLeft;
  ...

[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;

[Uwe Raabe]

Oder so:

Delphi-Quellcode:

procedure TMyClass.DoSomething;

  procedure PerformRec(ARec: TRec);
  begin
  end;

  procedure IterateRecs;
  begin
    for var Rec in FRecs do
      PerformRec(Rec);
  end;

var
  V: Variant;
begin
  V.A.B := 5;

  IterateRecs;
end;

[Uwe Raabe]

Unabhängig von den Workarounds würde ich den Testcode in QP melden. Das sollen sich die Compiler-Freaks mal ansehen.

[BigAl]

Zitat von Uwe Raabe:

Unabhängig von den Workarounds würde ich den Testcode in QP melden. Das sollen sich die Compiler-Freaks mal ansehen.

Werde ich tun. Du hast mich aber auf eine Idee für einen Workaround gebracht der funktioniert:

Delphi-Quellcode:

procedure TMyClass.DoSomething;

  procedure PerformRec(ARec: TRec);
  begin
  end;

  procedure Blub;
  begin
    for var Rec in FRecs do
      PerformRec(Rec);
  end;

var
  V: Variant;
begin
  V.A.B := 5;
  Blub;
end;

Ist mir lieber als den Parameter als Pointer zu übergeben...

Ich brauche das "PerformRec" genau an dieser Stelle. Es handelt sich dabei um eine rekursive Prozedur die eine Baumstruktur verarbeitet. Diese sieht etwa so aus:

Delphi-Quellcode:

  procedure ShowPages(APage: TPage; var Line: Integer);
  begin
    { ... }
    Inc(Line);
    for var Page in APage.SubPages do
      ShowPages(Page, Line);
  end;

[BigAl]

Hoffe das reicht so: RSP-41161

[Uwe Raabe]

Sehr schön. Ich habe das mal entsprechend kommentiert.