delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列相关的知识，希望对你有一定的参考价值。
要达到这种效果
是我弄错图片了
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
tmp:Double;
begin
for i:=0 to StringGrid1.RowCount-2 do
begin
if StringGrid1.Cells[0,i]='' then continue;
for j:=i to StringGrid1.RowCount -2 do
begin
if StrToFloat(StringGrid1.Cells[0,j]) > StrToFloat(StringGrid1.Cells[0,j+1]) then
begin
tmp:=StrToFloat(StringGrid1.Cells[0,j+1]);
StringGrid1.Cells[0,j+1] := StringGrid1.Cells[0,j];
StringGrid1.Cells[0,j]:=FloatToStr(tmp);
end;
end;
end;
end; 参考技术A 弄一数据库，搞一个表，字段为数字类型，界面用一个DBGRID，ADO数据连接组件中，指明排序方式就行了。冒泡排序，还要重写StringGrid挺麻烦的。 参考技术B 你两个图没区别啊
以上是关于delphi编程， 如何实现赋值StringGrid表格内的数字按顺序排列的主要内容，如果未能解决你的问题，请参考以下文章