StringGrid

[krasy]

Написала программку со стринггридом, она у меня сортирует массив, где самостоятельно вводятся элементы, причем строки и столбцы также вводятся. При нажатии на кнопочку "Сортировка" появляются какие-то небесные большие числа в стринггриде. Что не так?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array of array of integer;
  m,n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 n:=StrToInt(Edit1.Text);
 m:=StrToInt(Edit2.Text);
 StringGrid1.RowCount:=n;
 StringGrid1.ColCount:=m;
 Setlength(a,m,n);
 for i:=1 to n do
  for j:=1 to m do
   begin
    a[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
   end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,x:integer;
begin
for k:=1 to n*m do
 for i:=1 to n do
   for j:=1 to m do
    begin
     if a[i,j+1]<a[i,j] then
     begin
     x:=a[i,j+1];
     a[i,j+1]:=a[i,j];
     a[i,j]:=x;
     end;
    end;

for i:=1 to n do
for j:=1 to m do
StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);

end;

end.

[Stilet]

for k:=1 to n*m do

Ой ой... А это зачем?

n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;

Замени на

 n:=StringGrid1.RowCount;
 m:=StringGrid1.ColCount;

[Serge_Bliznykov]

 for j:=1 to m do
    begin
     if a[i,j+1]<a[i,j] then

и за пределы массива вылазишь!

тогда уже:

 for j:=1 to m-1 do
    begin
     if a[i,j+1]<a[i,j] then
...

и ещё.
я, когда слышу про сортировку матрицы, сразу настораживаюсь.
А как Вы матрицу (двухмерный массив) сортируете? по строкам, по столбцам, змейкой или как?
например, матрица

10  7   8   1
2  12   3   5
6   9   11  4

после сортировки как будет выглядеть?!

[krasy]

Сортировка идет по строкам.

1 7 8 10
2 3 5 12
4 6 9 11

[newerow1989]

var d:boolean;
............................
   For i:=1 to n do
   begin
      Repeat
         d:=true;
         For j:=1 to m-1 do
            If a[i,j]>a[i,j+1] then
            begin
               x:=a[i,j];
               a[i,j]:=a[i,j+1];
               a[i,j+1]:=x;
               d:=false;
            end;
      Until d;
   end;

Сойдет?