马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
本帖最后由 ywwz 于 2014-1-15 20:07 编辑 procedure TForm1.readUsers();
var
i: Integer;
begin
i := 0;
while true do
begin
if (CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '') <> '') then
begin
SetLength(USERS, i + 1, 3);
USERS(i, 0) := CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '');
USERS(i, 1) := CONFIGFILE.ReadString('USER', 'password' + IntToStr(i), '');
USERS(i, 2) := CONFIGFILE.ReadString('USER', 'nickname' + IntToStr(i), '');
end
else
begin
break;
end; Inc(i);
end;
//showmessage(inttostr(length(USERS)));
end;
CONFIGFILE 和 USERS 是全局变量 已经定义过
USERS(i, 0) := CONFIGFILE.ReadString('USER', 'name' + IntToStr(i), '');
这里编译说 缺少操作或者分号 "missing operator or semicolon"
之前学过C 初学delphi 搞不懂哪里语法不对
|