Delphi StringGrid使用全書2

領測軟件測試網

var 
　TmpStrList: TStringList ; 
　K : Integer ; 
begin 
　try 
　　TmpStrList :=TStringList.Create() ; 
　　TmpStrList.Clear ; 
　　for K := Grid.FixedCols to Grid.ColCount -1 do 
　　　TmpStrList.Add(Grid.Cells[K,Sou]) ; 
　　Grid.Rows [Sou] := Grid.Rows [Des] ; 
　　for K := Grid.FixedCols to Grid.ColCount -1 do 
　　　Grid.Cells [K,Des]:= TmpStrList.Strings[K] ; 
　finally 
　　TmpStrList.Free ; 
　end; 
end; 

procedure QuickSort(Grid: TStringGrid; iLo, iHi: Integer); 
var 
　Lo, Hi : Integer; 
　Mid: String ; 
begin 
　Lo := iLo ; 
　Hi := iHi ; 
　Mid := Grid.Cells[ACol,(Lo + Hi) div 2]; 
　repeat 
　　if Order and not NumOrStr then //按正序、字符排 
　　begin 

文章來源于領測軟件測試網 http://www.kjueaiud.com/