zzlovelyboy的专栏

var  i: Integer;begin  i := 10;  while i > 0 do  begin    if i = 8 then    begin      Dec(i);//如果没有这个，会形成死循环，对于此类使用计数的方法处理的使用continue特别要注意。      Continue;    end;    Dec(i)  end;  ShowMessage('op')...

第一步： 修改属性    1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown    2、parseinput -> true第二步：在onUserInput事件中写一句代码DateTimePicker1.DateTime:=DateAndTime;...