Пример создания приложения Edit Panel Button

Edit

Panel
Button
Окна редактирования Edit
Панель Panel
Standard
«Число1», «Число2», «Результат»
Caption
Button «Расчет» Text

Число 1

Число 2

2

Результат

Надпись

1

Edit Text «*»
«+» Конкатенация
преобразовать его в

строку FloatToStr
перевести в число StrToFloat
F9 «Расчет»
«Результат»
«Выход» Close
Сохранить File/Save All

Forms, {системный модуль}
Unit1_1 in

'Unit1_1.pas' {Form1}; {Модули форм}
{$R *.RES} {Директива компилятора}
{Здесь вы можете поместить описания каких-то констант, переменных, функций, процедур. Все это будет доступно только в пределах данного файла}
begin {тело программы}
Application.Initialize; {Инициализация приложения}
Application.CreateForm(TForm1, Form1); {Cоздание объекта формы}
Application.Run; {Выполнение приложения}
end.
В модулях осуществляется программирование задачи.

unit Unit1_1;{заготовка к лаб раб: задай 2 числа, получи

результат на панели}
Interface {открытый интерфейс, доступный другим модулям}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;

{ Private declarations } {Закрытый раздел класса}
{Сюда

могут помещаться объявления переменных, функций и процедур, включаемых в класс формы, но не доступных для других модулей}

public { Public declarations } {Сюда могут помещаться объявления переменных, функций и процедур, включаемых в класс формы и доступных для других модулей}
end;
var {Сюда могут помещаться объявления типов, констант, переменных, функций и процедур, к которым }
Form1: TForm1; {будет доступ из других модулей, но которые не включаются в класс формы}
implementation {реализация модуля}
{$R *.DFM}
procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel1.Caption:= Edit1.Text+'*'+ Edit2.Text+'='
+ FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
end;
end.

Pi, Round(X), Trunc(X)

Функция

Описание Аргумент
Ceil (X) округление до наименьшего целого, выражение Extended
превышающего или равного аргументу
Floor (X) округление до наибольшего целого, выражение Extended
меньшего или равного аргументу
IntPower (X,E) возведение Х в целую степень Е выражение Extended и
Integer
Log 10 (X) десятичный логарифм от Х выражение Extended
Log N (N,X) логарифм от Х по основанию N выражение Extended
Max (A,B) максимум двух чисел выражение Integer, Int64,
Single, Doublе, Expended
Min (A,B) минимум двух чисел
Power (X,E) возведение Х в произвольную степень Е

выполнение
F7 (Команда - Trace Into) - Пошаговое выполнение программы с

заходом в процедуры и функции,
F8 (Step Over ) - Пошаговое выполнение считая вызов функции или процедуры
(Shift+F7 ) Trace to Next Source Line - Переход к следующей исполняемой строке.
F4 (Run to Cursor) - Выполняет до курсора
Show Execution Point
Watches Окно наблюдения Watches видимы
View/Debug Windows/ Watches в Delphi View/Watches в Ctrl-F5
Delete отредактировать двойной щелчек в окне Watch Properties
F11 Object Inspector
F12 Окно формы

Метками описать условие задачи

и поля 3 исходных
чисел. Для ввода чисел задать 3 строки ввода (Edit)
Результат выводить на панель. Использовать кнопки (button) «Пуск» и «Выход»
Среднее арифметическое Label1
Ввести три числа. Определить максимальное и минимальное. Label2
Найти среднее арифметическое значение для этих чисел Label5
Число 1 Label3 Число 2 Label6 Число 3 Label7
Среднее арифметическое Label4
Edit1 Edit2 Edit3
Число 3 – Максимальное Label8
Число 1 – Минимальное Label9 Panel1


Button1 Button3

6

7

56

23

Пуск

Выход

*.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Pr2U;
interface
uses
Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;

Button3: TButton;

Label4: TLabel;
Label5: TLabel;
Edit2:

TEdit;
Label6: TLabel;
Edit3: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

s:real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
mn: = min(a,b);
mx: =

max(a,b);

else if max=b then Label8.Caption:=
'Число2 – максимальное-‘

else Label8.Caption:='Число3 - максимальное';
mn:=min(mn,c);
if mn=a then Label9.Caption:='Число1 – минимальное-‘
else if min=b then Label9.Caption:=
'Число2 -минимальное‘
else Label9.Caption:='Число3 - минимальное';
S:=real(a+b+c)/3;
Panel1.Caption:=FloatToStr(S);
end;
end.

10-ой системы счисления в 2, 8
и 16-ю.

и пиктограммой
SpeedButton Пиктографическая кнопка
MaskEdit Специальный текстовый редактор
StringGrid

Таблица строк
DrawGrid Произвольная таблица
Image Рисунок
Shap Фигура
Bevel Кромка
ScrollBox Панель с полосами прокрутки

StaticText Статический текст
ControlBar Полоса управления

ApplicationEvents Получатель события
Chart Диаграмма

Набор панелей с закладками
ImageList - Набор рисунков
RichEdit - Многострочный редактор

(с 94)
TrackBar - Регулятор
ProgressBar - Индикатор процесса
UpDown - Цифровой регурятор
HotKey - Управляющая клавиша
Animate - Мультипликатор (смена кадров движущихся изображений).
DateTimePicker - Селектор времени-даты
TreeView - Дерево выбора
ListView - Панель пиктограмм
HeaderControl - Управляющий заголовок
StatusBar - Панель статуса (служевная информация)
ToolBar, CoolBar - Инструментальные панели
PageScroll - Прокручиваемая панель

- Мультимедийный проигрыватель

Запрос
StoredРrос - Хранимая процедура
DаtаBasе - База данных
Sesion - Сеанс связи

с базой данных
ВаtсhМоvе - Пакетная пересылка
UрdateSQL - Модификация данных
NеstеdТаble - Вложенная таблица

DBNavigator - Навигатор БД
DBText - Текст БД
DВЕdit -

Текстовый редактор БД
DВМеmо - Многострочный текстовый редактор БД.
DВImаgе - Рисунок БД.
DBListВох - Список выбора БД
DВСomboВох - Раскрывающийся список выбора БД.
DBCheckBox - Независимый переключатель БД
DBRadioGroup - Группа зависимых переключателей БД.
DBLookupListBox - Список выбора БД
DBLookupComboBox - Комбинированный список выбора БД
DBRichEdit - RTF- редактор
DBCtrlGrid - Многострочная таблица БД
DBCart - График БД

сервером InterBase v.5.5
СТРАНИЦА MIDAS
СТРАНИЦА SАМРLЕS
Содержит компоненты разного назначения
Gauge

- Индикатор состояния
ColorGrid - Таблица цветов 16-ти цветовой палитры
SpinButton - Двойная кнопка
SpinEdit - Редактор числа
DirectjryOutLine - Список каталогов
Calendar - Календарь. IBEventAlerter - Сторож событий. Компонент осуществляет асинхронную связь с сервером БД InterBase.

для поддержки интранет-сетей
СТРАНИЦА INТЕRNЕТ
Средства связи программы с глобальной

компьютерной сетью 1пtеrпеt
СТРАНИЦА FАSТNЕТ
Использования различных протоколов для передачи деловых сообщений и данных по локальным и/или глобальным сетям
СТРАНИЦА DЕСISION СUВЕ
Доступ к многомерным наборам данных
СТРАНИЦА QREPORT
Создания отчетов

Открыть
SaveDialog - Сохранить
OpenPictureDialog - Открыть рисунок
SavePictureDialog - Сохранить рисунок
FontDialog -

Шрифт
CororDialog - Цвет
PrintDialog - Печать
PrinterSetupDialog - Настройка принтера
FindDialog - Поиск
ReplactDialog - Замена

Visuа1 Ваsic)

СТРАНИЦА SЕRVЕRS
Удобный программный доступ к популярным СОМ-сервером