record helper für Enum -> implicit funktioniert nicht.

[bernau]

Zitat von Uwe Raabe:

Operator overloading wird in Helpern nicht unterstützt:

Folgendes compiliert und funktioniert. Da ist auch der class operator im Helper. Verstecktes feature

Delphi-Quellcode:

type
  TTestRecord = record
    value:Integer;
    end;

  TTestRecordHelper = record helper for TTestRecord
    class operator Implicit(a: TTestRecord): string;
    class operator Implicit(a: string): TTestRecord;
    class operator Implicit(a: TTestRecord): Integer;
    class operator Implicit(a: Integer): TTestRecord;
  end;

class operator TTestRecordHelper.Implicit(a: TTestRecord): string;
begin
  Result := inttostr(a.value);
end;

class operator TTestRecordHelper.Implicit(a: string): TTestRecord;
begin
  Result.value := strtoint(a);
end;

class operator TTestRecordHelper.Implicit(a: Integer): TTestRecord;
begin
  Result.value := a;
end;

class operator TTestRecordHelper.Implicit(a: TTestRecord): Integer;
begin
 Result := a.value;
end;

var
  lTestRecord:TTestRecord;
  lString:string;
  lInteger:Integer;
begin
  lTestRecord := 1;
  lString := lTestRecord;
  WriteLn(lString);

  lTestRecord := '2';
  lInteger := lTestRecord;
  WriteLn(inttostr(lInteger));

  Readln;
end.

[Rollo62]

Das ist ja wirklich super, dass dies funktioniert, aber soll ich das jetzt nutzen oder besser nicht
Wie steht Embarcadero denn dazu?

Die Implicit-Überladung scheint für Records zu funktionieren, für Enums aber nicht.
Enums werden in Delphi intern als Integer behandelt, das behandelt der Compiler womöglich nicht als Record.

[bernau]

Zitat von Rollo62:

Die Implicit-Überladung scheint für Records zu funktionieren, für Enums aber nicht.
Enums werden in Delphi intern als Integer behandelt, das behandelt der Compiler womöglich nicht als Record.

Die Implicit-Überladung bei Records ohne record helper funktioniert ja. Deshalb geht es wahrscheinlich auch im helper.

Schade, hätte es bei Enum sehr gut gebrauchen können.

[himitsu]

Zitat:

wenn ...

Du kannst also deinen Enum in einen Record packen und dort das "zufällig" funktionierende Implizite nutzen (fall Emba was ändert und es bald nicht mehr funktioniert ..... sie werden sich dann auch weigern es zu reparieren und mit ihrem geliebten "works as expected" antworten, denn es ist ja dokumentiert, dass es "eigentlich" nicht funktioniert)

[bernau]

Zitat von himitsu:

Zitat:

wenn ...

Du kannst also deinen Enum in einen Record packen und dort das "zufällig" funktionierende Implizite nutzen (fall Emba was ändert und es bald nicht mehr funktioniert ..... sie werden sich dann auch weigern es zu reparieren und mit ihrem geliebten "works as expected" antworten, denn es ist ja dokumentiert, dass es "eigentlich" nicht funktioniert)

Ein Implizit im Record sollte ja "offiziell" funktionieren. Nur im Helper ist es zufällig.

Also folgendes ist von der Doku gedeckt.

Delphi-Quellcode:

type
  TTestColor = (rot, gruen, blau);

  TTestRecord = record
    value: TTestColor;
    class operator Implicit(a: TTestRecord): string;
  end;

var
  lTestRecord: TTestRecord;
  lString: string;

  { TTestRecord }

class operator TTestRecord.Implicit(a: TTestRecord): string;
begin
  case a.value of
    rot: Result := 'rot';
    gruen: Result := 'gruen';
    blau: Result := 'blau';
  else
    Result := 'xxx';
  end;
end;

begin
  lTestRecord.value := gruen;
  lString := lTestRecord;
  WriteLn(lString);

  Readln;

end.

[HolgerX]

Hmm...

sollte das nicht

Delphi-Quellcode:

  TTestRecord = record
    value: TTestColor;
    class operator Implicit(a: TTestColor): string;
  end;

sein (TTestColor statt TTestRecord)?


EDIT:
Blubber, so wie Du in der funktion dann auf a.Value zugreifst, war es wieder richtig....

[himitsu]

Ich meinte im Helper des Records.

Du hattest ja einmal einen Helper an einem Enum, wo es nicht ging
und dann einen Helper an einem Records, wo du meinstest es ginge.

Aber stimmt schon, wenn man das Enum in einem Record verpackt,
dann könnte man die Implicite auch direkt in den Record packen, wo sie gehen,
anstatt noch einen Helper dafür zu bauen, wo es aktuell zu gehen scheint, aber es laut Doku nicht gehen sollte.

[himitsu]

@HolgerX:

Nee, Konvertierungs-Operatoren sollen eigentlich immer nur vom/zum "eigenen" Record-Typen zu/von anderen Typen gehen,
also schon TTestRecord und nicht TestColor, aber vom/zum Record zu/von TestColor, das wäre OK.

Delphi-Quellcode:

class operator Implicit(a: TTestRecord): string;
class operator Implicit(a: TTestRecord): TTestColor;
class operator Implicit(a: TTestColor): TTestRecord;
class operator Implicit(a: string): TTestRecord;