📄 s2.tools.ts2date.pas
字号:
unit S2.Tools.TS2Date;
interface
uses
Controls, S2.Tools.TS2Data, S2.Tools.IS2Date;
type
TS2Date = class(TS2Data, IS2Date)
private
Value: TDateTime;
public
function GetValue: TDate; virtual;
procedure SetValue(const Value: TDate); virtual;
end;
implementation
{ TS2Date }
function TS2Date.GetValue: TDate;
begin
Result := Value;
end;
procedure TS2Date.SetValue(const Value: TDate);
begin
Self.Value := Value;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -