单击 Lazarus 中的按钮编辑文件

Question

就像我在之前的帖子中发布的那样，我想创建一个小程序来编辑 .ini 文件中的一行。现在我已经实现了一个按钮，但没有进一步。我基本上想实现以下场景：

1) 点击按钮

2) 由于单击按钮，程序打开 .txt/.ini 文件（在后台）文件位于同一文件夹中

3) 文本文件中的一个单词被新单词更改

4) 文件已保存

5) 消息弹出

procedure TLauncher.ButtonClick(Sender: TObject);

    var

    begin

     ShowMessage('.Ini-File was edited')
    end;

Answer 1

这很容易做到，如果你把你想做的事情分解成只需要每人做一件事

假设您的表单有一个字符串变量 IniFileName 但是您初始化了它你想要，例如使用 TOpenDialog。那么你可以拥有

procedure TForm1.LoadIni;
begin
  Memo1.Lines.LoadfromFile(IniFileName);
end;

procedure TForm1.SaveIni;
begin
  Memo1.Lines.SaveToFile(IniFileName);
end;

procedure TForm1.Button1Click;
begin
   if OpenDialog1.Execute then begin
     IniFileName := OpenDialog1.FileName;
     LoadIni;
   end;
end;

procedure TForm1.Button2Click;
begin
   SaveIni;
   ShowMessage(IniFileName + ' saved to disk');
end;

单击 Lazarus 中的按钮编辑文件

Edit File on Click of a button in Lazarus

lazarus

freepascal