Number := StrToInt(Edt_Month.Text);类型不配(100分)

Z

zhangjianupc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #1

var
Number:integer;
begin
Number := StrToInt(Edt_Month.Text);
Case Number of
......
end;
我想请问为什么Number := StrToInt(Edt_Month.Text);显示Missing operator or semicolon

 

G

gzyhl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #2

Number := StrToIntDef(Edt_Month.Text,0);
用这个试试。

 

Y

yf168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #3

在哪一行包的错？
估计是 case这里 没有end
Case Number of
......
end;

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #4

Missing operator or semicolon 缺少操作符或分号

可是看代码没什么问题啊~

 

Z

zhangjianupc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #5

可是我的Case用了end啊，还是会出错

 

F

Fenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #6

Number := StrToInt(Edt_Month.Text);应该没问题，Delphi帮助中的例子就这样写的，
可能是其他地方错了，把全部代码贴出来看看。

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #7

代码不全，再多贴点代码上来看看。

 

W

WoDing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #8

全部代码，你的操作符是不是有全角的空格什么的

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
number :integer;
begin
number := strtoint(Edit1.Text);
case number of
1: ;
2: ;
else ;
end;

end;

//我贴了完整代码，请楼主检查你别的地方是不是漏掉分号了~

 

R

rhyme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #10

肯定是某个地方缺少分号。

 

Z

zhangjianupc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #11

采用Number := StrToIntDef(Edt_Month.Text,0);一样的错误，我估计是数据类型的不匹配

 

R

rhyme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #12

你写的语句没有问题，应该找找其他地方。

 

Z

zhangjianupc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #13

var
Number:integer;

Number := StrToInt(Edt_Month.Text);
Case Number of
1,3,5,7,8,10,12 :Edt_Day.Text:='31天';
4,6,9,11 :Edt_Day.Text:='30天';
2 :if Fleapyear then
Edt_Day.Text:='29天'
Else
Edt_Day.Text:='28天';
end;

 

F

Fenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #14

刚才试了一下，我这段代码可以运行通过，(Delphi7)
procedure TForm1.Button1Click(Sender: TObject);
var
number :integer;
begin
number := strtoint(Edit1.Text);
case number of
1: Edit2.Text := '一';
2: Edit2.Text := '二';
else
Edit2.Text := 'Error';
end;

end;

 

I

iKing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #15

贴出来的部分没有问题(加上begin 以后)
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Fleapyear : boolean
//——
Number:integer;
begin
Number := StrToInt(Edt_Month.Text);
Case Number of
1,3,5,7,8,10,12 :Edt_Day.Text:='31天';
4,6,9,11 :Edt_Day.Text:='30天';
2 :if Fleapyear then
Edt_Day.Text:='29天'
Else
Edt_Day.Text:='28天';
end;
end;

 

R

rhyme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #16

你的那段代码没有问题！找其他地方

 

Z

zhangjianupc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-15

• #17

谢谢回答