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

[menX]

Здравствуйте! Скажите почему оно не сортиру, за сортировку отвичает кнопка Button3

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    BitBtn1: TBitBtn;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;  n,i,j:Integer;    tmp:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin


For i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:=IntToStr(random(30));
end;

procedure TForm1.Button2Click(Sender: TObject);
var S:Integer;
begin
For i:=0 to StringGrid1.ColCount-1 do
S:=S+StrToInt(StringGrid1.Cells[i,0]);
StringGrid1.Cells[1,1]:=IntToStr(S);
StringGrid1.Cells[0,1]:='сумма';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=1 to n-1 do
for j:=1 to i do
if StringGrid1.Cells[i,j]>StringGrid1.Cells[i,j+1] then
begin
tmp:=StringGrid1.Cells[i,j];
StringGrid1.Cells[i,j]:=StringGrid1.Cells[i,j+1];
StringGrid1.Cells[i,j+1]:=tmp;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
end;

end.

[DM_bite]

А что есть n? А может оно вообще не инициализуется? В Edit1.text есть какое-нибудь значение?

[menX]

n символизирует количество ячеек, правда, наверное, я его немного не там описал, но это не меняет сути, так как массив не сортируется

Вот так пожалуй правильнее

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    BitBtn1: TBitBtn;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;  n,i,j:Integer;    tmp:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;

For i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:=IntToStr(random(30));
end;

procedure TForm1.Button2Click(Sender: TObject);
var S:Integer;
begin
For i:=0 to StringGrid1.ColCount-1 do
S:=S+StrToInt(StringGrid1.Cells[i,0]);
StringGrid1.Cells[1,1]:=IntToStr(S);
StringGrid1.Cells[0,1]:='сумма';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=1 to n-1 do
for j:=1 to i do
if StringGrid1.Cells[i,j]>StringGrid1.Cells[i,j+1] then
begin
tmp:=StringGrid1.Cells[i,j];
StringGrid1.Cells[i,j]:=StringGrid1.Cells[i,j+1];
StringGrid1.Cells[i,j+1]:=tmp;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
end;

end.

[menX]

разобрался! тема закрыта.