Question

delphi编程， 上次问过你如何实现赋值StringGrid表格内的数字按顺序排列，现在还有一点问题

现在的问题表格内数字长度到22位就不能排序了！

Answer 1

因为22位太长了，超过了浮点数的范围，int64才19位。这时你就要把这个数字当做字符串处理了。
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,m:Integer;
s,s1:string;
begin
for i:=0 to StringGrid1.RowCount-1 do
begin
if StringGrid1.Cells[0,i]='' then continue;
for j:=0 to StringGrid1.RowCount -1 -i do
begin
if StringGrid1.Cells[0,j]='' then continue;
s:=StringGrid1.Cells[0,j];
s1:=StringGrid1.Cells[0,j+1];
for m:=1 to Length(s) do //字符串逐位比较
begin
if StrToInt(s[m]) < StrToInt(s1[m]) then break; //高位有小于的肯定该数字较小
if StrToInt(s[m]) > StrToInt(s1[m]) then //大于的话，冒泡交换
begin
StringGrid1.Cells[0,j+1] := s;
StringGrid1.Cells[0,j]:=s1;
Break;
end;
end;
end;
end;
end;

追问

我想实现的是每一次赋值给StringGrid表格后，表格内的数字会自动排序，这次好像试验的不行

追答

这就更简单了，表格内的数据按理说也是排序好了的，你只需要把添加的那条数据与表格内所有的数据逐一比较。