有关数组

Question

请问数组怎样赋值的?
我知逐一元素赋值可以实现,但元素多了,很麻烦,有其它方便的办法吗?有一数据,五个元素.56,32,98,58,48
integer型.
怎样写程序使这五个元素从高到低排列输出?谢了.

Answer 1

呵呵，排出了从低到高procedure TForm1.FormCreate(Sender: TObject);var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  MyList.Add('56');
  MyList.Add('32');
  MyList.Add('98');
  MyList.Add('58');
  MyList.Add('48');
  MyList.Sorted := True;
  ListBox1.Items.AddStrings(MyList);
  MyList.Free;
end;Email:[email protected]

Answer 2

1、如果要赋值的值相同，可以一次性赋值，如果不同，我想只能一个一个赋值了
2、
{数组排序函数(冒泡法)，a为引用数组，sf为从小至大（False）
从大至小（True）参数 ，缺省为False}procedure bsort(var a:array of integer;const sf:boolean=false);
var
i,j,w:integer;
flag:boolean;
begin
 for i:=1 to high(a) do
 begin
   flag:=true;
   for j:=0 to high(a)-i do
      if ((not sf) and (a[j]>a[j+1])) or ((sf) and (a[j]<a[j+1]))then
      begin
        flag:=false;
        w:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=w;
      end;
      if flag then break;
 end;end;