如何通过单击按钮生成一个文本文件，并写入指定内容？然后通过另外一个按钮将文本文件改成ini文件？

Question

如题

Answer 1

use inifiles;
procedure TForm1.Button1Click(Sender: TObject);//生成文本文件
var
  _ss: tstringlist;
begin
    _ss:= TStringList.Create;
    _ss.Add('aaaa');
    _ss.Add('BBB');
    _ss.SaveToFile('c:\ab.txt');
    _ss.Free;
end;
///////////////////////
procedure TForm1.Button3Click(Sender: TObject);//变成ini文件
var
  _ss: tstringlist;
  _inifile: TIniFile;
  i: integer;
begin
   _ss:= TStringList.Create;
   _inifile:= tinifile.Create('c:\ab.ini');
   _ss.LoadFromFile('c:\ab.txt');
   for i:=0 to _ss.Count-1 do
   begin
       _inifile.WriteString(_ss.Strings[i],_ss.Strings[i],_ss.Strings[i]);
   end;
   _inifile.Free;
   _ss.Free;
end;