SAY討論區

標題: Delphi : 我的第一個程式（誰可幫幫忙？？） [打印本頁]

作者: frankyhui 時間: 2012-5-12 02:37:24 標題: Delphi : 我的第一個程式（誰可幫幫忙？？）

<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>

作者: alvinsiusiu 時間: 2012-5-12 05:07:59

頂．支持，路過．

作者: 24gold24 時間: 2012-5-12 05:07:59

潛水值看滿囉，回覆一下

作者: ^^SaＳａbb 時間: 2012-5-13 23:45:17

哈哈,頂你了哦.

作者: 鳥不起點算 時間: 2012-5-13 23:45:17

這樣的貼子，不頂說不過去啊

作者: a_c_e06 時間: 2012-5-13 23:45:17

今天無聊來逛逛

歡迎光臨 SAY討論區 (http://say.go2tutor.com/)