Сортировка... Помогите

[Олямбан]

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

var
  Form1: TForm1;
  k:string;
  a:char;   //символ
  b:integer;//кол-во символа "a" в строке
  c:integer;//количество различных символов
implementation

{$R *.dfm}

procedure clear;
begin
  Form1.StringGrid1.Cols[1].Clear;
  Form1.StringGrid1.Cols[2].Clear;
  Form1.StringGrid1.RowCount:=1;
  b:=0;
  c:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var i:integer;
begin
  clear;
  Form1.StringGrid1.Cells[0,c]:='Символ';
  Form1.StringGrid1.Cells[1,c]:='Количество';
  k:=Edit1.Text;
  while Length(k)<>0 do
    begin
      inc(c);
      a:=k[1];;
      b:=1;

      for i := 2 to Length(k) do
        if k[i]=a then inc(b);
      k:=StringReplace(k,a,'',
                              [rfReplaceAll]);
      Form1.StringGrid1.Cells[0,c]:='"'+a+'"';
      Form1.StringGrid1.Cells[1,c]:=IntToStr(b);
    end;
  Form1.StringGrid1.RowCount:=c+1;
end;

end.

[type_Oleg]

Сообщение от Олямбан

.. и еще при подсчете не учитывать строчную и заглавную букву..

Тогда не так

k:=StringReplace(k,a,'',[rfReplaceAll]);

.. а так

k:=StringReplace(k,a,'',[rfReplaceAll,rfIgnoreCase]);

Или сделать так

k:=AnsiUpperCase(Edit1.Text);

[Олямбан]

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

Тогда не так

k:=StringReplace(k,a,'',[rfReplaceAll]);

.. а так

k:=StringReplace(k,a,'',[rfReplaceAll,rfIgnoreCase]);

Или сделать так

k:=AnsiUpperCase(Edit1.Text);

Блин, я немного не то написала, мне нужно чтобы заглавная считалась так же как и строчная. вот. и пробелы чтобы не учитывались.

[Stilet]

k:=AnsiLowerCase(StringReplace(Edit 1.Text,' ','',[rfReplaceAll,rfIgnoreCase]));

P.S. Где-то я уже такой вопрос недавно видел...

[type_Oleg]

Сообщение от Олямбан

Блин, я немного не то написала, мне нужно чтобы заглавная считалась так же как и строчная. вот. и пробелы чтобы не учитывались.

Я так и понял.

AnsiUpperCase превращает например ЙцУКЕнг в ЙЦУКЕНГ
Можно наоборот, AnsiLowerCase. Будет йцукенг

[Олямбан]

а с сортировкой на моем примере помочь можете пожалуйста ?

[Олямбан]

спасибо)) а с сортировкой на моем примере помочь можете пожалуйста ?

[type_Oleg]

Можно сортировать прямо в StringGrid
Вот например

[Олямбан]

Если бы я еще разбиралась ( не поможете с моим кодом как сделать сортировку по убыванию( пожалуйста

[Олямбан]

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

k:=AnsiLowerCase(StringReplace(Edit 1.Text,' ','',[rfReplaceAll,rfIgnoreCase]));

P.S. Где-то я уже такой вопрос недавно видел...

Можете помочь с сортировкой по убыванию пожалуйста?