delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列

从小到大排列，用个简单的冒泡排序法就好了。

procedure TForm1Button1Click(Sender: TObject);

var

i,j:Integer;

tmp:Double;

begin

for i:=0 to StringGrid1RowCount-2 do

begin

if StringGrid1Cells[0,i]='' then continue;

for j:=i to StringGrid1RowCount -2 do

begin

if StrToFloat(StringGrid1Cells[0,j]) > StrToFloat(StringGrid1Cells[0,j+1]) then

begin

tmp:=StrToFloat(StringGrid1Cells[0,j+1]);

StringGrid1Cells[0,j+1] := StringGrid1Cells[0,j];

StringGrid1Cells[0,j]:=FloatToStr(tmp);

end;

end;

end;

end;

with TStringListCreate do

begin

Text := mmo1Text;

Sort;

mmo1Text := Text;

Free;

end;

冒泡排序  2选择排序 3插入排序 4希尔排序  5快速排序  6归并排序  7堆排序(

具体代码可以查看CSDN论坛

以上就是关于delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列全部的内容，包括:delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列、delphi7.0中数组怎么排序、delphi实现常用的几种排序算法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！