delphi, строки

[Vali_T]

Задачка:
есть строка, содержащая символы, требуется вывести на экран количество встречаемых символов. в виде:
v - 5
g - 2
! - 1

я смогла только сделать для конкретных символов, а как сделать для любых, подскажите пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s: string;
  i, k, n, m: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   k:=0;
   n:=0;
   m:=0;
   s:= edit1.Text;  
   for i:= 0 to length(s)  do
    begin
      if s[i] = 'a' then k:=k+1;
      if s[i] = 'b' then n:=n+1;
      if s[i] = '!' then m:=m+1;
    end;
   ShowMessage('a' + '-' + inttostr(k) + #10#13 + 'b' + '-' + inttostr(n) + #10#13 + '!' + '-' + inttostr(m));

end;

end.

[Stilet]

Предлагаю такой код:

var i:integer;c:char;
 a:array['A'..'z'] of byte;
begin
 for c:='A' to 'z' do a[c]:=0;
 for i:=1 to length(Edit1.Text) do  inc(a[Edit1.Text[i]]);
 ListBox1.Clear;
 for c:='A' to 'z' do if a[c]<>0 then ListBox1.Items.Add(c+' = '+IntToStr(a[c]));

end;

Он может быть помещен в клик кнопки. Здесь текст из Эдита разбирается побуквенно, выясняется кол-во каждой буквы и выводится отчет в ЛистБокс

Идея понятна?

[D@rkD@iver]

а лучше вот так сделай

var i:integer;c:char;
a:array[char] of byte;
begin
for c:=char(0) to char(255) do a[c]:=0;
for i:=1 to length(Edit1.Text) do inc(a[Edit1.Text[i]]);
ListBox1.Clear;
for c:=char(0) to char(255) do if a[c]<>0 then ListBox1.Items.Add(c+' = '+IntToStr(a[c]));

end;

[Stilet]

D@rkD@iver

Чем лучше то?

[Vali_T]

Да, понятна и получилось, спасибо, а как же быть с другими символами к примеру: !, -, 1 и т.д.?

Сообщение от D@rkD@iver

а лучше вот так сделай

Вот то что надо, Спасибо
а через ShowMessage эти результаты можно вывести?

[Stilet]

а через ShowMessage эти результаты можно вывести?

Ну а чего нет?

for c:=char(0) to char(255) do if a[c]<>0 then ss:=ss+c+' = '+IntToStr(a[c]))+#13#10;
ShowMessage(ss);

Где ss - string

с другими символами к примеру: !, -, 1 и т.д.?

Ну тогда согласен с D@rkD@iver-ом