ich versteh das nicht, den String kann ich wunderbar zuweisen, aber nicht die Variable vom Typ TDateTime
Wieso ??? ist das ein Compilerbug oder mach ich was falsch ?
Delphi-Quellcode:
type
TIBZeit = record
private
Value : TDateTime;
public
class operator implicit(Zeit : TDateTime) : TIBZEit;
class operator implicit(a : TIBZeit) : TDateTime;
class operator implicit(a : TIBZEit) : String;
end;
implementation
{$R *.dfm}
class operator TIBZeit.implicit(Zeit : TDateTime) : TIBZeit;
begin
result.value := Zeit;
end;
class operator TIBZeit.implicit(a : TIBZeit) : TDateTime;
begin
result := a.Value;
end;
class operator TIBZeit.Implicit(a : TIBZeit) : String;
begin
result := DateTimeToStr(a.value);
end;
//==============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var d : TDateTime;
Zeit : TIBZEit;
st : String;
begin
Zeit := now;
st := Zeit;
d := Zeit; /// geht nicht
end;