procedure TFontOption.LoadFromIniFile(const FileName:string);
var
  IniFile: TIniFile;
begin
  if not FileExists(FileName) then
    Exit;      try
    IniFile :=  TIniFile.Create(FileName);
    FRichEditFont.Name := IniFile.ReadString('RichEdit','FontName','');
    FRichEditFont.Size := IniFile.ReadInteger('RichEdit','FontSize',0);
    FRichEditFont.Color := StringToColor(IniFile.ReadString('RichEdit','FontColor',''));        FMemoFont.Name := IniFile.ReadString('Memo','FontName','');
    FMemoFont.Size := IniFile.ReadInteger('Memo','FontSize',0);
    FMemoFont.Color := StringToColor(IniFile.ReadString('Memo','FontColor',''));
  finally
    FreeAndNil(IniFile);
  end;    end;    procedure TFontOption.SaveToIniFile(const FileName:string);
var
  IniFile: TIniFile;
begin
  if not FileExists(FileName) then
    Exit;      try
    IniFile :=  TIniFile.Create(FileName);
    IniFile.WriteString('RichEdit','FontName',FRichEditFont.Name);
    IniFile.WriteInteger('RichEdit','FontSize',FRichEditFont.Size);
    IniFile.WriteString('RichEdit','FontColor',ColorToString(FRichEditFont.Color));        IniFile.WriteString('Memo','FontName',FMemoFont.Name);
    IniFile.WriteInteger('Memo','FontSize',FMemoFont.Size);
    IniFile.WriteString('Memo','FontColor',ColorToString(FMemoFont.Color));
  finally
    FreeAndNil(IniFile);
  end;
end;    

引言: 我是使用TMemoryStream將其取到cxmemo1進行測試的 本來可以地接地將其存放到ini文件上,但考慮到安全性,還是存放 到內存中穩當一點,請各位先進幫一幫我,謝! procedure TForm1.cxButton1Click(Sender: TObject); //var //strstream:TStringStream; begin SS:= TMemoryStream.Create; dxbarmanager1.SaveToStream(SS); SS.Position:=0; cxmemo1.Lines.LoadFromStream(SS); SS.Free; end;

procedure TForm1.cxButton1Click(Sender: TObject);
var
  SS:TMemoryStream;
  MemIni:TMemIniFile;
  tStr : string;
begin
  try
    SS:= TMemoryStream.Create;
    dxbarmanager1.SaveToStream(SS);
    SS.Position:=0;
    cxmemo1.Lines.LoadFromStream(SS);   
  finally
    SS.Free;
  end;      try
    MemIni := TMemIniFile.Create('');
    MemIni.SetStrings(cxmemo1.Lines);
    tStr := MemIni.ReadString('Form1.dxBarManager1.Bar0.ItemLink0','ItemName','');
    ShowMessage(tStr); // Show Result
  finally
    FreeAndNil(MemIni);
  end;
end;

引言: SouthWind兄弟,您的代碼在delphi上未能編譯通過,在delphi的幫助找 TMemIniFile又沒有更詳細的指引,提示如下: [Error] Unit1.pas(34): Undeclared identifier: 'TMemIniFile' 請更進

引言: 謝謝! 原來是IniFile.pas的問題 我有這個想法, Lists := TStringList.Create; memini.GetStrings(Lists); lists.SaveToStream(ss); 然後再經Stream轉到數據庫的表中,不知是否可行,如果可行的話,應該不用 建立臨時文件的 另外,怎麼把SS(stream)寫入表中的blob型字段中,我試過,SaveToStream後 是可以看到那些資料的,但post後又變回空白... 有辦法解決嗎?