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