小弟有個string grid(18*18)，請問如何運用Delphi 7 的action manager裡的 FileSaveAs 和 FileOpen 來儲存和讀取? 謝謝(我只懂按button來save and load，還望高手指導)

這跟Action Manager 沒啥關係 他只是一項action集中管理作法 Button 是透過 TButton.Action 來跟Action連結    概念： [ActionManager] 管理很多Action [Action1] Caption, Enabled,.... OnExecute, OnAccept... [Action2] Caption, Enabled,.... OnExecute, OnAccept... [Action3] Caption, Enabled,.... OnExecute, OnAccept... .... .... 其他物件共用Action: Button1.Action:=Action1; //Button1 連結 Action1 Button2.Action:=Action2; //Button2 連結 Action2 MenuItem1.Action:=Action1; //MenuItem1 連結 Action1 MenuItem2.Action:=Action2; //MenuItem2 連結 Action2 ... 程式碼請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=63261

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdActns, ActnList, XPStyleActnCtrls, ActnMan, Grids, StdCtrls;    type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ActionManager1: TActionManager;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);      private
    procedure FileSaveas1Accept(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FileOpen1Accept(Sender: TObject);
var
  slData:TStringList;
  i:integer;
begin
  slData:=TStringList.Create;
  slData.LoadFromFile(FileOpen1.Dialog.FileName);
  for i := 0 to slData.Count-1 do
    StringGrid1.Rows[i].CommaText:=slData[i];
  slData.Free;
end;    procedure TForm1.FileSaveas1Accept(Sender: TObject);
var
  slData:TStringList;
  i:integer;
begin
  slData:=TStringList.Create;
  for i := 0 to StringGrid1.RowCount-1 do
    slData.Add(StringGrid1.Rows[i].CommaText);
  slData.SaveToFile(FileSaveas1.Dialog.FileName);
  slData.Free;
end;    procedure TForm1.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
  StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;      Button1.Action:=FileOpen1; //建立Action連結
  Button2.Action:=FileSaveas1; //建立Action連結
  FileOpen1.OnAccept:=FileOpen1Accept; //在Action OnAccept中處理動作
  FileSaveas1.OnAccept:=FileSaveas1Accept; //在Action OnAccept中處理動作
end;    end.    

＠瞭解越多.懂得越少＠

Thanks a lot