[Radichek]

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

Код:

unit GLAV_FM;

interface

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

type
  TFM_GLAV = class(TForm)
    TABL: TStringGrid;
    POLE_N: TEdit;
    KN_ZAP: TButton;
    KN_SORT: TButton;
    procedure KN_ZAPClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KN_SORTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_GLAV: TFM_GLAV;

implementation

{$R *.dfm}
CONST
    MAX_N = 300
;
TYPE
   T_M = ARRAY [ 1 .. MAX_N ] OF WORD
;
VAR
   N : WORD
;


PROCEDURE PP_SORT ( K: WORD ; VAR M : T_M );
BEGIN
 // сделать
END
;

procedure TFM_GLAV.FormCreate(Sender: TObject);
VAR
   I: WORD
;
begin

   N := STRTOINT ( POLE_N.Text )
   ;
   IF  N > MAX_N THEN
   BEGIN
      N := MAX_N;
      POLE_N.Text := INTTOSTR ( N )
   END
   ;
   TABL.RowCount := N + 1
   ;
   FOR I := 1 TO N DO
   BEGIN
      TABL.Cells [ 0 , I ] := INTTOSTR ( I )
      ;
      TABL.Cells [ 1 , I ] := INTTOSTR ( ROUND ( 1 + 498 * RANDOM ) )
   END

end;

procedure TFM_GLAV.KN_SORTClick(Sender: TObject);
VAR
   I: WORD
   ;
   CHISLA : T_M
;
begin
   FOR I := 1 TO N DO
   BEGIN
      CHISLA [ I ] := STRTOINT ( TABL.Cells [ 1 , I ] )
      ;
      PP_SORT ( N, CHISLA )
      ;
      TABL.Cells [ 2 , I ] := INTTOSTR ( CHISLA [ I ] )
   END
end;

procedure TFM_GLAV.KN_ZAPClick(Sender: TObject);
VAR
   I: WORD
;
begin

   N := STRTOINT ( POLE_N.Text )
   ;
   IF  N > MAX_N THEN
   BEGIN
      N := MAX_N;
      POLE_N.Text := INTTOSTR ( N )
   END
   ;
   TABL.RowCount := N + 1
   ;
   FOR I := 1 TO N DO
   BEGIN
      TABL.Cells [ 0 , I ] := INTTOSTR ( I )
      ;
      TABL.Cells [ 1 , I ] := INTTOSTR ( ROUND ( 1 + 498 * RANDOM ) )
   END
end;

end.

[ined]

Строки 79 - 86. Надо заменить на:

Код:

 FOR I := 1 TO N DO CHISLA [ I ] := STRTOINT ( TABL.Cells [ 1 , I ] );// Тут загружаем список
PP_SORT ( N, CHISLA ); // Тут отправляем на сортировку 
FOR I := 1 TO N DO TABL.Cells [ 2 , I ] := INTTOSTR ( CHISLA [ I ] ); // Тут выводим что получилось 

Дальше думай сам как тебе удобней сортировать, в процедуре PP_SORT))

[Radichek]

Ребят, стыдно признаться, но реально не шарю, помогите пожалуйста. От этого зависит завтрашний экзамен.

[ined]

Сообщение от Radichek

Ребят, стыдно признаться, но реально не шарю, помогите пожалуйста. От этого зависит завтрашний экзамен.

Я думаю, что тебе надо самому разобраться, что бы в будущем ШАРИТЬ)) мог!!

[Radichek]

В будущем естественно. Но завтра экзамен, а его нужно сдать) Помогите)

[Radichek]

Вот исходник. Тут все, до того, как я начал изменять.