9.2. Порядок написания программы

Задание. Создать класс (в модуле Uhesh), реализующий стандартные методы работы с хеш-таблицей на основе массива стеков Create, Free, Add, Read, Red, Print(TMemo).

9.2.1. Фрагмент программы

Листинг 9.1

Unit Uhesh;

Interface

Uses Grids, SysUtils, Dialogs;

Type

Tkey=integer; Tinf=Record

Fio:string;

key:integer; end;

Psel=^sel; sel=Record inf:Tinf;

A:Psel; end;

Ms=array[0..1] of Psel; Pms=^Ms;

TH=class(Tobject) M,n:Word; sp,sp1:psel; H:Pms;

Constructor create(M0:word);

Destructor Free(Var stringgrid:TStringGrid); Procedure Add(Inf:Tinf);

Procedure Read(key:Tkey; Var Inf:Tinf);

…

end; Implementation

Constructor TH.create(M0:word); Var i:word;

begin Inherited create; M:=M0; n:=0; Getmem(H,M*4);

for i:=0 to M-1 do H[i]:=Nil; end;

42