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;

Delphiini文件读取

1 个答案: