从 IniFile 读取 2 行

Question

再试一次。根据建议，添加我确实理解的代码段。我对必须将 4 位信息保存在两行中这一事实感到满意，如下所示：

IniFile.WriteString('TestSection','Name','Country');
IniFile.WriteString('TestSection','City','Street');

我的问题更多是有关将此信息加载回表单中。例如，如果在我的 IniFile 中我保存了以下代码，则

[TestSection]
John=Uk
London=barlystreet
Mike=Spain
Madrid=eduardostrata
Emma=USA
New York=1st Avenue

在 IniFile 中组成了信息。通过上面的代码添加。 现在我的问题是：例如，当我在编辑框中键入 Mike 时，我如何加载其余的所属信息。（西班牙，马德里，eduardostrata）。

Answer 1

INI 文件不是这样工作的。您保存name=value对，并且必须有一种方法将它们关联起来。

也许这可以帮助您开始：

Ini := TIniFile.Create(YourIniFileName);
try
  Ini.WriteString('Mike', 'Country', 'Spain');
  Ini.WriteString('Mike', 'City', 'Madrid');
  Ini.WriteString('Mike', 'Street', 'EduardoStrata');
finally
  Ini.Free;
end;

您的 INI 文件中的结果包含：

[Mike]
Country=Spain
City=Madrid
Street=EduardoStrata

加载回来：

var
  Country, City, Street: string;
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(YourIniFilename);
  try
    Country := Ini.ReadString('Mike', 'Country', '<None>');
    City := Ini.ReadString('Mike', 'City', '<None>');
    Street := Ini.ReadString('Mike', 'Street', '<None>');
  finally
    Ini.Free;
  end;
  // Country, City, and Street now equal the values for 'Mike',
  // or they contain '<None>' if the section 'Mike' doesn't
  // exist or has no values for the variable.
end;

所以您可能可以弄清楚这是如何工作的。该部分（[] 中的部分）是人名，名称/值对是位置及其相应的值（例如，“Country=Spain”）。

Answer 2

您显然不了解 INI 文件的工作原理。如果约翰和戴夫都住在纽约怎么办？ INI 文件中不能有两个同名的键。 （此外，您不应依赖每个部分中行的顺序。）

因此，您需要重新考虑如何保存数据。一个非常简单的解决方案是使用纯文本文件，其中每一行都是数据库中的一个项目，并且字段之间用竖线 (|) 等分隔：

John|Uk|London|barlystreet
Mike|Spain|Madrid|eduardostrata
Emma|USA|New York|1st Avenue.

如何读取此文件？嗯，这很简单，您应该知道如何做到这一点。如果您有非常具体的问题，请随时提问。

INI 文件的用途

那么，INI 文件的用途是什么？ INI 文件的典型应用是保存程序设置。例如，当您退出文本编辑器时，它可能会将设置保存到settings.ini：

[Font]
Name=Consolas
Size=10

[Behaviour]
AutoIndent=1
AutoReplace=1
AutoBrackets=1
BracketHighlight=1
SyntaxHighlight=1

[Window]
Width=800
Height=600
Maximized=0

etc。这是由

WriteString('Font', 'Name', Editor.Font.Name);
WriteInteger('Font', 'Size', Editor.Font.Size);

etc完成的。当您下次启动应用程序时，它会读取该文件以恢复设置：

Editor.Font.Name := ReadString('Font', 'Name', 'Consolas');
Editor.Font.Size := ReadInteger('Font', 'Size', 10);

etc。 ，其中最后一个参数是默认值（以防 INI 文件中缺少该字段）。请注意，在每个部分中，键都是唯一的（并且需要如此），并且我们不关心每个部分内键的相对顺序。

Answer 3

创建所需关系的最简单方法是将用户的所有详细信息放在一行文本中。这不是 INI 文件的工作。你的问题是如何解析字符串。

首先，为什么需要保存“重复密码”？这对我来说没有意义。通常，用户界面会要求用户重复密码作为一种验证形式，但这就是它的全部好处。存储它以供以后检索没有任何好处。

我认为您需要保存用户的名字、姓氏和密码（3 个字符串）。看看下面的代码。

procedure SaveUserDetails(sFileName: string);
var
  sFirstName, sLastName, sPassword: string;
  slUsers: TStringList;
begin
  sFirstName := txtFirstName.Text;  // these could be from TEdit controls for example
  sLastName := txtLastName.Text;
  sPassword := txtPassword.Text;
  slUsers := TStringList.Create;
  slUsers.Add(sFirstName + ',' + sLastName + ',' + sPassword);
  slUsers.SaveToFile(sFileName);  // that has saved your stringlist to a file
  slUsers.Free;
end;

该文件将如下所示

Shane,Warne,cricket

现在，如何加载它...

procedure LoadUserDetails(sFileName: string);
var
  sFirstName, sLastName, sPassword: string;
  sTemp: string;
  slUsers: TStringList;
  iPos: integer;  // string position marker we'll use to split the string in 3
begin
  slUsers := TStringList.Create;
  slUsers.LoadFromFile(sFileName); // this loads the file's contents into stringlist
  sTemp := slUsers[0];
  if (Length(sTemp) > 0) then // just to check that there is data there
  begin
    iPos := pos(',', sTemp); // get position of first comma (our "delimiter")
    sFirstName := Copy(sTemp, 0, iPos-1);  // firstName everything upto 1st comma
    sTemp := Copy(sTemp, iPos + 1, Length(sTemp)); // chop off bit we just read
    iPos := pos(',', sTemp); // get position of second comma
    sLastName := Copy(sTemp, 0, iPos-1);  // LastName everything upto 2nd comma
    sTemp := Copy(sTemp, iPos + 1, Length(sTemp)); // chop off bit we just read
    sPassword := sTemp; // that's it
  end;
  slUsers.Free;
end;

现在...距离“好代码”还很远，但现在您至少知道一种方法来完成您的工作。希望有帮助。