delphi初学者的2个幼稚问题，谢谢帮忙(30分)

X

xjzjgydx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #1

我在edit1里填了2004，edit2里填了4
1.我怎么把edit1.text里的2004转换为数字类型
2.我怎么判断edit1.text里的2004是闰年，具体怎么写，完整的代码，谢谢：）

 

A

aimeoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #2

看来,问题不是大问题!!!! 你说明白一些 别人才能帮你的

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #3

uses DateUtils;

var I:Integer;

I:=StrToInt(Edit1.Text)
//1
if IsLeapYear(I) then ShowMessage('闰年')
//2

 

A

aimeoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #4

//edit2里填了4

是什么意思?

 

Y

yux3951

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #5

同意 TYZhang

 

Q

qinjlin76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #6

uses
。。。。。， DateUtils;

var
I:Integer;

I:=StrToInt(Edit1.Text)

if IsLeapYear(I) then
ShowMessage('闰年');

 

C

cyf_106

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #7

uses
。。。。。， DateUtils;

var
I:Integer;

I:=StrToInt(Edit1.Text)

if IsLeapYear(I) then
ShowMessage('闰年')

还有
if (I div 400=0) or((i div 100<>0 )and(i div 4=0))then rn;