Question

我需要保存网格设置，例如列位置和大小，表单位置和大小，以及其他设置，这样当用户重新打开表单时，他们将看到相同的布局。

现在我将此设置保存在字符串中。像这样的东西

“STOCK_FORM：GRID1：COL1-→20; STOCK_FORM：GRID1：COL2-→50”;

但这不容易阅读和设定。有没有更好的办法？我应该使用xml吗？怎么样的xml性能？

我很想知道其他人通常如何做到这一点。

提前致谢。很抱歉我的英语很差。

此致 Reynaldi

Answer 1

您可以将设置写入Ini文件。

Here就是一个例子

Answer 2

Try This :
   public
     Public declarations }

    constructor Create(AOwner: TComponent); override; // (1)
    procedure BeforeDestruction; override;  // (2) }



   procedure TForm1.BeforeDestruction;
begin
  inherited;
  with TFileStream.Create(PreservePath + ClassName + '.sav',    fmCreate) do
  try
    WriteComponent(Self);
  finally
    Free;
  end; 



   constructor TForm1.Create(AOwner: TComponent);
begin  
  PreservePath := ExtractFilePath(Application.ExeName) + 
    'Preserve';
  if not DirectoryExists(PreservePath) then
    CreateDir(PreservePath);
  PreservePath := PreservePath + '\';
  if FileExists(PreservePath + ClassName + '.sav') then
  begin
    CreateNew(AOwner, 0);
    with TFileStream.Create(PreservePath + ClassName + '.sav',
                            fmOpenRead or fmShareDenyWrite) do
    try
      ReadComponent(Self);
    finally
      Free;
    end;
  end
  else
  inherited Create(AOwner);
end;

在delphi中保存应用程序设置的方法

2 个答案: