Курсовая работа: Сортування даних - пірамідальне сортування

begin

for i:=1 to N do

begin

if Form1.StringGrid1.Cells[i-1,0]<>'' then

try

A[i]:=strtoint(Form1.StringGrid1.Cells[i-1,0])

except on EConvertError do showmessage('Недопустимый формат данных ! Присвоено значение "0"'); end

else

showmessage('Обнаружено пустое поле ! Присвоено значение "0"');

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var i:integer;

begin

get_data;

Label1.Caption:='';

Label1.Enabled:=true;

SortTree(1);

For k := n downto 2 do

begin

Swap(k, 1);

Conflict(1, k - 1) end;

show_result; end;

procedure TForm1.Button1Click(Sender: TObject);

begin

try

N:=strtoint(edit1.Text);

except on EConvertError do

edit1.Clear end;