请帮我看看我的代码哪错了？——关于全局变量的问题 。(50分)

香

香水雨落

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

在unit1单元中，area 是我定义的全局变量，string 类型。我在unit2中是这样写的：
uses unit1
...
procedure TForm3.FormShow(Sender: TObject);
begin
case area of //可是到这行就出错，信息在下面
'长春地区':
with query1 do
begin
...
end;
end;
end;
错误信息如下：
[Error] Unit3.pas(316): Ordinal type required
[Error] Unit3.pas(317): Incompatible types: 'Integer' and 'String'
请问各位是为什么呀？

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

case 语句后好象只可以跟整型变量：）
中转一下吧，比如1代表‘长春地区’

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

Delphi的Case和其他开发工具有点区别，
她的case area of的area不能是字符串类型的！其他的看帮助

 

W

wjames

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

同意楼上的

 

H

hjb_dydd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #5

Case 中不能用字符串定位，
Case I Of
1:begin
..... end;
2:begin
..... end;
(正确)
Case Str Of
'1':begin
.... end;
(错误)
明白？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #6

看看case的帮助好吗？[]

 

香

香水雨落

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #7

多人接受答案了。