delphi编程…急求！

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:21:08
窗体上有两个MEMO控件和一个BUTTON控件，程序运行时，在MEMO1中输入30行实数后(从第一行开始，一行一个实数)单击BUTTON,在MEMO2中输出30行(内容为MEMO1中实数从小到大排序)。编写BUTTON控件的OnClick事件

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
s:string;
begin
memo2.lines.assign(memo1.lines);
for i:=1 to 29 do
for j:=i+1 to 30 do
if strtofloat(memo2.lines.string[i])>strtofloat(memo2.lines.string[j]) then
begin
s:=memo2.lines.string[i];
memo2.lines.string[i]:=memo2.lines.string[j];
memo2.lines.string[j]:=s;
end;
end;

要我就借助数据库了
随便建个表，把这些实数INSERT 到边里
然后order by 一下就行了

哈哈~~

应该有更好的方法，只不过我对数据库比较熟悉，先想到这个~