Построчная сортировка в StringGrid

@Skeptik · Регистрация: 21.10.2009

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.RadioButton2Click(Sender: TObject);
var temp:integer;
begin
     with StringGrid1 do
                        for i:=1 to ColCount -1 do
                                        for j:=0 to RowCount -1 do
            if StrToInt(cells[i,j])>StrToInt(cells[i-1,j]) then
              begin
                temp:=StrToInt(cells[i-1,j]);
                cells[i-1,j]:=cells[i,j];
                cells[i,j]:=IntToStr(temp);
             end;
             end;

На кнопку сортировки надо нажать несколько раз, что бы цифры переползли на свое место.
Подскажите пожалуйста, как сделать,чтобы всё происходило по одноразовому нажатию?

@Sperry · 07.11.2010, 23:53

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

Я так и сделал в первом способе)

эм... там вроде первый способ называется "способ пузыря" или какой-то он там по счету если не ошибаюсь?)
попробуй просто вписать begin после строчки for j:=0 to rowcount-1 do

@Skeptik · 08.11.2010, 02:16 **[ТС]**

Блин) ввёл в прогу отрицательные числа) теперь такая фигня

3-й алгоритм пашет, но ему пофиг на минуса(( я ещё не выводил результаты в таблицу)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function ListSortProc(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := AnsiCompareStr(List[Index1], List[Index2]);
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
var
  sList: TStringList;
  s: string;
  i: Integer;
begin
  sList := TStringList.Create;
  sList.AddStrings(StringGrid1.Rows[0]);
  sList.CustomSort(@ListSortProc);// .Sort;
  for i := 0 to sList.Count - 1 do
    s := s + sList[i] + #13;
  MessageBox(Handle, PChar(s), nil, 0);
  sList.Free;
end;

подскажите) плз

@kukuruku310 · 08.11.2010, 12:50

так а чего Вы хотите от строкового сравнения?
Для числовой сортировки функция сравнения должна выглядеть примерно как

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function ListSortProc(List: TStringList; Index1, Index2: Integer): Integer;
var
  val1: Double;
  val2: Double;
begin
  val1 := 0;
  val2 := 0;
 
  if List[Index1] <> '' then begin
    try
      val1 := StrToFloat(List[Index1]);
    except
    end;
  end;
 
  if List[Index2] <> '' then begin
    try
      val2 := StrToFloat(List[Index2]);
    except
    end;
  end;
 
  if      val1 = val2 then Result := 0
  else if val1 > val2 then Result := 1
  else                     Result := -1;
 
end;

про эффективность такой "работы" даже заикаться не стоит

Добавлено через 13 минут
А вообще - как звучит тема Вашей работы? Если это именно сортировка, то применение StringGrid не вполне корректно, т.к. основное время будет затрачено на преобразования строк в числа, а не на саму сортировку.

@Skeptik · 09.11.2010, 02:44 **[ТС]**

Ну если интересно то вот, что получилось
)
Определить минимальные элементы каждой строки матрицы.
Нужно было определить 3-мя способами) и приделать таймеры)
P.s. прогнал в циклах по 10 к раз) чтобы время увидеть)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, DateUtils;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
 
 
  private
    { Private declarations }
 
  public
    { Public declarations }
 
  end;
 
 
var
  Form1: TForm1;
  v:array [1..10,1..10] of real;
  i,j,n,a:integer;
  min1,min2,min3:real;
  time:real;
  temp:string;
  TimeStart,TimeFinish:TDateTime;
 
 
implementation
 
{$R *.dfm}
 
function ListSortProc(List: TStringList; Index1, Index2: Integer): Integer;
var
  val1: Double;
  val2: Double;
begin
  val1 := 0;
  val2 := 0;
 
  if List[Index1] <> '' then begin
    try
      val1 := StrToFloat(List[Index1]);
    except
    end;
  end;
 
  if List[Index2] <> '' then begin
    try
      val2 := StrToFloat(List[Index2]);
    except
    end;
  end;
 
  if      val1 = val2 then Result := 0
  else if val1 > val2 then Result := 1
  else                     Result := -1;
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
for i:=1 to 5 do
for j:=1 to 3 do
begin
v[i,j]:=(random(100)-50)/(1+random(200));
StringGrid1.Cells[i-1,j-1]:=FloatToStrF(v[i,j],ffGeneral,1,5);
StringGrid3.Cells[i-1,j-1]:=FloatToStrF(v[i,j],ffGeneral,1,5);
end;
StringGrid2.Cells[1,0]:='Àëãîðèòì 1';
StringGrid2.Cells[2,0]:='Àëãîðèòì 2';
StringGrid2.Cells[3,0]:='Àëãîðèòì 3';
StringGrid2.Cells[0,1]:='min1';
StringGrid2.Cells[0,2]:='min2';
StringGrid2.Cells[0,3]:='min3';
StringGrid2.Cells[0,4]:='Time';
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
TimeStart:=now;
for a:=1 to 10000 do
begin
min1:=v[1,1];
min2:=v[1,2];
min3:=v[1,3];
for i:=1 to 5 do
for j:=1 to 3 do
begin
if  v[i,1]<min1 then min1:=v[i,1];
StringGrid2.Cells[1,1]:=FloatToStrf(min1,ffGeneral,1,5);
if  v[i,2]<min2 then min2:=v[i,2];
StringGrid2.Cells[1,2]:=FloatToStrf(min2,ffGeneral,1,5);
if  v[i,3]<min3 then min3:=v[i,3];
StringGrid2.Cells[1,3]:=FloatToStrf(min3,ffGeneral,1,5);
TimeFinish:=now;
StringGrid2.Cells[1,4]:=FloatToStrF(SecsPerDay*(TimeFinish-TimeStart)/a,ffExponent,4,4);
end;
end;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var temp:string; flag: Boolean;
begin
TimeStart:=now;
for a:=1 to 10000 do
begin
with StringGrid3 do
  for j:=0 to RowCount -1 do begin
    flag := True;
    while flag do begin
      flag := False;
      for i:=1 to ColCount -1 do
      if StrToFloat(cells[i,j])>StrToFloat(cells[i-1,j]) then
      begin
        temp:=(cells[i-1,j]);
        cells[i-1,j]:=cells[i,j];
        cells[i,j]:=(temp);
        flag := True;
      end;
    end;
      StringGrid2.Cells[2,1]:=StringGrid3.Cells[4,0];
      StringGrid2.Cells[2,2]:=StringGrid3.Cells[4,1];
      StringGrid2.Cells[2,3]:=StringGrid3.Cells[4,2];
     TimeFinish:=now;
StringGrid2.Cells[2,4]:=FloatToStrF(SecsPerDay*(TimeFinish-TimeStart)/a,ffExponent,4,4);
end;
end;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
var
  sList,sList2,sList3: TStringList;
  s: string;
  i: Integer;
 
begin
TimeStart:=now;
for a:=1 to 10000 do
begin
  sList := TStringList.Create;
  sList.AddStrings(StringGrid1.Rows[0]);
  sList.CustomSort(@ListSortProc);// .Sort;
  StringGrid2.Cells[3,1]:=sList[0];
  sList2 := TStringList.Create;
  sList2.AddStrings(StringGrid1.Rows[1]);
  sList2.CustomSort(@ListSortProc);
  StringGrid2.Cells[3,2]:=sList2[0];
  sList3 := TStringList.Create;
  sList3.AddStrings(StringGrid1.Rows[2]);
  sList3.CustomSort(@ListSortProc);
  StringGrid2.Cells[3,3]:=sList3[0];
TimeFinish:=now;
StringGrid2.Cells[3,4]:=FloatToStrF(SecsPerDay*(TimeFinish-TimeStart)/a,ffExponent,4,4);
end;
end;
 
 
 
 
 
end.

@hexvoltt · 09.11.2010, 20:09

Алгоритм 1 доставляет... Кстати, преподаватель весьма удивиться, увидев, что Алгоритм 1 (прямой поиск) работает в 5 раз медленнее сортировки, советую procedure TForm1.RadioButton1Click(Sender: TObject); переписать так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  TimeStart:=now;
  for a:=1 to 10000 do
  for j:=1 to 3 do begin
    min1 := v[1,j];
    for i:=2 to 5 do
    begin
      if v[i,j]<min1 then min1:=v[i,1];
    end;
    StringGrid2.Cells[1,j]:=FloatToStrf(min1,ffGeneral,1,5);
  end;
  TimeFinish:=now;
  // Время у вас любопытно выводится
  StringGrid2.Cells[1,4]:=FloatToStrF(SecsPerDay*(TimeFinish-TimeStart)/10000,ffExponent,4,4);
end;

Кстати, почему вы не используете отступы? Тогда сразу было бы видно, что выполняются преобразования FloatToStr там, где не надо. Или вы это сделали специально, чтобы TimeFinish-TimeStart был побольше?

P.S. А вообще все алгоритмы доставляют в разной степени

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .