2021年10月27日 星期三

Delphi Record Helper , Class 功能擴充

 

Record Helper


Ex:

type
  TIntegerHelper = record helper for Integer
  public
    function ToString: string;
  end;

function TIntegerHelper.ToString:String;
begin
  Result := IntToStr(Self);
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:Integer;
begin
  showmessage(a.ToString());
end;

有國外網友將DateTime Class擴充功能,利於方便操作



沒有留言:

張貼留言