| リビジョン | c7fd230213a9b850aad3a72807319962ec8ac77f (tree) |
|---|---|
| 日時 | 2022-01-09 14:52:19 |
| 作者 | yamat0jp <yamat0jp@yaho...> |
| コミッター | yamat0jp |
recheck
| @@ -21,7 +21,6 @@ object Form1: TForm1 | ||
| 21 | 21 | Align = alLeft |
| 22 | 22 | Indent = 19 |
| 23 | 23 | TabOrder = 0 |
| 24 | - ExplicitHeight = 299 | |
| 25 | 24 | end |
| 26 | 25 | object Button1: TButton |
| 27 | 26 | Left = 480 |
| @@ -40,7 +39,5 @@ object Form1: TForm1 | ||
| 40 | 39 | Align = alLeft |
| 41 | 40 | ItemHeight = 19 |
| 42 | 41 | TabOrder = 2 |
| 43 | - ExplicitLeft = 321 | |
| 44 | - ExplicitHeight = 409 | |
| 45 | 42 | end |
| 46 | 43 | end |
| @@ -66,6 +66,7 @@ begin | ||
| 66 | 66 | Exit; |
| 67 | 67 | ListBox1.Items.Add('- - - - - - - - - - - - - - -'); |
| 68 | 68 | ListBox1.Items.Add('ok'); |
| 69 | + Finalize(heap); | |
| 69 | 70 | end; |
| 70 | 71 | |
| 71 | 72 | end. |
| @@ -8,9 +8,8 @@ procedure base(root: integer); | ||
| 8 | 8 | procedure makeHeap(count: integer); |
| 9 | 9 | |
| 10 | 10 | var |
| 11 | - arr, heap: TArray<integer>; | |
| 11 | + heap: TArray<integer>; | |
| 12 | 12 | tail: integer; |
| 13 | - s: string; | |
| 14 | 13 | |
| 15 | 14 | implementation |
| 16 | 15 |
Fork
Unit1.dfm
Unit1.pas