h1

Программа MyNotebook v 1.0

Июль 3, 2009

Простенький блокнот. Умеет сохранять, загружать файл.

Код основного окна:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
PopupMenu1: TPopupMenu;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(‘MyFile.txt’);
end;

procedure TForm1.N6Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(‘MyFile.txt’);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(‘MyFile.txt’);
end;

procedure TForm1.N8Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(‘MyFile.txt’);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
fAbout.ShowModal;
end;

end.

Advertisements

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: