由於我將大量的資料寫入MyIniFile中,如元件的各種特性質,導致讀取的速度太慢,我嘗試將MyIniFile寫入記憶體中 BackupIniFile[0]:=MyIniFile(BackupIniFile是外部變數) ,但是一旦將MyIniFile.Free,BackupIniFile[0]的資料就不見了,好像MyIniFile一定要讀取路徑的資料,也就是要讀取硬碟資料 請問我要如何才能加快讀取的速度,第一次讀取慢不要緊,但是希望重複讀取的時候,速度能加快

１、INIFile適合保存一些簡單的配置，當存儲的內容較多，體積變大後，讀取的速度是會慢。 ２、您也可以考慮采用寫到註冊表中或XML文件中。 ３、您要保存元件的各種特性，可以采用下面的方法：

 This example shows how to use the built-in component streaming 
 support to convert any component into a string and convert that 
 string back into a component.    function ComponentToString(Component: TComponent): string;    var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;        end;
  finally
    BinStream.Free
  end;
end;    function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);        finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;

或者采用 ReadComponentResFile, WriteComponentResFile 方法：

The following code defines a component class (TStreamable class) 
and a persistent class (TContainedClass) that is the type of a 
property on the component class. When a button is clicked, an 
instance of the component class is created, saved to a file, 
deleted, and then loaded from the file. By setting a breakpoint 
on the property setter of the TContainedClass SomeData property, 
you can watch how the streaming system sets property values when 
it reads them from a file.
The following unit defines the classes to stream:    unit StrmExmpl;
{$R-,T-,H ,X }
interface
uses Classes
type
TContainedClass = class(TPersistent)
private:
  FSomeData: Integer;      procedure SetSomeData(Value: Integer);      public:        constructor Create; override;      // Only published properties
  // are automatically streamed.
  published:        property SomeData: Integer read FSomeData write SetSomeData;    end;
TStreamableClass = class(TComponent)
private:
  FContainedClass: TContainedClass;
  public:        constructor Create(AOwner: TComponent); override;        destructor Destroy; override;      // Only published properties
  // are automatically streamed.
  published:        property ContainedClass: TContainedClass read FContainedClass write FContainedClass;    end;    implementation    procedure TContainedClass.SetSomeData(Value: Integer);
begin
{ Place a breakpoint here and notice how the data is streamed back. }
  FSomeData := Value;
end;
constructor TContainedClass.Create;
begin
  FSomeData := 42;
end;
constructor TStreamableClass.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FContainedClass = TContainedClass.Create;    end;
destructor TStreamableClass.Destroy;
begin
  FContainedClass.Free;
end;
initialization
  RegisterClasses([TContainedClass, TStreamableClass]);
finalization
end.    The following OnClick event handler should be added to a button 
on the application抯 main form. It causes the above classes to 
be streamed out and in. Note that you must add StrmExmpl to the 
uses clause of unit1.    procedure TForm1.Button1Click(Sender: TObject);    var
  AClassInstance: TStreamableClass;
begin
  AClassInstance := TStreamableClass.Create(nil);
  WriteComponentResFile('C:\Test', AClassInstance);
  FreeAndNil(AClassInstance);      AClassInstance := ReadComponentResFile('C:\Test', nil) as TStreamableClass;
  FreeAndNil(AClassInstance);
end;

---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 --------------------------- 發表人 - h@visli 於 2005/09/21 17:24:48 發表人 - h@visli 於 2005/09/21 17:27:37

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

johnny2212 您好：    或許可以考慮使用 TMemIniFile 或是 TRegistry。 7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/09/23 14:19:19