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擴充功能，利於方便操作

https://github.com/colinj/TDateTimeHelper

參考至 http://grandruru.blogspot.com/2016/05/delphi-class-record-helper.html