Сортировка StringGrid. Где ошибка?

@E.Kopiy · Регистрация: 15.01.2011

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

Здравствуйте!
Проблема такая:
Есть таблица товаров StringGrid. Необходимо отсортировать её по названию.
Например:

До сортировки:
Монитор|45 шт|12300 руб
Акустическая система|4 шт|34000 руб
Колонки|19 шт|5600 руб

После сортировки:
Акустическая система|4 шт|34000 руб
Колонки|19 шт|5600 руб
Монитор|45 шт|12300 руб

Я нашел процедуру сортировки, но она у мня не работает((( Помогите найти в чем ошибка плз
Вот код сортировки :

Delphi

procedure TMainForm.SortGrid(SG: TStringGrid; Column: Integer;
StartWithin: Integer=0);
var
MinRowId, RowId1, RowId2, ColId: Integer;
Temp1, Temp2: string;
begin
for RowId1 := StartWithin to SG.RowCount - 2 do
begin
Temp1 :=SG.Cells[Column , RowId1];
MinRowId := RowId1;
for RowId2 := RowId1 + 1 to SG.RowCount - 1 do
begin
Temp2 := SG.Cells[Column, RowId2];
if Temp2 < Temp1 then
begin
Temp1 := SG.Cells[Column, RowId2];
MinRowId := RowId2;
end;

for ColId := 1 to SG.ColCount - 1 do
begin
Temp2 := SG.Cells[ColId, RowId1];
SG.Cells[ColId, RowId1] := SG.Cells[ColId, MinRowId];
SG.Cells[ColId, MinRowId] := Temp2;
end;
end;

И еще. Может это чем-нибудь поможет) У меня стоит windows 7, delphi 2009

@Mawrat · 15.01.2011, 21:59

Ответ в этой теме.

@E.Kopiy · 15.01.2011, 22:20 **[ТС]**

Извините, за создание новой темы. Иду покупать выпрямитель для рук, чтобы нормально пользоваться поиском))) Тему можно закрывать

---
Mawrat:

@E.Kopiy 5 / 5 / 0 Регистрация: 15.01.2011 Сообщений: 58
		1
	Сортировка StringGrid. Где ошибка? 15.01.2011, 20:22. Показов 731. Ответов 2 Метки нет (Все метки) Здравствуйте! Проблема такая: Есть таблица товаров StringGrid. Необходимо отсортировать её по названию. Например: До сортировки: Монитор\|45 шт\|12300 руб Акустическая система\|4 шт\|34000 руб Колонки\|19 шт\|5600 руб После сортировки: Акустическая система\|4 шт\|34000 руб Колонки\|19 шт\|5600 руб Монитор\|45 шт\|12300 руб Я нашел процедуру сортировки, но она у мня не работает((( Помогите найти в чем ошибка плз Вот код сортировки : Delphi procedure TMainForm.SortGrid(SG: TStringGrid; Column: Integer; StartWithin: Integer=0); var MinRowId, RowId1, RowId2, ColId: Integer; Temp1, Temp2: string; begin for RowId1 := StartWithin to SG.RowCount - 2 do begin Temp1 :=SG.Cells[Column , RowId1]; MinRowId := RowId1; for RowId2 := RowId1 + 1 to SG.RowCount - 1 do begin Temp2 := SG.Cells[Column, RowId2]; if Temp2 < Temp1 then begin Temp1 := SG.Cells[Column, RowId2]; MinRowId := RowId2; end; for ColId := 1 to SG.ColCount - 1 do begin Temp2 := SG.Cells[ColId, RowId1]; SG.Cells[ColId, RowId1] := SG.Cells[ColId, MinRowId]; SG.Cells[ColId, MinRowId] := Temp2; end; end; И еще. Может это чем-нибудь поможет) У меня стоит windows 7, delphi 2009 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	15.01.2011, 21:59	2
	Ответ в этой теме. 0

@E.Kopiy 5 / 5 / 0 Регистрация: 15.01.2011 Сообщений: 58
	15.01.2011, 22:20 [ТС]	3
	Извините, за создание новой темы. Иду покупать выпрямитель для рук, чтобы нормально пользоваться поиском))) Тему можно закрывать --- Mawrat: 0