delphi 阅读INI文件并检索所需信息

4sup72z8  于 2022-11-04  发布在  其他
关注(0)|答案(1)|浏览(116)

我正在寻找一种方法来读取一个.ini文件,以获得服务器主机信息。我得到了它加载静态数据,这部分很容易,但我想扩大它,这样我就可以添加多个服务器在.ini,然后让我的程序添加他们的顺序。

[Data]
Server[1]=tcp/80.7.229.47/7799 // server one
Server[2]=udp/80.7.229.47/7780 // server two
Server[3]=tcp/80.7.229.47/7733 // server three

我希望能够添加多个服务器,这里是1到10或任何,然后显示正确的服务器信息,协议和ip和端口。我已经通过拆分代码做到了这一点,但我不知道如何做多个服务器。
我在想也许是一个for循环,从.ini文件中获取服务器号:

sData := IniFile.ReadString('Data', 'Server['+ IntToStr(i) +']', '<none>');

有人知道怎么做吗?

dxpyg8gm

dxpyg8gm1#

删除条目名称上的方括号:
第一个
要了解存在多少台服务器,可以添加ServerCount条目,例如:
第一个
或者,您可以使用IniFile.ReadSection()将所有条目名称获取到本地TStringList中,然后循环执行该操作,例如:

names := TStringList.Create;
try
  IniFile.ReadSection('Data', names);
  for i := 0 to names.Count-1 do
  begin
    if StartsText('Server', names[i]) then
    begin
      sData := IniFile.ReadString('Data', names[i], '<none>');
      ...
    end;
  end;
finally
  names.Free;
end;

相关问题