Delphi StringGrid使用全书2

领测软件测试网

　　　while Grid.Cells[ACol,Lo] < Mid do Inc(Lo); 
　　　while Grid.Cells[ACol,Hi] > Mid do Dec(Hi); 
　　end ; 
　　if not Order and not NumOrStr then //按反序、字符排 
　　begin 
　　　while Grid.Cells[ACol,Lo] > Mid do Inc(Lo); 
　　　while Grid.Cells[ACol,Hi] < Mid do Dec(Hi); 
　　end; 

　　if NumOrStr then 
　　begin 
　　　if Grid.Cells[ACol,Lo] = ’’ then Grid.Cells[ACol,Lo] := ’0’ ; 
　　　if Grid.Cells[ACol,Hi] = ’’ then Grid.Cells[ACol,Hi] := ’0’ ; 
　　　if Mid = ’’ then Mid := ’0’ ; 
　　　if Order then 
　　　begin //按正序、数字排 
　　　　while StrToFloat(Grid.Cells[ACol,Lo]) < StrToFloat(Mid) do Inc(Lo); 
　　　　while StrToFloat(Grid.Cells[ACol,Hi]) > StrToFloat(Mid) do Dec(Hi); 
　　　end else 
　　　begin //按反序、数字排 
　　　　while StrToFloat(Grid.Cells[ACol,Lo]) > StrToFloat(Mid) do Inc(Lo); 
　　　　while StrToFloat(Grid.Cells[ACol,Hi]) < StrToFloat(Mid) do Dec(Hi); 
　　　end; 
　　end ; 
　　if Lo <= Hi then 
　　begin 
　　　MoveStringGridData(Grid, Lo, Hi) ; 
　　　Inc(Lo); 
　　　Dec(Hi); 
　　end; 

文章来源于领测软件测试网 https://www.ltesting.net/