Сортировка по убыванию в StringGrid

[Alibaba.bu]

Доброго времени суток! Подскажите, пожалуйста, как в данном коде организовать сортировку количества символов по убыванию?

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   Ch : Char;
   Counts : array[Char] of Integer;
   i, Dups : Integer;
begin
s := AnsiUpperCase(Edit1.Text);
ZeroMemory(@Counts, SizeOf(Counts));
for i := 1 to Length(s) do Inc(Counts[s[i]]);
Dups := 0;
for Ch := Low(Char) to High(Char) do
if (Counts[Ch] > 0)and(Ch<>' ') then
      begin
StringGrid1.Cells[0,Dups+1]:=Ch;
  StringGrid1.Cells[1,Dups+1]:=inttostr(Counts[Ch]);
  Inc(Dups);
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
 end;
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var  i: integer;
begin
StringGrid1.Cells[0,0]:=('Символ');
StringGrid1.Cells[1,0]:=('Количество');
StringGrid1.Cells[2,0]:=('Вероятность');
 
end;
end.

[Stilet]

Могу предложить классику: http://delphiworld.narod.ru/download/sg_col_sort.html

[Alibaba.bu]

Я как говорится: "Открываю книгу, вижу фигу" Можно на примере моего кода продемонстрировать как это будет выглядеть? пожалуйста

[Stilet]

Пичаль... Ладно. Забудь.
Вот тебе такое:

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   ColSort,i,j:integer;
begin
 ColSort:=1;
 With StringGrid1 do begin
  for i:=0 to RowCount-1 do
   for j:=0 to RowCount-1 do
    if StrToIntDef(Cells[ColSort,i],0)<StrToIntDef(Cells[ColSort,j],0) then begin
     s:=Rows[i].Text; Rows[i].Text:=Rows[j].Text; Rows[j].Text:=s;
 end;
end;

Думаю это наиболее простой выход.
Захочешь сортировать по другой колонке - ColSort установи в нужные номер.

[Alibaba.bu]

Вроде работает, спасибо))
но в программе какая то ошибка, она когда считает выдает не все элементы, какой нибудь один всегда не считает... В чем может быть проблема? не подскажите?

[Stilet]

Не понял... Поясни подробнее.

[Alibaba.bu]

моя программа подсчитывает вхождение каждого элемента из Edit и заносит их в StringGrid.

Пример:
Ввожу : как дела
он выдает следующее:
а 2
к 2
е 1
д 1

получается что "л" не выводит

и почему то перестали выводиться названия колонок((

Есть у кого нибудь идеи? Подскажите пожалуйста!!!

[Stilet]

получается что "л" не выводит

Тут я х.з.

почему то перестали выводиться названия колонок((

  for i:=FixedRows to RowCount-1 do
   for j:=FixedRows to RowCount-1 do

[Alibaba.bu]

for i:=FixedRows to RowCount-1 do
for j:=FixedRows to RowCount-1 do

Подскажите плизз в какую часть кода(после чего) его вставлять?

хотя стоит вроде

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   Ch : Char;
   Counts : array[Char] of Integer;
   i,j,ColSort,n: Integer;
begin
s := AnsiUpperCase(Edit1.Text);
ZeroMemory(@Counts, SizeOf(Counts));
for i := 1 to Length(s) do Inc(Counts[s[i]]);
j := 0;
for Ch := Low(Char) to High(Char) do
if (Counts[Ch] > 0)and(Ch<>' ') then
begin
StringGrid1.Cells[0,j+1]:=Ch;
StringGrid1.Cells[1,j+1]:=inttostr(Counts[Ch]);
  Inc(j);
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
 end;
StringGrid1.RowCount:=StringGrid1.RowCount-1;
begin
 ColSort:=1;
 With StringGrid1 do begin
 for i:=0 to RowCount-1 do
 for j:=0 to RowCount-1 do
 if StrToIntDef(Cells[ColSort,i],0)>StrToIntDef(Cells[ColSort,j],0) then begin
 s:=Rows[i].Text;
 Rows[i].Text:=Rows[j].Text;
 Rows[j].Text:=s;
 end;
 end;
 end;
 end;

procedure TForm1.FormCreate(Sender: TObject);

begin
StringGrid1.Cells[0,0]:=('Ñèìâîë');
StringGrid1.Cells[1,0]:=('Êîëè÷åñòâî');
StringGrid1.Cells[2,0]:=('Âåðîÿòíîñòü');
end;
end.

[Stilet]

Посмотри внимательно, в чем разница. Научись читать код, это будет тебе полезно.