Unit TypInfo wurde mit einer anderen Version... InvokableVariantType Compiliert...

[FragenderHerbert]

Hallo,

ich teste gerade die Demos aus Delphi-Test-Apps-master.zip von einem DP User hier, ich vermute @sx2008.

Beim Projekt "ComponentControl..." erhalte ich die obige Fehlermeldung.

Warum?

Im Quellcode wird nirgends auf diesen Typ Bezug genommen, warum dann dieser Compilerfehler. Wurde das evt. mit einer höheren Delphi Version übersetzt. Ich könnte so einen Fehler noch verstehen, wenn die betroffene Unit, hier "TypeInfo" in der Uses Klausel aufgeführt wäre, aber das ich nicht der Fall und auch der monierte Datentyp kommt im Quelltext nicht vor.

Außerdem erhalte ich noch die Meldung:

[Pascal Fataler Fehler] unit1.pas(6): F2051 Unit Classes wurde mit einer unterschiedlichen Version von System.@VarClr compiliert.

Auch diesen Typ suche ich im Quellcode vergebens. Hier ist er noch mal, aus Delphi-Test-Apps-master original hiereher kopiert:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    TreeView1: TTreeView;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation


{$R *.DFM}


function GetComponentName(c: TComponent): string;
begin
   Result := c.Name;

   if Result = '' then
   begin
      Result := '0x' + Format('%.8x',[Integer(c)]);
   end;
end;

procedure BuildComponentTree(c:TComponent; tn:TTreeNodes);
   procedure AddComponent(n: TTreeNode; nodes:TTreeNodes;c: TComponent);
   var
      n1: TTreeNode;
      i: Integer;
   begin
      n1 := nodes.AddChildObject(n,GetComponentName(c)+': '+c.ClassName,Pointer(c));

      for i := 0 to c.ComponentCount-1 do
      begin
         AddComponent(n1, nodes,c.Components[i]);
      end;
   end;
begin
   AddComponent(nil, tn, c);
end;

procedure BuildControlTree(c: TControl; tn:TTreeNodes);
   procedure AddControl(n: TTreeNode; nodes:TTreeNodes;c: TControl);
   var
      n1: TTreeNode;
      i: Integer;
   begin
      n1 := nodes.AddChildObject(n,GetComponentName(c)+': '+c.ClassName,Pointer(c));

      if c is TWinControl then
      begin
         for i := 0 to TWinControl(c).ControlCount-1 do
         begin
            AddControl(n1, nodes,TWinControl(c).Controls[i]);
         end;
      end;
   end;

begin
   AddControl(nil, tn, c);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   TreeView1.Items.Clear;
   BuildComponentTree(Application, TreeView1.Items);
   TreeView1.FullExpand;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   TreeView1.Items.Clear;
   BuildControlTree(self, TreeView1.Items);
   TreeView1.FullExpand;
end;

end.

Ich habe Turbo Delphi 2006

Gibt es einen Workaround, um das Beispiel studieren und zu diesem Zweck auch übersetzen zu können?