Fehler bei Zugriff auf Objektliste

[cruiser]

Ich denk mal es geht um deine Python-IDE

Nimm eine TObjectList und speicher darin Klassen nach etwa dem Schema:

Delphi-Quellcode:

TPythonControl = class
private
  fComponentType : TCompoType; // TCompoType = (ctButton, ctEdit, ...);
  fComponentName : string;
  fIrgendeinAttribut : string;
  procedure SetIrgAttribut(Value: Integer);
  function GetIrgAttribut: Integer;
public
  property ComponentType: TCompoType read fComponentType write fComponentType;
  property ComponentName: string read fComponentName write fComponentName;
  property IrgendeinAttribut: Integer read GetIrgAttribut write SetIrgAttribut;
end;

In die Getter und setter baust du die Konvertierungen:

Delphi-Quellcode:

  procedure TPythonControl.SetIrgAttribut(Value: Integer);
  begin
    fIrgendeinAttribut := IntToStr(Value);
  end;

  function TPythonControl.GetIrgAttribut: Integer;
  begin
    Result := StrToInt(fIrgendeinAttribut);
  end;

Dazu speicherst du den Zeiger auf das VCL-Control in der Klasse und addest das ganze in die Liste, die Optimalerweise in einer Klasse eingebettet ist, welche das Formular der Python-Anwendung darstellt