Private. { Private declarations }

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

implementation

Var

Sum:real;

Const

operation:char='@';

{$R *.DFM}

Procedure operate;

var s:string;

code:integer;

N:integer;

Begin

s:=Form1.Edit1.text;

Form1.Edit1.clear;

Val(s,n,code);

Case operation of

'@': sum:=n;

'+': sum:=sum+n;

'-': sum:=sum-n;

'*': sum:=sum*n;

'/': sum:=sum/n;

End;

End;

procedure TForm1.Button1Click(Sender: TObject);

Begin

Edit1.Clear;

operation:='@';

Edit1.setfocus;

End;

procedure TForm1.Button2Click(Sender: TObject);

var s:string;

Begin

Operate;

str(sum:6:3,s);

Edit1.text:=s;

Button1.setfocus;

End;

procedure TForm1.Button3Click(Sender: TObject);

Begin

Operate;

operation:='+';

Edit1.setfocus;

End;

procedure TForm1.Button4Click(Sender: TObject);

Begin

Operate;

operation:='-';

Edit1.setfocus;

End;

procedure TForm1.Button5Click(Sender: TObject);

Begin

Operate;

operation:='*';

Edit1.setfocus;

End;

procedure TForm1.Button6Click(Sender: TObject);

Begin

Operate;

operation:='/';

Edit1.setfocus;

End;

procedure TForm1.Button7Click(Sender: TObject);

Begin

Close;

End;

End.

Кроме этого, были созданы файлы ресурсов, с которыми Delphi работает самостоятельно.

Приложение 2 содержит полный текст программы.

Приложение 1.

Основные свойства и методы некоторых компонент интерфейса.

Метка (класс TLabel).

Метка представляет собой окно с текстом и может использоваться для формирования на форме некоторых надписей или подписей.

Свойства:

Caption - заголовок - содержит выводимый в окне компонента текст.

Align - определяет способ выравнивания самого компонента:

alNone - как определено разработчиком;

alTop - занимает всю верхнюю часть окна, в котором размещается;

alBottom - занимает всю нижнюю часть окна, в котором размещается;

alLeft - занимает всю левую часть окна, в котором размещается;

alRight - занимает всю правую часть окна, в котором размещается.

Alignment - определяет способ выравнивания текста в окне компонента:

taCenter - по центру;

taLeftJustify - по левой границе;

taRightJustify - по правой границе.

Autosize - определяет, будет ли определяться размер окна компонента размером введенного текста с учетом шрифта (да, если true).

Font - определяет шрифт текста (выбирается в специальном окне).

Color - определяет цвета текста и фона в окне.

WordWrap - определяет, разбивать или нет текст на строки (да, если true).

Transparant - определяет, виден ли рисунок фона через окно (да, если true).

Строчный редактор (класс TEdit).

Компонент представляет собой окно, обычно выделенное цветом, которое может использоваться, например, для организации ввода информации.

Свойства:

Text - строка, которая содержит введенную и отображаемую в окне компонента информацию. Доступ к информации в строке осуществляется как к полю записи, например: Edit1.Text.

MaxLength - максимальная длина вводимой строки (если равна 0, то длина не ограничена).

ReadOnly - определяет возможность ввода информации в окно компонента (если true, то ввод невозможен).

PasswordChar - код символа, который заменяет вводимые символы, например, при вводе пароля (#0 - означает, что отображаются вводимые символы).

AutoSelect - определяет возможность выделения всего текста, отображенного в окне при фокусировке на данном компоненте при вызове формы (может использоваться, например, если при вводе информации автоматически предлагается какой-либо вариант).

Методы:

Clear - очистка поля Text.

GetTextLen - определить длину строки в поле Text.

GetTextBuf - поместить строку в буфер, изменив тип строки (из строки Паскаля сделать строку С).

SetTextBuf - поместить строку из буфера в Text, преобразовав строку из строки С в строку Паскаля.

Например:

procedure TForm1.Button1Click(Sender: TObject);

Var

Buffer: PChar; { тип - указатель на символ}

Size: Byte;

Begin

Size:= Edit1.GetTextLen; {получить длину текста}

Inc(Size); {добавить 1 для размещения 0-символа}

GetMem(Buffer, Size); {запросить память под буфер}

Edit1.GetTextBuf(Buffer,Size); {поместить текст в буфер}

Edit2.Text:= StrPas(Buffer); {записать текст из буфера в Memo2}

FreeMem(Buffer, Size); {освободить память}

End;

Дополнительно используется несколько параметров и методов, позволяющих работать с выделенной в окне компонента информацией в процессе работы приложения:

Свойства:

SelText - содержит выделенный в окне компонента текст.

SelStart - содержит номер позиции первого выделенного символа.

SelLength - содержит длину выделенного фрагмента.

Методы:

SelectAll - выделить все.

ClearSelection - снять выделение.

CutToClipboard - вырезать выделенную информацию и поместить в буфер.

CopyToClipboard - копировать выделенную информацию и поместить в буфер.

PasteFromClipboard - вставить из буфера.