Сортировка массива в Delphi

[Ника_1]

Здраствуйте! У меня к вам вопрос, у меня в программе сортирует только первый столбец массива! Мне нужно сделать так, чтобы сортировало весь массив! Может знает кто, как это сделать, подскажите пожалуйста!!! Спасибо!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, Gauges, ComCtrls, Buttons, XPMan,
  jpeg;

type
  mas = array[1..100000] of integer;
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    GroupBox1: TGroupBox;
    UpDown1: TUpDown;
    XPManifest1: TXPManifest;
    LabeledEdit2: TLabeledEdit;
    UpDown2: TUpDown;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public

  end;

var
  Form1: TForm1;
  i,j,n,m1,k:integer;
  aa:array [1..200,1..200] of integer;
  aaa:mas;
implementation

{$R *.dfm}

Procedure hoar(l,r:integer; Var a:mas);
var i,j,m,tmp:integer;
begin
	if l < r then
           begin
	i:=l; j:=r;
	m:=a[i];
	repeat
           k:=k+1;
	while m<a[j] do
	j:=j-1;
	if  i<=j then
	begin
	tmp:=a[i]; a[i]:=a[j]; a[j]:=tmp;
	i:=i+1;
	end;
	while m>a[i] do
	i:=i+1;
	if  i<=j then
	begin
           tmp:=a[i]; a[i]:=a[j]; a[j]:=tmp;
	j:=j-1;
	end;
	until i>j;
	hoar(l, j, a);
	hoar(i, r, a);
	end;
           end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(labeledEdit1.text);
  m1:=strtoint(labeledEdit2.text);
  randomize;
  stringgrid1.ColCount:=m1;
  StringGrid1.RowCount:=n;
    for i:=0 to m1-1 do
    for j:=0 to n-1 do begin
    aa[i+1,j+1]:=random(56)+5;
    stringgrid1.Cells[i,j]:=inttostr(aa[i+1,j+1]);
end;
    stringgrid1.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
for j:=1 to n do
  aaa[j]:=strtoint(stringgrid1.cells[0,j-1]);
 k:=0;
hoar(1,n,aaa);
for i:=1 to n do
 stringgrid1.Cells[0,i-1]:=inttostr(aaa[i]);
end;
end.

[Son Of Pain]

Конечно ) У тебя функция button2click заносит в массив aaa только первый столбец и потом сортирует его. Нужно дописать к ней второй вложенный цикл, чтобы учитывались значения и других столбцов )

[Ника_1]

Мне конечно очень стыдно об этом просить... может вы мне поможете написать этот вложенный цикл, а то я не знаю как делать(((

[Son Of Pain]

А этот код ты сама писала? ) Тогда никаких сложностей быть не должно, по идее. Что конкретно вызывает затруднения?

[Ника_1]

Нет, не сама...у меня тут почти во всем затруднения...а как писать этот вложенный цикл понятия не имею...помогите пожалуйста, сдавать вот вот(((

[Son Of Pain]

Эх )
Ну как-то так

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to m1-1 do
for j:=0 to n-1 do
aaa[i*n+j+1]:=strtoint(stringgrid1.cells[i,j]);
hoar(1,n*m,aaa);
for i:=0 to m1-1 do
for j:=0 to n-1 do
stringgrid1.Cells[i,j]:=inttostr(aaa[i*n+j+1]);
end;

Правда делфи тут нету, потому проверяй сама, может где-то ошибки есть.

[Ника_1]

оно сортирует весь массив, только правда получаются в каждом столбике одинаковые значения...счас приложу всю прогу!