delphi

可变参数 SysUtils.Format

Format(const S : String; const args : array of const);

默认值

Debug(const Msg : String; const Err : Exception = nil);

控件的 Anchors 属性: 保持与父控件相应边界的距离固定

日期时间

unit uSpecializedDateTimeFormatter;

{ 关于 日期时间 与 字符串 转换的特化函数
  ---------
  为转换下列格式而写 :
    yyyy-MM-dd HH:mm:ss
    yyyy-MM-dd
    HH:mm:ss
}
interface


type
  TSpecializedDTFmtter = class
    public
      class function Fmt(const AFmtString : String; const ADateTime : TDateTime) : String;
      class function Parse(const ADateTimeStr : String) : TDateTime;
  end;


implementation

uses
  SysUtils;


var
  _FmtSettings : TFormatSettings;


class function TSpecializedDTFmtter.Fmt(const AFmtString : String; const ADateTime : TDateTime) : String;
begin
  Result := FormatDateTime(AFmtString, ADateTime, _FmtSettings);
end;

class function TSpecializedDTFmtter.Parse(const ADateTimeStr : String) : TDateTime;
begin
  Result := StrToDateTime(ADateTimeStr, _FmtSettings);
end;


function GetFmtSettings() : TFormatSettings;
begin
  GetLocaleFormatSettings(0, Result);

  Result.DateSeparator := '-';
  Result.TimeSeparator := ':';

  Result.ShortDateFormat := 'yyyy-MM-dd';

  Result.LongTimeFormat := 'HH:mm:ss';
end;


initialization
  _FmtSettings := GetFmtSettings();


end.

---------  THE END  ---------