Курсовая работа: Информационная система расчетов по договорам

end;

// ===================

procedure TForm1.N7Click (Sender: TObject);

begin

// Сортировка-меню-дублирующее

Button5Click(Sender);

end;

// ===================

end.

Текст модуля класса UnitCl.pas

// ************

// Created by Kamenev A.I. 417 318 10 var.

// Minsk MIDO BNTU.

// САОД– КУРСОВОЙ

// ************

unit UnitCl;

interface

uses

SysUtils, Forms, StdCtrls, Grids, Classes, Dialogs;

type

TKp = class (TObject)

Private

{Private data}

Public

procedure RowC (AStringGrid:TStringGrid);

procedure XDGr (AStringGrid:TStringGrid);

procedure WTKGr (AStringGrid:TStringGrid);

procedure BANGr (AStringGrid:TStringGrid);

procedure Clear (AStringGrid:TStringGrid);