Работа со строками

[Poma][a]

Да, кстати, перед вывод было бы правильно проверить что tcnt <> 0.

[type_Oleg]

А зачем именно на Label, в Delphi есть и другие полезные компоненты, например Memo.
Тем более выводить надо не одну строку, а несколько. Вот так:

Memo1.Lines.Add('n равно '+IntToStr(n));

А ShowMessage - это окошечко, тоже с одной строкой.

[Иринкин]

unit UnitC;

interface

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

type
TfrmSt = class(TForm)
edtS: TEdit;
Label1: TLabel;
btnC: TButton;
Memo1: TMemo;

procedure btnCClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmSt: TfrmSt;

implementation

{$R *.dfm}

{ TfrmSt }

procedure TfrmSt.btnCClick(Sender: TObject);
var
i, tcnt: integer;
ch:char;
begin
for ch := 'A' to 'Z' do
begin
tcnt := 0;
for i := 1 to Length(edtS.Text) do
if UpCase (edtS.Text[i]) = ch then
Inc (tcnt);
if tcnt <> 0 then
Memo1.Lines.Add(ch+'='+IntToStr(tcn t))
else
ShowMessage('NO');
break;
end;
end;

end.


Что-то я не так делаю... Не ругается,но и не работает. При нажатии кнопки выдает мне сообщение NO...

[type_Oleg]

Я не поленился, переписал понятнее. Вот что у вас получается:

begin
 for ch := 'A' to 'Z' do
   begin
     tcnt := 0;
     for i := 1 to Length(edtS.Text) do if UpCase (edtS.Text[i]) = ch then Inc(tcnt);
     if tcnt <> 0 then Memo1.Lines.Add(ch+'='+IntToStr(tcnt)) else  ShowMessage('NO');
     Break;
   end;
end;

После первой же буквы 'A' сразу раз ... и Break - выход из внешнего цикла.

И еще ch+'='+IntToStr(tcn t) - там в самом деле пробел в идентификаторе tcn t ? Ошибки не было ?

PS Написано было ..какие буквы повторились.... То есть только те надо, что больше 1 раза?

[Иринкин]

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

Я не поленился, переписал понятнее. Вот что у вас получается:

begin
 for ch := 'A' to 'Z' do
   begin
     tcnt := 0;
     for i := 1 to Length(edtS.Text) do if UpCase (edtS.Text[i]) = ch then Inc(tcnt);
     if tcnt <> 0 then Memo1.Lines.Add(ch+'='+IntToStr(tcnt)) else  ShowMessage('NO');
     Break;
   end;
end;

После первой же буквы 'A' сразу раз ... и Break - выход из внешнего цикла.

И еще ch+'='+IntToStr(tcn t) - там в самом деле пробел в идентификаторе tcn t ? Ошибки не было ?

PS Написано было ..какие буквы повторились.... То есть только те надо, что больше 1 раза?

Спасибо, это действительно опечатка. Break подкорректирую.
И да, только те, что больше 1 раза.

[type_Oleg]

Вот так сделайте:

begin
 Memo1.Clear;   // очистка Memo
 for ch := 'A' to 'Z' do
    begin
      tcnt := 0;
      for i := 1 to Length(edtS.Text) do if UpCase (edtS.Text[i]) = ch then Inc (tcnt);
      if tcnt > 1 then Memo1.Lines.Add(ch+'='+IntToStr(tcnt));
    end;
 if Memo1.Lines.Count=0 then ShowMessage('повторений латинских букв не найдено');
end;

[Иринкин]

type_Oleg, спасибо огромное! Все поняла, все получилось!

[Poma][a]

for i := 1 to Length(edtS.Text)

Не очень правильно.. Если дана строка 'АА', то программа выдаст что встретились символы A - 2 раза и A - 2 раза..
Нужно делать что-то вида : if Pos (s[i], Copy (s, 1, i-1) = 0 then Continue;