[Rafael_21_03]

сделал сортировку на одномерный массив, все работает, только чтоб сортировало, надо два раза нажать button4....вот код

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
//    procedure Button2Click(Sender: TObject);
//    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
 N=3;
 P=15;
 var
 Form1: TForm1;
a:array [0..p]of integer;
i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:=0 to p do

begin

a[i]:=random(100)-50;
stringGrid1.Cells[i,j]:=intToStr(a[i]);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i,m,k,c,j,max,min:integer;
begin
for i:=0 to 15 do
begin
k:=i;
for m:=i to 15 do if a[k]>a[m] then
 k:=m;
c:=a[i];
a[i]:=a[k];
a[k]:=c;


end;
stringGrid2.cells[i,0]:=IntToStr(c);
end;
end.

procedure TForm1.Button3Click(Sender: TObject);
var
max,min:integer;
begin
for i:=0 to 9 do
begin

for j:=0 to n do

if b[i] < min then
min:=b[i] else if b[i] > max then max:=b[i] ;
label1.caption:=IntToStr(max);
Label2.caption:=IntToStr(min);
end;
end; 
end. 


использовал StringGrid-2шт, размером 1х16, button 4 шт(button2 и button 3 не работает, это для других целей)

Сделал сортировку на двумерный массив, (двумерный массив перевожу в одномерный, сортирую предыдущим кодом и готовый массив перевожу в двумерный массив), так вот, чтоб отсортировать, вставляю тот же код(предыдущего массива), но кнопка button2 нажимается только ОДИН раз т.е. на доконца сортирует, надо чтоб это кнопка нажималась ДВА раза, и все сортировало..................вот код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    StringGrid1: TStringGrid;
    StringGrid3: TStringGrid;
    StringGrid4: TStringGrid;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
//    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
 n=3;
var
 Form1: TForm1;
a:array [0..n,0..n] of integer;
b:array [0..n] of integer;
i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:=0 to n do
for j:=0 to n do
begin
a[i,j]:=random(50)-10;
StringGrid1.cells[i,j]:=floatToStr(a[i,j]);

end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
For i := 0 to 3 do StringGrid2.Cells[i, 0] := StringGrid1.Cells[i, 0];
For i := 4 to 7 do StringGrid2.Cells[i, 0] := StringGrid1.Cells[i-4, 1];
For i := 8 to 11 do StringGrid2.Cells[i, 0] := StringGrid1.Cells[i-8, 2];
For i := 12 to 16 do StringGrid2.Cells[i, 0] := StringGrid1.Cells[i-12, 3];
end;

procedure TForm1.Button2Click(Sender: TObject);
const
n=15;
var
b:array [0..n] of integer;
i,m,k,c,max,min:integer;
 begin
for i:= 0 to n do
b[i]:=StrToInt(StringGrid2.cells[i,0]);

begin
for i:=0 to 15 do
begin
k:=i;
for m:=i to 15 do if b[k]>b[m] then
 k:=m;
c:=b[i];
b[i]:=b[k];
b[k]:=c;
StringGrid3.cells[i,0]:=IntToStr(c);
end;
end;

 end;

procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
 For i := 0 to 3 do StringGrid4.Cells[i, 0] := StringGrid3.Cells[i, 0];
 For i := 4 to 7 do StringGrid4.Cells[i-4, 1] := StringGrid3.Cells[i, 0];
 For i := 8 to 11 do StringGrid4.Cells[i-8, 2] := StringGrid3.Cells[i, 0];
 For i := 12 to 15 do StringGrid4.Cells[i-12, 3] := StringGrid3.Cells[i, 0];
 For i := 20 to 24 do StringGrid4.Cells[i-20, 4] := StringGrid3.Cells[i, 0];
end;

end.

использывал 4 StringGrid два из них 1х16, а два 4х4, также кнопки dutton 5 шт

PS: мучаюсь уже 3 неделю, помогите пжлст
Заранее блогодарен

[san-46]

Почему то новички путают индексы при обращении к ячейкам StringGrid.
Первый в квадратных скобках индекс колонки, второй через запятую - строки, а не наоборот, хотя легко увидеть при наведении мышки на слово Cell:
"[ACol : Integer; ARow : Integer]".

Классический "пузырьковый" метод сортировки (или как его назвал автор темы "метод обмена"):

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  i, c, j : integer;
  StopSort : Boolean;
begin
  for I := P downto 0 do begin
    StopSort := True;
    for J := 1 to I do
      if a[J-1] > a[J] then begin //if a[J] > a[J-1] then begin //изменяет порядок сортировки
        c := A[J];
        A[J] := A[J-1];
        A[J-1] := c;
        StopSort := False;
      end;
    if StopSort then Break;
  end;

  for i := 0 to P do
    //!!!в квадр. скобках первым идет индекс колонки,затем индекс строки
    stringGrid1.cells[0, i] := IntToStr(a[i]);
end;

Как у автора сделано тоже работает нормально, только массив помещать в StringGrid надо после сортировки и не путать индексы.

[Rafael_21_03]

Спасибо большое, помогло!!!!!!!!!!