VPF::Сортировка в дельфи. Помогите!

Radichek

Дата 21.6.2012, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 21.6.2012

Репутация: нет
Всего: нет

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

Код

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

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.

Keeper89

Дата 23.6.2012, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

вот там, где

Код


// сделать

вставь любой алгоритм сортировки.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »