我有几个edit,里面有默认值,但是我想修改了之后点确定form关闭之后能保存修改,下次打开时就是修改之后的值!tks乐!

解决方案 »

  1.   

    只要不free就可以啊。
    再次show就行了。
      

  2.   

    用中间变量
    TempStr := edit1.text;
      

  3.   

    用INI比较方便:uses INIfiles;procedure TForm1.FormShow(Sender: TObject);
    var
          f : TINIFile;
    begin
          f := TINIFile.Create('g:\Edit.ini');
          Edit1.Text := f.ReadString('TEdit', Edit1.Name, '123');
          Edit2.Text := f.ReadString('TEdit', Edit2.Name, '123');
          Edit3.Text := f.ReadString('TEdit', Edit3.Name, '123');
          f.Free;
    end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    var
          f : TINIFile;
    begin
          f := TINIFile.Create('g:\Edit.ini');
          f.WriteString('TEdit', Edit1.Name, Edit1.Text);
          f.WriteString('TEdit', Edit2.Name, Edit2.Text);
          f.WriteString('TEdit', Edit3.Name, Edit3.Text);
          f.Free;
    end;