if a<t then
begin
if b=t then
begin
temp:=b;b:=a;a:=temp;
end;
if c=t then begin temp:=c;c:=a;a:=temp; end;
if d=t then begin temp:=d;d:=a;a:=temp;end;
end;
begin
if b=t then
begin
temp:=b;b:=a;a:=temp;
end;
if c=t then begin temp:=c;c:=a;a:=temp; end;
if d=t then begin temp:=d;d:=a;a:=temp;end;
end;
解决方案 »
- delphi datetimepicker 设置时间成2010-10-10
- 为什么csdn的个人档案编辑改不了我的昵称?
- 几个editkeypress的代码相同 怎么使其他的都引用第一个的代码
- 百度贴吧助手新版开发中
- 求救!!!我的密码验证的问题!!!UP 有分!
- 急啊:在多线程中,如何知道某个线程使用的变量是不是他自己的,如果要明确线程使用它自己的变量?请看详情
- 小问题,大家看看!!
- 高手們快快進來!!!急急.......(圖象多及媒體)
- 救命呀 大虾。。。。。。。。。。。。。。。。。。。。。。!!!!
- 请教各位delphi7 打印问题,只打印一次便停止了,什么原因?
- 为什么同一进程,同一connection,只是不同时候修改了数据,会出现冲突???
- 我在学DELPHI的XML编程,请问少了MSXML2_TLB.DCU文件....
if a<t then
begin
if b=t then b:=a;
if c=t then c:=a;;
if d=t then d:=a;
a:=t;
end;