初学delphi 编译时说语法错误

ywwz

1. procedure TForm1.readUsers();
   
2. var
   
3.   i: Integer;
   
4. begin
   
5.   i := 0;
   
6.   while true do
   
7.   begin
   
8.     if (CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '') <> '') then
   
9.     begin
   
10.       SetLength(USERS, i + 1, 3);
    
11.       USERS(i, 0) := CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '');
    
12.       USERS(i, 1) := CONFIGFILE.ReadString('USER', 'password' + IntToStr(i), '');
    
13.       USERS(i, 2) := CONFIGFILE.ReadString('USER', 'nickname' + IntToStr(i), '');
    
14.     end
    
15.     else
    
16.     begin
    
17.       break;
    
18.     end;    Inc(i);
    
19.   end;
    
20. //showmessage(inttostr(length(USERS)));
    
21. end;
    

复制代码

CONFIGFILE 和 USERS 是全局变量 已经定义过

USERS(i, 0) := CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '');
这里编译说 缺少操作或者分号 "missing operator or semicolon"

之前学过C 初学delphi 搞不懂哪里语法不对

ywwz

数组引用方式错了... 汗
应该是 类似
USERS[i]