delphi - 如何从 INI 文件存储和读取数组？

Question

如何将一组内容写入 ini 文件中的一个 Ident 中，最近如何读取它并将值存储在数组中？

这就是我希望的 ini 的样子:

[TestSection]
val1 = 1,2,3,4,5,6,7

我遇到的问题:

1. 我不知道我必须使用哪些功能
2. 大小不是静态的。可能超过 7 个值，也可能更少。如何检查长度？

Answer 1

您不需要长度说明符。分隔符清楚地分隔了数组的各个部分。

如果 INI 文件中有这样定义的部分

[TestSection]
val1 = 1,2,3,4,5,6,7

那么你所要做的就是

procedure TForm1.ReadFromIniFile;
var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.StrictDelimiter := True;
    SL.CommaText := FINiFile.ReadString('TestSection', 'Val1', '');
    SetLength(MyArray, SL.Count);

    for I := 0 to SL.Count - 1 do
      MyArray[I] := StrToInt(Trim(SL[I]))
  finally
    SL.Free;
  end;
end;

procedure TForm1.WriteToIniFile;
var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.StrictDelimiter := True;

    for I := 0 to Length(MyArray) - 1 do
      SL.Add(IntToStr(MyArray[I]));

    FINiFile.WriteString('TestSection', 'Val1', SL.CommaText);
  finally
    SL.Free;
  end;
end;