Курсовая работа: Программа моделирования столкновения абсолютно твердых тел

СОДЕРЖАНИЕ













ЗАДАНИЕ 1. РАЗРАБОТКА ПРИЛОЖЕНИЯ TextEditor.

Код главного модуля программы:

unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
File1: TMenuItem;
Save1: TMenuItem;
Exit1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
Save2: TMenuItem;
Exit2: TMenuItem;
About2: TMenuItem;
Save3: TMenuItem;
Exit3: TMenuItem;
MemoLabel1: TLabel;
Memo1: TMemo;
procedure Save1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Save1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('Document.txt');
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
Close;
end;