如何使用計時器在字符串網格中設置插入字符串的排序？

Question

我正在嘗試使用計時器來移動字符串，以便在我的delphi程序中對插入排序進行動畫處理。任何人都可以提供建議嗎？

procedure TForm1.Button1Click(Sender: TObject); 
var 
current_position, index, count : integer ; 
temp : string ; 


begin 
current_position := 0 ; //start insertion sort 
repeat 
current_position := current_position + 1 ; //set up pointers 
index := 0 ; 
while index <= current_position do 
begin 
if word[index] > word[current_position] then 
    begin 
    temp:= word[current_position]; 
    for count := current_position downto index + 1 do 
    begin 
    word[count]:= word[count-1] 
    end; 
    word[index]:= temp; 
    end; 
    index:= index + 1 
    end; 
until current_position = 9 ; 

for current_position := 0 to 9 do 
StringGrid1.Cells[0,current_position]:= word[current_position]; 

end; 

Answer 1

您只需插入Sleep(<milliseconds>);和Application.ProcessMessages;在你的代碼慢下來，並顯示進度。雖然does introduce some problems/unwanted behaviours，所以你應該小心。