Ist ein Generic ToString möglich?

Beispiel:

markieren

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.

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

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

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

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

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

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

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

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

markieren

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;

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

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:

zusammenfalten · markieren

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.

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.