seltsamer Fehler bei der Arbeit mit Klassen

[Leuselator]

Was Du da möchtest, geht so einfach leider nicht. Dazu solltest Du Dich entweder mal in das Thema Interfaces und Mehrfachvererbung reinwurschteln (vorsicht - Heftig!), damit könntest Du solche Effekte erzielen, oder Du machst es auf die im Folgenden vorgeschlagene, an TField angelehnte Weise. Beispiel:

Delphi-Quellcode:

TUniClass = class(TObject)
private
  FValue : Variant;
  function  GetString : String;
  procedure SetString(Value:String);

  function  GetInteger : Integer;
  procedure SetInteger(Value:Integer);

public 
  property Value : Variant read FValue write FValue;
  property AsString  : String     read GetString write SetString;
  property AsInteger : Integer    read GetInteger write SetInteger;
end;
implementation

TUniClass.function  GetString : String;
begin
  Result := String(FValue);
end;

TUniClass.procedure SetString(Value:String);
begin
  FValue := Value;
end;
//... etc.

Gruß