Delphi ini文件读取

Question

我被困住并请求您的帮助，以便获得一个解决方案，以读取我的 ini 文件并将其放置在我的 memo1 表单中，并带有一个按钮。

这是在我的文本文件中：

[Filename]

Work Time=03-10-2018 15:11

这是我正在使用的一些代码。

var
  aWorkTime: string;

procedure TForm1.button2(Sender: TObject):
begin
  Memo1.Lines.Clear;

  IniFile := TIniFile.Create(GetCurrentDir+'\Filename.ini');
try
  aWorkTime := IniFile.ReadString('Filename', 'Work Time', <'none'>);
finally
  IniFile.Free;
end;
end

我希望这是足够的信息，如果没有，请告诉我你缺少什么

Answer 1

您对GetCurrentDir 的使用存在问题。 当前目录 可能会更改，并且不必与您的 .exe 文件所在的目录相同。而是使用ExtractFilePath(Application.ExeName)

另外，不要一一读取项目，而是将整个 .ini 文件读取到您的备忘录中，请执行以下操作：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'FileName.ini');
end;

如果你只需要工作时间，那么你的代码就差不多了：

var
  aWorkTime: string;
  IniFile: TIniFile;
begin  
  Memo1.Lines.Clear;
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'FileName.ini');
  try
    aWorkTime := IniFile.ReadString('Filename', 'Work Time', '<none>');
    Memo1.Lines.Add('Work Time=' + aWorkTime);
  finally
    IniFile.Free;
  end;
end;