Generic ToString?

[Whookie]

Ist ein Generic ToString möglich?

Beispiel:

Delphi-Quellcode:

Type
  TMyVar<T> = Class
    Value: T;
    function ToString: String
  End;

Wie würde ToString zu implementieren sein?

   Result := Value.ToString geht leider nicht und prüfen mit "Is" geht nicht immer.

[mkinzler]

Nein, .ToString() wird nicht von allen Typen unterstützt und kann deshalb so nicht vorausgesetzt werden.

[Der schöne Günther]

Du könntest vielleicht deinen Typ auf einen Wrapper einschränken, beispielsweise System.Rtti.TValue

[Sir Rufo]

Achtung das müsste eigentlich override gekennzeichnet werden TObject.ToString

[Der schöne Günther]

Wieso überladen? Er will doch an der Signatur nichts ändern.

Dass er das override vergisst müsste ja auch in seinen Warnungen stehen

[Sir Rufo]

Zitat von Der schöne Günther:

Wieso überladen? Er will doch an der Signatur nichts ändern.

Dass er das override vergisst müsste ja auch in seinen Warnungen stehen

Das wollte ich eigentlich auch sagen, hab mich da wohl im Wortregal vergriffen

[Whookie]

ja, war mal wieder zu "theoretisch" momentan sieht das so aus:

function ToString: TStringList; reintroduce;
und die Abfragen erfolgen so:

Delphi-Quellcode:

function TMyVar<T>.ToString: TStringList;
begin
  Result := TStringList.Create;
  if ClassName.Contains('Integer') Then
    ConvIntegerToSL(Result)
  else if ClassName.Contains('TMyClass') then
    .. usw.
end;

[Sir Rufo]

Aua, da kannst du dir aber schöne Speicherlecks mit erstellen

Und diese BasisMethode so zu vergewaltigen ist auch nicht ratsam. Dafür würde ich eine eigene Methode einführen ToStrings : TStrings obwohl ich da eher zu TArray<string> tendieren würde, da gibt es keine Lecks.

Mit TValue.From<T>.AsString kann man auch eine Menge erschlagen

[Whookie]

Zitat von Sir Rufo:

Aua, da kannst du dir aber schöne Speicherlecks mit erstellen

Ist ein Argument, ich kopier das am ende in ein TArray<String> um und geb die Liste selber frei

Das mit TValue krieg ich aber irgendwie nicht hin, ich hab eine rekursiv aufgerufene Methode die wie folgt aussieht:

Delphi-Quellcode:

procedure TWrapVariable<T>.DoConvertToString(const Lvl: Integer; const x: TVariable<T>; const ALst: TStringList);
var
  i: Integer;
  iVi: TVariable<Integer>;
  iVf: TVariable<Single>;
  iVs: TVariable<AnsiString>;
  iVb: TVariable<Boolean>;
  s: String;
begin
  if Length(x.FVarArr)=0 then
  begin
    if (fVarType = gicInteger)  then
    begin
      x.AsVariable(iVi);
      s:= TValue.From<TVariable<T>>(x).AsString; // comiled zwar wirft aber eine EInvalidCast
      fToStrBuffer := fToStrBuffer + Format('%d,', [iVi.FValue]);
    end
    else if (fVarType = gicFloat) then
    begin
      x.AsVariable(iVf);
      fToStrBuffer := fToStrBuffer + Format('%1.5f,', [iVf.FValue]);
    end
    ....
  end;

  for i := Low(x.FVarArr) to High(x.FVarArr) do
  begin
    DoConvertToString(Lvl+1, x.FVarArr[i] As TVariable<T>, ALst);
  end;


  if (Length(x.FVarArr) <> 0) Or (Lvl=0) then
  begin
    ALst.Add(fToStrBuffer);
    fToStrBuffer := '';
  end;
end;

weiter hinten wird dann über das interne fVarArr iteriert und im anschluß der fToStrBuffer-String der Stringliste
hinzugefügt.

[Stevie]

Zitat von Sir Rufo:

Mit TValue.From<T>.AsString kann man auch eine Menge erschlagen

Mit ToString bitte. AsString wird dich anspringen, wenn T irgendwas nicht string zuweisungskompatibles ist. So wie alle TValue.AsXXX Methoden.