Текстовый редактор.
Задание. Создать интерфейс текстового редактора с помощью компонента MainMenu.
Тело программы.
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
MainMenu1: TMainMenu;
F1: TMenuItem;
Open1: TMenuItem;
Save1: TMenuItem;
Close1: TMenuItem;
Edit1: TMenuItem;
Select1: TMenuItem;
Copy1: TMenuItem;
Cut1: TMenuItem;
Paste1: TMenuItem;
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Select1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Open1Click(Sender: TObject);
var infile: TextFile; // объявили переменные
frame,InString: string; // имя и содержание файла
begin if Opendialog1.Execute then //если открыто...
begin frame:=OpenDialog1.FileName; // на фрейм присваиваем имя файла
AssignFile(InFile,frame); //открываем поток для чтения
Reset(InFile); // устанавливаем для чтения
While not Eof (InFile) do
begin
Readln(InFile,InString); // считываем построчно
Memo1.Lines.Add(InString); // добавляем в мемо1 построчно
end;
CloseFile(InFile); // закрываем файл
Form1.Caption:=Form1.Caption + '(' + frame + ')';
end;
end;
procedure TForm1.Save1Click(Sender: TObject);
var OutFile:TextFile;
frame:string;
begin
If SaveDialog1.Execute then
begin
frame:=SaveDialog1.FileName;
AssignFile(OutFile,frame);
RewRite(OutFile);
Writeln(OutFile,memo1.Text);
end;
closeFile(OutFile);
Form1.Caption:=Form1.Caption +'('+ frame + ')';
end;
procedure TForm1.Close1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Cut1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;
procedure TForm1.Copy1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TForm1.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
procedure TForm1.Select1Click(Sender: TObject);
begin
Memo1.SelectAll;
end;
end.
Вид программы.
Открываем файл txt:
Копируем часть текста:
Вставляем:
Сохранить:
Графический редактор.
Задание. Создать программу для решения уравнения Y := X*X*X-Cos(X)
Тело программы.
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;