一个写INI文件的问题！不是很难!

Question

var
  ini:TIniFile;
begin  
  ini:=TIniFile.Create(extractfilepath(paramstr(0))+'set.ini');
  ini.WriteString('ABC','a1', 'xxxxxx');
  ini.WriteString('ABC','a2', 'xxxxxx');
  ini.WriteString('ABC','a3', 'xxxxxx');
  ini.Free;
end书量多的话，也可以用一个循环解决以上问题！

Answer 1

改一下var
  ini:TIniFile;
begin  
  try
    ini:=TIniFile.Create(extractfilepath(paramstr(0))+'set.ini');
    ini.WriteString('ABC','a1', 'xxxxxx');
    ini.WriteString('ABC','a2', 'xxxxxx');
    ini.WriteString('ABC','a3', 'xxxxxx');
  finally
    ini.Free;
  end;
end
这样会比较好点，当创建失败的时候。

Answer 2

对，这位才是正确的，记住这个原则，一定要用try ...finally ...end 来释放对象。

Answer 3

最简单的方法：
inifile.WriteString('ABC', 'A', ListBox.Items.CommaText);ListBox.Items.CommaText:= inifile.ReadString('ABC', 'A', '');

Answer 4

var
  ini:TIniFile;
  I:integer;
begin 
  ini:=TIniFile.Create('C:\set.ini');
  try
    for i:=0 to listbox1.items.count-1 do
      ini.WriteString('ABC','a'+inttostr(i+1), listbox1.items[i]);
  finally
    ini.Free;
  end;
end

Answer 5

再改一下：begin
  with TIniFile.Create(extractfilepath(paramstr(0))+'set.ini') do 
    try
      WriteString('ABC','a1', 'xxxxxx');
      WriteString('ABC','a2', 'xxxxxx');
      WriteString('ABC','a3', 'xxxxxx');
    finally
      Free;
    end;
end

Answer 6

xxx:= TIniFile.Create(extractfilepath(paramstr(0))+'xxx.ini')xxx.WriteString('ABC', 'A', ListBox.Items.CommaText);
...ListBox.Items.CommaText:= inifile.ReadString('ABC', 'A', '');
....

Answer 7

if orgForm.Components[i] is TListBox then begin
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TListBox).Name+'.Hint',(orgForm.Components[i] as TListBox).Hint);
        OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TListBox).Name+'.ItemCount',IntToStr((orgForm.Components[i] as TListBox).Items.Count));
        for j := 0 to (orgForm.Components[i] as TListBox).Items.Count-1 do begin
          OrgIniFile.WriteString('LANGUAGE',(orgForm.Components[i] as TListBox).Name+'.ItemText'+IntToStr(j),(orgForm.Components[i] as TListBox).Items.Strings[j]);
        end;
      end;