新！日期处理控件。

[lxj_com2006]

新！日期处理控件。

不使用任何其它日期控件，直接在 TEdit 中实现，

只能输入日期格式 如： 2007-1-10

月份不能大于12，天最好能控制不能超过月的最大天。

如何实现，有没有代码？？？

[aniugee]

procedure TfrmCHECKE.Edit1Exit(Sender: TObject);
begin
inherited;
if trim(Edit1.Text)='' then exit;
if not GF_Is_Date(Edit1.Text) then
begin
uf_Alert(''''+Edit1.Text+'''是无效的日期值!');
Edit1.Text:='';
Edit1.SetFocus;
end;
end;

function GF_Is_Date(StrDate: String): Boolean;
var
s_Date: String;
begin
s_Date:= Trim(StrDate);
begin
try
StrToDate(s_Date);
result:= true;
except
result:= false;
end;
end;
end;
试试这个！

[flashtong]

楼上的功能是实现了
但是用异常的不好

[lxj_com2006]

能不能做一个在输入时就控制的

[lxj_com2006]

我是想要能过滤的那种，非法日期不能输入！

[qzmp_sc]

汗。。。日期还有28，29，30，31天的咧~~比较罗嗦

[hongqi162]

实现起来相当麻烦，没有代码



回帖完毕

[lxj_com2006]

肯定有的。

[pongjun64]

方法是人想出来的，这个只能自己去解决了

[zhengsq007]

能实现，可是没必要

[yousite1]

用KEYPRESS事件去处理可以实现的。不过太麻烦了。

[flashtong]

function isdate(str: string): Boolean;
const datastr = '1234567890-';
var i: integer;
datestrlist: tstringlist;
begin
Result := False;
if length(trim(str)) < 1 then exit;
for i := 1 to length(str) do
if (pos(str[i], datastr) < 1) then exit;
datestrlist := tstringlist.Create;
datestrlist := split(str, '-');
try
with datestrlist do
begin
if Count <> 3 then exit;
if not isInteger(Strings[0]) then exit;
if not isInteger(Strings[1]) then exit;
if not isInteger(Strings[2]) then exit;
if (strtoint(Strings[0]) < 1500) or (strtoint(Strings[0]) > 5000) then exit;
if (strtoint(Strings[1]) < 1) or (strtoint(Strings[1]) > 12) then exit;
if (strtoint(Strings[2]) < 1) or (strtoint(Strings[2]) > 31) then exit;
end;
Result := true;
finally
datestrlist.Free;
end;
end;

//这个函数基本能够实现，但是不能检查2-31这样的错误，你如果需要就加上吧，我用是够了。

[aniugee]

用TEDITMASK控件，更改其中一个属性EditMask,在里面选择你要的格式就行了
有个小缺点是，在输入时会有一条细线在控制你的输入

[nevergetwin]

为什么不用MaskEdit？

[仙侣步惊云]

应该是很容易的，首先是限定为数据输入，再用delphi的函数判断是否是有效的日期