查看: 342|回復: 5

Delphi : 我的第一個程式（誰可幫幫忙？？） [複製鏈接]

frankyhui

Adult

好友: 0
帖子: 124731
積分: 124889
最後登錄: 2019-2-28
在線時間: 0 小時

電梯直達

樓主

發表於 2012-5-12 02:37:24 |只看該作者 |倒序瀏覽

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ImgList, ToolWin, ActnMan, ActnCtrls, ActnMenus,
StdActns, ActnList, XPStyleActnCtrls, StdCtrls;

type
TForm1 = class(TForm)
  RichEdit1: TRichEdit;
  ActionManager1: TActionManager;
  FileOpen1: TFileOpen;
  FileSaveAs1: TFileSaveAs;
  FileExit2: TFileExit;
  FileNew: TAction;
  FileSave: TAction;
  HelpIndex: TAction;
  HelpAbout: TAction;
  EditCut1: TEditCut;
  EditCopy1: TEditCopy;
  EditPaste1: TEditPaste;
  EditUndo1: TEditUndo;
  ActionMainMenuBar1: TActionMainMenuBar;
  ImageList1: TImageList;
  StatusBar1: TStatusBar;
  Action1: TAction;
  procedure Action1Execute(Sender: TObject);
  procedure FileOpen1BeforeExecute(Sender: TObject);
  procedure FileSaveExecute(Sender: TObject);
  procedure FileSaveAs1BeforeExecute(Sender: TObject);
  procedure FileSaveAs1Accept(Sender: TObject);
  procedure FileOpen1Accept(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
  FileName : String ;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
RichEdit1.Clear ;
FileName := 'untitled.txt' ;
StatusBar1.Panels[0].Text := FileName ;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
FileName := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0] := FileName;
end;

procedure TForm1.FileSaveExecute(Sender: TObject);
begin
if (FileName :='untitled.txt') then
FileSaveAs1.Execute;
else
RichEdit1.Lines.SaveToFile(FileName);
end;

procedure TForm1.FileSaveAs1BeforeExecute(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir := ExtractFilePath(FileName);

end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
FileName := FileSaveAs1.Dialog.FileName ;
StatusBar1.Panels[0].Text := FileName ;
end;

end.</code>