Здравствуйте, novij2011!

Можно добавить вот такую рекурсивную процедуру


Плюс соответствующие исправления в Button1Click и определении TForm1
Итого, вот как выглядит Unit1.pas

[code h=200]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ID, ExtCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
ESearch: TEdit;
sg: TStringGrid;
Edit1: TEdit;
Label1: TLabel;
sg2: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Output(IDIndex:integer);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
IDTable: array of TID;
HashTable: array of integer;
CollisionQuantity: integer;
CompareQuantity: integer;

implementation

{$R *.dfm}

procedure MakeTreeNode(HashIndex:integer; IDIndex:integer);
begin
if IDTable[HashIndex].Name<IDTable[IDIndex].Name then
begin
if IDTable[HashIndex].Right = 0 then
IDTable[HashIndex].Right := IDIndex
else
MakeTreeNode(IDTable[HashIndex].Right,IDIndex);
end;
if IDTable[HashIndex].Name>IDTable[IDIndex].Name then
begin
if IDTable[HashIndex].Left = 0 then
IDTable[HashIndex].Left := IDIndex
else
MakeTreeNode(IDTable[HashIndex].Left,IDIndex);
end;
end;
procedure HashTreeBuild(N:integer);
var
i:integer;
begin
for i:=1 to N do
begin
if HashTable[IDTable[i].Hash]=0 then
HashTable[IDTable[i].Hash] := i
else
begin
Inc(CollisionQuantity);
MakeTreeNode(HashTable[IDTable[i].Hash],i);
end;
end;
end;
function GetIDIndex(SearchID:TID;HashIndex:integer):integer;
begin
if IDTable[HashIndex].Name=SearchID.Name then
begin
Inc(CompareQuantity);
Result:=HashIndex;
exit;
end;
if IDTable[HashIndex].Name<SearchID.Name then
begin
Inc(CompareQuantity);
if IDTable[HashIndex].Right<>0 then
begin
result:= GetIDIndex(SearchID,IDTable[HashIndex].Right);
exit;
end
else
begin
result := 0;
exit;
end;
end
else
begin
inc(CompareQuantity);
if IDTable[HashIndex].Left=1 then
begin
result := GetIDIndex(SearchID,IDTable[HashIndex].Left);

exit;
end
else
begin
result := 0;
exit;
end;
end
end;

procedure TForm1.Output(IDIndex:integer);
begin

if IDTable[IDIndex].Left <> 0 then Output(IDTable[IDIndex].Left);
sg2.Cols[0].Add(IDTable[IDIndex].Name);
if IDTable[IDIndex].Right <> 0 then Output(IDTable[IDIndex].Right);
end;

procedure TForm1.Button1Click(Sender: TObject);

var
d1,d3:TDateTime;
Hash:integer;
SearchID:TID;
SearchString : string;
HashIndex:integer;
IDIndex:integer;
begin
d1:=Now();
SearchString := eSearch.Text;
SearchID := TID.Create;
SearchID.Name := SearchString;
Hash := SearchID.Hash;
HashIndex := HashTable[Hash];
CompareQuantity := 0;

IDIndex := GetIDIndex(SearchID,HashIndex);

memo1.Clear;

if IDIndex<>0 then
begin





memo1.Lines.Add('Идентификатор найден, его индекс = :'+IntToStr(IDIndex));
memo1.Lines.Add('Сравнений:'+IntToStr(CompareQuantity));
memo1.Lines.Add('Коллизий:'+IntToStr(CollisionQuantity));

end

else
begin
memo1.Lines.Add('Идентификатор не найден');
memo1.Lines.Add('Сравнений:'+IntToStr(CompareQuantity));
memo1.Lines.Add('Коллизий:'+IntToStr(CollisionQuantity));

end ;
d3:=Now();

edit1.Text:=formatdatetime('hh:mm:ss:ms',(d1-d3));
if CollisionQuantity >=1 then begin
sg2.cells[0,0]:='№ ID. c коллизией';
sg2.cells[1,0]:=(IntToStr(IDIndex));
Output(IDIndex);
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
N:integer;
i:integer;
begin
memo1.Lines.LoadFromFile('Input.txt');
N := memo1.Lines.Count;

SetLength(IDTable,N+1);
for i:=0 to N do
begin
IDTable[i] := TID.Create;
IDTable[i].Name := memo1.Lines.Strings[i-1];
end;

SetLength(HashTable,256);
for i:=0 to 255 do HashTable[i] := 0;

HashTreeBuild(N);

sg.Rows[0].Add('индекс');
sg.Rows[0].Add('имя идент.');
sg.Rows[0].Add('хэш-функция');
sg.Rows[0].Add('поле Left');
sg.Rows[0].Add('поле Right');

for i := 1 to N do
begin
sg.Rows[i].Add(IntToStr(i));
sg.Rows[i].Add(IDTable[i].Name);
sg.Rows[i].Add(IntToStr(IDTable[i].Hash));
sg.Rows[i].Add(IntToStr(IDTable[i].Left));
sg.Rows[i].Add(IntToStr(IDTable[i].Right));
sg.RowCount := sg.RowCount+1;
end;
memo1.Clear;
memo1.Lines.Add('Введите имя идентификатора');
memo1.Lines.Add('Коллизий:'+IntToStr(CollisionQuantity));

end;

end.
[/code]