Variable mit bestimmbarem Datentyp?

[milos]

Hallo,

ich würde gerne ein Klasse erzeugen bei der ich beim erzeugen einen bestimmten Datentyp wählen kann den ich dann für eine Variable in der Klasse benutzen soll. Also z.B.

Delphi-Quellcode:

var
var1, var2, var3 : TVariable;
begin
var1 := TVariable<string>.Create;
var2 := TVariable<integer>.Create;
var3 := TVariable<TKlasse>.Create;

ShowMessage(var1.Value); // Gibt einen string aus
ShowMessage(IntToStr(var2.Value)); // Einen Integer
ShowMessage(var3.Value.Message); // TKlasse, jedoch wäre "Message" dann ein String
end;

Bin um jeden Tipp dankbar

Grüsse,
Milu

Edit: Ich benutze XE6 und nicht Delphi 5 nur mal so als anmerkung

[himitsu]

Versuch es mal so:

Delphi-Quellcode:

type
  TVariable = class
  end;

  TVariable<T> = class(TVariable)
  private
    FVar: T;
  public
    constructor Create(Init: T);
  end;

Und zum Edit: Du hättest in den erweiterten Editor umschalten sollen, denn da hättest'e das bestimmt richtig ändern können.

[milos]

Oh cool, danke Das geht ja einfach ^^
Leider wusste ich nicht wie man das nennt, und somit hab ich bei der Google suche auch nicht wirklich was gefunden :/

Und das mit dem Erweiterten Editor wusst ich auch noch nicht

Aber vielen dank

MfG

[himitsu]

Vererbung

Wie bei den anderen Klassen passt ein Nachfahre natürlich nur in Variablen vom selben Typ, oder von Vorfahren.
Und da die generischen Ableitungen quasi jeweils einen "eigenständigen" Typen erzeugen, sind sie untereinander natürlich nicht kompatibel, außer gegen einen der gemeinsamen Vorfahren.


XE6: Macht nichts.
Du könntest das zwar immernoch berichtigen, aber es gibt dort eh noch kein XE6.
Darfst aber gern den Bug-Report puschen: http://www.delphipraxis.net/issue-433/

[Dejan Vu]

Darf ich mal fragen, wozu man soetwas benötigt und warum ein Variant hier nicht infrage kommt?

[milos]

Zitat von himitsu:

Vererbung

Wie bei den anderen Klassen passt ein Nachfahre natürlich nur in Variablen vom selben Typ, oder von Vorfahren.
Und da die generischen Ableitungen quasi jeweils einen "eigenständigen" Typen erzeugen, sind sie untereinander natürlich nicht kompatibel, außer gegen einen der gemeinsamen Vorfahren.


XE6: Macht nichts.
Du könntest das zwar immernoch berichtigen, aber es gibt dort eh noch kein XE6.
Darfst aber gern den Bug-Report puschen: http://www.delphipraxis.net/issue-433/

Danke für die Info
Hab mal gepusht ^^

Zitat von Dejan Vu:

Darf ich mal fragen, wozu man soetwas benötigt und warum ein Variant hier nicht infrage kommt?

Weil mir die Datentypen die Variant unterstützt nicht ausreichen.

MfG

[jaenicke]

Zitat von Dejan Vu:

Darf ich mal fragen, wozu man soetwas benötigt und warum ein Variant hier nicht infrage kommt?

Weil das im Vergleich zu Generics deutlich langsamer wäre und auch keinen Sinn macht, wenn man das Problem mit Generics typsicher und performant lösen kann.

[Stevie]

Zitat von himitsu:

Versuch es mal so:

Delphi-Quellcode:

type
  TVariable = class
  end;

  TVariable<T> = class(TVariable)
  private
    FVar: T;
  public
    constructor Create(Init: T);
  end;

Zu dumm nur, dass man mit einem TVariable nicht an den typisierten Value kommt.
Leute, versucht doch nicht immer alle Probleme mit Generics zu erschlagen, wo Generics überhaupt keinen Sinn machen.
Polymorphie und Generics passen nunmal nicht zusammen.

Bei Generics lege ich zur Compiletime fest, welchen Typ ich haben will und nicht zur Laufzeit.
Da würde ich fragen, warum lege ich die Typen der Variablen nicht gleich auf string, Integer und TKlasse fest.

Zum Transport von Werten, wo man zur Compilezeit noch nicht weiß, was dort reinkommt, gibt es TValue. Aber auch dort muss man wieder das herausholen, was man reingepackt hat (AsType<T> ).

Delphi-Quellcode:

var
  var1, var2, var3: TValue;
begin
  var1 := 'Hello World';
  var2 := 42;
  var3 := myObj;

  ShowMessage(var1.AsString); 
  ShowMessage(IntToStr(var2.AsInteger); // Alternativ: var2.ToString
  ShowMessage(var3.AsType<TKlasse>.Message); 
end;

Bitte dran denken: TValue ist strikt, was Typen angeht, hier findet keine Konvertierung von Typen statt, die nicht direkt zuweisungskompatibel sind (also wenn du z.B. einen Integer rein packst, dann wirft AsString eine Exception). ToString hingegen kann einige Typen zu einem String konvertieren.