stify"> Видалення програмного продукту
Вилучення програми відбувається простим приміщенням її в кошик.
П.3. ПРОГРАМНИЙ КОД
unit Unit1;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ExtCtrls, uEncrypt;
// Тимчасової тип = Record: Byte;: Byte;; = class (TForm): TMainMenu;: TMenuItem;: TPanel; _Last: TLabel; _FQuestion: TLabel;: TButton;: TButton;: TButton;: TButton;: TMemo;: TMenuItem;: TTimer;: TMenuItem;: TMenuItem;: TMenuItem; _Temp: TMemo;: TMemo;: TMemo;: TMemo;: TMemo;: TOpenDialog;: TGroupBox;: TMenuItem;: TMenuItem ;: TLabel;: TLabel;: TLabel;: TPanel;: TLabel; _NomQuestion: TLabel;: TMenuItem; _OptionInfoAnsver: TMenuItem;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TEdit; FormCreate (Sender: TObject ); DecTime (Var aa: TPrTime; Sender: TObject): string; PrTimeOut (Sender: TObject); Timer1Timer (Sender: TObject); MIOpenFileClick (Sender: TObject); MIAboutClick (Sender: TObject); PrFillFileds (Sender: TObject) ; MITBeginClick (Sender: TObject); PrClickButton (Sender: TObject); MIExitClick (Sender: TObject); MI_OptionInfoAnsverClick (Sender: TObject); PrGetDataTest (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); MITEndClick ( Sender: TObject);
{Private declarations}
{Public declarations}
// Змінено: string;: TPrTime;: byte;
// --- Сумарна кількість питань тесту: byte;;: TForm1;: TPrTime;: TPrTime;
// поряд. номер питання: Byte;
// к-ть прав. відповідей
PrVAnsverOK: Byte;
PriznakExit: boolean;
// --- Масив храняшій номери питань ---
PrOrderQuestion: array [1 .. 255] of byte; Unit3;
{$ R *. DFM} TForm1.FormCreate (Sender:
// --- Робота з пунктом меню "Налаштування" --- _OptionInfoAnsver. Enabled: = false;
// Ініціація
PriznakExit: = false;
end;
// --- Форматування часу ---
Function PrFormatConvert (aa: TPrTime): String; aa.Min <= 9 then result: = '0 '+ IntToStr (aa.Min) result: = IntToStr (aa.Min); aa. Sec <= 9 then result: = result + ': 0' + IntToStr (aa.Sec) result: = result + ':' + IntToStr (aa.Sec);;
// Зміна времені.TForm1.DecTime (Var aa: TPrTime; Sender: TObject): string; aa.Sec = 0 thenaa.Min> 0 then (aa.Min);. Sec: = 59; PrTimeOut (Sender) dec (aa.Sec);: = PrFormatConvert (aa);
end;
// Дії при отсутсвии часу або дострокове відповіді
procedure TForm1.PrTimeOut (Sender: TObject);
// ...
