【结】这样写为什么不编译不过去【急】

pangshaowei · 发表于 2010-8-4 16:08:07

if ((iSFZ >='0') and (iSFZ[I] <= '9')) then
为什么编译不过去呢
或者这样写if iSFZ in ['0'..'9'] then
在X3里该如何写

atiger · 发表于 2010-8-4 16:26:21

http://bbs.justep.com/forum.php?mod=viewthread&tid=3653

pangshaowei · 发表于 2010-8-4 16:35:04

我刚才看了下那个帖子，那帖子5楼说可以这样写：
if (iSFZ ='0') or (iSFZ = '1') or (iSFZ = '2') or (iSFZ = '3')then 但是为什么还是编译不过去

wuchao · 发表于 2010-8-4 17:27:57

请问楼主三楼的代码编译不过报什么错误？

您确认了iSFZ的数据类型是字符串吗？
我在机器上使用如下代码编译通过。
procedure TMainForm.Button1Click(Sender: TObject);
var
  iSFZ: Array of String;
  i: Integer;
begin
  setLength(iSFZ, 6);
  if (iSFZ ='0') or (iSFZ = '1') or (iSFZ = '2') or (iSFZ = '3')then
  begin
//。。。
  end;
end;

pangshaowei · 发表于 2010-8-5 09:47:48

已解决，结贴吧

		自动登录	找回密码
密码			立即注册