Реферат Розробка додатків в Borland Delphi

y"> {TODO -oUser -cConsole Main: Insert code here}

end.

Завдання № 17

Завдання до роботи:

1. Розробити інтерфейс програми із застосуванням компонентів: Edit, Memo, MaskEdit, BitBtn, Button, Label.

2. Розробити алгоритм вирішення задачі в відповідності з варіантом завдання.

. Реалізувати розр?? лений алгоритм в рамках раніше створеного інтерфейсу.

. Перевірити працездатність програми за допомогою тестового набору даних.

. Оформити звіт і здати роботу викладачеві.

Малюнок 2.17.- Запущена головна форма

Лістинг:

unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, StdCtrls, Buttons, jpeg;=class (TForm): TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn;

btn7: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TImage; btn1Click (Sender: TObject); btn16Click (Sender: TObject); btn2Click (Sender: TObject); btn3Click (Sender: TObject ); btn4Click (Sender: TObject); btn5Click (Sender: TObject); btn9Click (Sender: TObject); btn7Click (Sender: TObject); btn8Click (Sender: TObject); btn6Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1; Unit2, Unit7, Unit10, Unit12, Unit13, Unit14, Unit3, Unit16, Unit17, Unit18, Unit19, Unit20, Unit23, Unit22;

{$ R * .dfm} TForm1.btn1Click (Sender: TObject) ;. show; .Hide ;; TForm1.btn16Click (Sender: TObject) ;;; TForm1.btn2Click (Sender: TObject) ; .show; .Hide ;; TForm1.btn3Click (Sender: TObject) ;. show; .Hide ;;; TForm1.btn5Click (Sender: TObject) ;. Hide; .show ;; TForm1.btn9Click (Sender: TObject);.show; .Hide ;; TForm1.btn7Click (Sender: TObject) ;. show; .Hide ;; TForm1.btn8Click (Sender: TObject) ;. Hide; .show ;; TForm1.btn6Click (Sender: TObject) ;. show ; .Hide ;;

end.

Завдання № 18

Текст завдання: «Картотека фільмів». За обраному зі списку жанру фільму на екран повинен виводитися список фільмів відносяться до даного жанру.

Малюнок 2.18.- Додаток картотека фільмів в дії

Лістинг: TForm8.btn1Click (Sender: TObject); cbb1.ItemIndex=0 then.Items.Clear; .Items.Add ( 21 і більше ); 1.Items.Add ( laquo ; американський пиріг );

lst1.Items.Add ( проект ІКС );

lst1.Items.Add ( однокласники );

lst1.Items.Add ( тато Досвідос );

end; cbb1.ItemIndex=1 then.Items.Clear; .Items.Add ( 13/13/13 ); 1.Items.Add ( Паранормальне явище: Мітка Диявола raquo ;);

lst1.Items.Add ( Маніяк з твіттера );

lst1.Items.Add ( Закляття );

lst1.Items.Add ( прокляття чаки );

end; cbb1.ItemIndex=2 then.Items.Clear; .Items.Add ( Адреналін 1,2 ) ;. Items.Add ( Форсаж ) ;. Items.Add ( Убітьбілла1, 2 ) ;. Items.Add ( Вассаби ) ;. Items.Add ( Леон ) ;; cbb1.ItemIndex=3 then.Items.Clear; .Items.Add ( laquo ; Титанік ); 1.Items.Add ( Втеча з Шоушенка );

lst1.Items.Add ( Зелена миля );

lst1.Items.Add ( Реквієм за мрією );

lst1.Items.Add ( Хатіко: Вірний друг );

end;

lst1.Items.Add ( Санта Барбара );

lst1.Items.Add ( Не родись вродливою );

lst1.Items.Add ( Карпов ) ;;; TForm8.btn2Click (Sender: TObject) ;;; TForm8.btn3Click (Sender: TObject) ;. Hide; .show ;;

end.

Завдання № 19

Текст завдання: Створити додаток Тест.

Малюнок 2.19.- Додаток тест запущено

Лістинг:

procedure TForm9.btn1Click (Sender: TObject);:=0; RG1.itemindex=- 1 ( нечегоневибрано ) elserg1.itemindex=0x:=x + 1; rg2.itemindex=-1 ( нечегоневибрано ) elseRG2.itemindex=2x:=x + 1; rg3.itemindex=- 1 ( нечегоневибрано ) elseRG3.itemindex=2x:=x + 1; rg4.itemindex=- 1(laquo;нечегоневыбраноraquo;)elseRG4.itemindex=0x:=x+1;x:=x+1;(laquo;вашрезультатraquo; + inttostr (x)) ;; TForm9.btn3Click (Sender: TObject) ;. Close; .Close ;; TForm9.btn2Click (Sender: TObject) ;. hide; .show;

end;.

Завдання № 20

Текст завдання:

) встановлювати кількість стовпців і рядків квадратної таблиці StringGrid рівними числу, запро...