Delphi这是在读文件

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;

Delphi这是在读文件

Delphi ini file reading

delphi

ini