Курсовые проекты / лабы мои / СПОлабы / 1 / Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, Buttons ;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    StringGrid2: TStringGrid;
    StringGrid1: TStringGrid;
    Button4: TButton;
    Memo2: TMemo;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  ukazatel:integer;
  koliz,sravn:integer;

 implementation

{$R *.dfm}


procedure TForm1.Button3Click(Sender: TObject);
begin
  { Выход из программы }
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject); {открытие файла}
begin
if OpenDialog1.Execute then   Memo1.Lines.LoadFromFile(OpenDialog1.Filename)
end;

function Xesh(St:string):integer; {процедура вычисление значения хэш-функции}
var dlina:integer;
    twosyb:char;
    fivesyb:char;
begin
dlina:=length(St);
if dlina=0 then  Result:=0 else
                          begin
                          if dlina>=4 then       begin
                                          twosyb:=St[2];
                                          fivesyb:=St[5];
                          end
              else       begin
                         twosyb:=St[2];
                         Result:=ord( twosyb);
                         end;
Result:=ord(fivesyb)+ord(twosyb);
end;
end;


procedure TForm1.Button4Click(Sender: TObject); { процедура заполнения таблиц}
var i,g,dlina,hash,ukaz:integer;
    stroka:string;
label 1,2;
begin
ukazatel:=1;
 with    StringGrid1 do begin
Cells[0,0]:='Номер';
Cells[1,0]:='Индефикатор';
Cells[2,0]:='лево';
Cells[3,0]:='право';
                       end;

with    StringGrid2 do begin
Cells[0,0]:='Номер';
Cells[1,0]:='Индеф';
                        end;

for g:=0 to 400 do  begin
                    StringGrid2.Cells[0,g]:=IntToStr(g);
                    StringGrid1.Cells[0,g]:=IntToStr(g);
                    end;


     dlina:=memo1.Lines.Count;    { Определяем колличество записей }
     if dlina<>0 then
     begin
      StringGrid1.RowCount:=dlina+1;  { кол-во строк }
                for i:=1 to dlina do begin    { заполняем номера строк  }
                               StringGrid1.Cells[0,i]:=IntToStr(i);
                               end;
     for i:=0 to dlina-1 do begin  { заполняет в строки текст  }
                          stroka:=memo1.Lines[i];
                          hash:=Xesh(stroka);

if StringGrid2.cells[1,hash-65]=''  then  begin  { проверяем состояние ячейки  в ХТ, выполняем если пусто }
                                          StringGrid2.cells[1,hash-65]:=IntToStr(ukazatel); {заносим указатель в ХТ}
                                          StringGrid1.cells[1,ukazatel]:=stroka; {Заносим запись в ТИ по значению указателя}
                                          ukazatel:=ukazatel+1; { увеличение указателя на 1}
                                          goto 1;
                                          end;
if StringGrid2.cells[1,hash-65]<>'' then  begin { выполняем если занета ячейка }
                                          koliz:=koliz+1;
                                          ukaz:=StrToInt(StringGrid2.cells[1,hash-65]);
2:                                        if stroka=StringGrid1.Cells[1,ukaz] then { проверка на дубликаты }
                                          begin
                                          memo2.Lines[j]:='Удален '+stroka; { вывод в поле memo2 название дубликата }
                                          end;

                                          if stroka<StringGrid1.cells[1,ukaz] then { заполняем дерево в левую часть }
                                          begin
                                          if StringGrid1.cells[3,ukaz]='' then  begin    {если ле }
                                                                                StringGrid1.cells[2,ukaz]:=IntToStr(ukazatel);
                                                                                StringGrid1.cells[1,ukazatel]:=stroka;
                                                                                ukazatel:=ukazatel+1;
                                                                                goto 1;
                                                                                end;
                                          if StringGrid1.cells[3,ukaz]<>'' then begin
                                                                                ukaz:=StrToInt(StringGrid1.cells[2,ukaz]);
                                                                                goto 2;
                                                                                end;
                                          end;



                                          if stroka>StringGrid1.cells[1,ukaz] then {заполняем дерево в правую часть }
                                          begin
                                          if StringGrid1.cells[3,ukaz]='' then  begin
                                                                                StringGrid1.cells[3,ukaz]:=IntToStr(ukazatel);

                                                                                StringGrid1.cells[1,ukazatel]:=stroka;
                                                                                ukazatel:=ukazatel+1;
                                                                                goto 1;
                                                                                end;
                                          if StringGrid1.cells[3,ukaz]<>'' then begin
                                                                                ukaz:=StrToInt(StringGrid1.cells[3,ukaz]);
                                                                                goto 2;
                                                                                end;
                                          end;


                                          end;

1:                           end;
    
    end;
StringGrid1.RowCount:=ukazatel+1; { добовляем строку в таблицу индефикаторов }
end;

procedure TForm1.Button2Click(Sender: TObject); { процедура для ручной проверки получаемой хеш функции }
var sym:string;
    sym1:integer;
begin
sym:=Edit1.Text;
label4.Visible:=True;
sym1:= Xesh(sym);
label4.Caption:='Хеш='+inttostr(sym1-65);
end;

end.