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