简单问题(送80分)

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName:string;
begin
  if Application.MessageBox('确定要保存？','提示',mb_YesNo)=idYes   then
    begin      with TStringList.Create do
      try
        Add(Label1.Caption);
        Add(Label2.Caption);
        Add(Label3.Caption);
        Add(Label4.Caption);
        Add(Label5.Caption);
        FileName:=ExtractFilePath(paramstr(0))+'Data_St.ini';
        SaveToFile(FileName);
      finally
        Free;
      end;    End;
end每次保存 会把之前的覆盖掉,我想实现的是 保存的时候如果'Data_St.ini'文件里有数据 那在这些数据的下一行开始把内容保存进去

Answer 1

抢分:)procedure TForm1.Button1Click(Sender: TObject);
var
  FileName:string;
  F: TStrings;
begin
  if Application.MessageBox('确定要保存？','提示',mb_YesNo)=idYes   then
  begin
    
    F := TStringList.Create;
    try
      FileName:=ExtractFilePath(paramstr(0))+'Data_St.ini';      if FileExists(FileName) then
        F.LoadFormFile(FileName);      with F do
      begin
        Add(Label1.Caption);
        Add(Label2.Caption);
        Add(Label3.Caption);
        Add(Label4.Caption);
        Add(Label5.Caption);
                SaveToFile(FileName);
      end;
    finally
      F.Free;
    end;  End;
end

Answer 2

SaveToFile是咋 写的？如果是文本文件的话可以用Append

Answer 3

SaveToFile是咋 写的？如果是文本文件的话可以用Append

Answer 4

初始化首句加上:
TStringList.LoadFromFile('Data_St.ini');
....
添加数据后
....
SaveToFile(FileName);
最后再保存。

Answer 5

你可以先把ini文件里面的内容读取到一个listbox或者其他控件里面，操作时把需要添加的数据插入到listbox里面最后在把listbox里面的内容SaveToFile。

Answer 6

如果是*.ini配置文件可以用TIniFile操作procedure TForm1.Button1Click(Sender: TObject);
var
  FileName:string;
  MyIniFile: TIniFile;
begin
  if Application.MessageBox('确定要保存？','提示',mb_YesNo)=idYes   then
  begin
    FileName:=ExtractFilePath(paramstr(0))+'Data_St.ini';
    MyIniFile := TIniFile.Create(FileName);
    try
      MyIniFile.WriteString(const Section, Ident, Value: String);
      ...
    finally
      MyIniFile.Free;
    end;
  end;
end;

Answer 7

顶 Section 可以是数字递增