Question

delphi对数字进行排序

框框中输入数字，逗号隔开，然后点击排序，数字排序怎么实现？

Answer 1

不用memo控件，采用edit控件程序：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  st,s,ss:string;
  a:array[1..100] of integer;
  i,j,k:integer;
  p,q,t:integer;
begin
     st:=edit1.Text;
     i:=0;
     while pos(',',st)>0 do begin
         s:=copy(st,1,pos(',',st)-1);
         val(s,j,k);
         inc(i);
         a[i]:=j;
         delete(st,1,pos(',',st));
     end;
     val(st,j,k);
     inc(i);
     a[i]:=j;
     for p:=1 to i-1 do for q:=p+1 to i do
      if a[p]>a[q] then begin t:=a[p]; a[p]:=a[q]; a[q]:=t; end;
     str(a[1]:0,ss);
     for p:=2 to i do begin str(a[p]:0,s); ss:=ss+','+s; end;
     edit1.Text:=ss;
end;

end.

Answer 2

拆分到数组，冒泡排序，输出到文本框

追问

我在想，这个memo控件中的应该是默认为string类型，转化为interger类型数组是怎么转换呢？还是说我控件选的不对

追答

strtointdef('1',0)
strtoint('1'),但是如果不能转换为数字，比如参数是'A'就会有异常，上面那个不会有异常，转换不成功默认为0