我可以使用中间保存记录对字符串使用类运算符。
这样我就可以隐式转换内置类型。
program TestNewStringHelper;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
type
TStringRecord = record
private
Data: string;
public
class operator Implicit(const a: TStringRecord): Integer; inline;
class operator Implicit(const a: string): TStringRecord; inline;
end;
{ TStringRecord }
class operator TStringRecord.Implicit(const a: string): TStringRecord;
begin
pointer(Result.Data):= pointer(a);
end;
class operator TStringRecord.Implicit(const a: TStringRecord): Integer;
begin
Result:= StrToInt(a.Data);
end;
var
input: TStringRecord;
output: integer;
begin
input:= '42';
output:= input;
WriteLn(IntToStr(output));
ReadLn;
end.
我想做一些类似的事情:
var
input: string;
output: integer;
begin
input:= '42';
output:= input; //Class operator magic
WriteLn(IntToStr(output));
ReadLn;
end.
根据在线帮助:
注意:类和记录助手不支持运算符重载。
和http://qc.embarcadero.com/wc/qcmain.aspx?d=72253
是否有解决方法,可以在不使用中间类型的情况下实现内置类型的隐式转换?
记录和类帮助器是扩展现有类型的方法范围的唯一方法。而且助手不允许操作员重载。
您可以在定义类型的同时定义重载运算符。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句