Указать количество согласных

[qaguero11]

Сообщение от min@y™

"мама мыла раму папу" - это 1 слово или сколько?

В любом случае, смотри как красиво выглядит моё решение:

{$TELEPATOR_MODE ON}
{$MESSAGE 'do not copy this code! bugs inside!'}

type
  TFuckIt = class(TStringList)
  private
    FMax: int32;
    FFilter: string;
  protected
    function Wanted(const ASymbol: Char): Boolean;
    function IncludeCount(const AWord: string): int32;
  public
    constructor Create(const ADefaultFilter: string = ''); reintroduce;
    procedure Push(const AWord: string);
    procedure Clear;
    
    property Max: int32 read FMax;
    property Filter: string read FFilter write FFilter;
  end;

implementation

constructor TFuckIt.Create(const ADefaultFilter: string = '');
begin
  inherited Create();
  FFilter:= ADefaultFilter;
end;

function TFuckIt.Wanted(const ASymbol: Char): Boolean;
begin
  Result:= pos(string(ASymbol), FFilter) <> 0;
end;

function TFuckIt.IncludeCount(const AWord: string): int32;
var
  c: Char;
begin
  Result:= 0;
  for c in AWord do
    inc(Resulr, Boolean(Wanted(c)));
end;

procedure TFuckIt.Push(const AWord: string);
var
  cnt: int32;
begin
  cnt:= IncludeCount(AWord);
  
  if cnt < FMax
    then exit;
    
  if cnt > FMax
    then begin
           inherited Clear();
           FMax:= cnt;
         end;
         
  Self.Add(AWord);
end;

procedure TFuckIt.Clear;
begin
  inherited;
  FMax:= 0;
end;

{$TELEPATOR_MODE OFF}

end.

оооооххх,мда сложно как то

[qaguero11]

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

procedure TForm1.Button1Click(Sender: TObject);
const
sogl=['б', 'в', 'г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ']; //согласные
var
    stroka:string;
    i, s,g:Byte;
begin
stroka :=memo1.text;  //входная строка
g :=0;  s:=0;
for i := 1 to Length(stroka) do begin
if stroka[i] in sogl then Inc(g);
end;
ShowMessage('Количество строчных согласных  - '+InttoStr(g));
end;

end.

[min@y™]

чтобы считало все согласные в предложении надо добавить чтобы считало в слове и определяло слово в котором больше согласных

мой код формирует список слов с максимальным количеством вхождений заданных букв (символов)? т.е. решает всю задачу полностью. Как ты и просил. Ничего сложного там нет.

[come-on]

function TFuckIt.Wanted(const ASymbol: Char): Boolean;
begin
Result:= pos(string(ASymbol), FFilter) <> 0;
end;

у автора то поиск по лучше будет, и без лишних сущностей ))

[min@y™]

у автора то поиск по лучше будет, и без лишних сущностей ))

а мой - выполняет поставленную задачу.

[come-on]

а мой - выполняет поставленную задачу.

из москвы в париж можно конечно и через пекин, только нафига? ))

[min@y™]

из москвы в париж можно конечно и через пекин, только нафига? ))

не понял, причём тут париж. код автора поставленную задачу не решает, а мой решает. чо не так-то?

[qaguero11]

Сообщение от come-on

из москвы в париж можно конечно и через пекин, только нафига? ))

ПОМОГИТЕ НАПИСАТЬ ПЖЛСТ

[come-on]

так что тут помогать

разбить строку по словам, если делфи новое то там есть встроенные средства если старое найдите в инете готовую функцию, вот тут к примеру можно посмотреть
http://ru.stackoverflow.com/question...80%D0%B0-split

дальше цикл по словам и с тем анализом что у вас уже есть, только код определения количества вынесите в отдельную функцию, чтобы использовать в разных местах

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
type tSlova=record
        Str:string;
        Count:integer;
     end;
const sogl=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var s,s1:string;
    i,j,k,l,c:integer;
    slova:array of tSlova;
begin
   s:=Memo1.Text;
   c:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:=Memo1.Lines[i]+' ';
      s1:='';
      For j:=1 to Length(s) do
      begin
         If s[j]=' ' then
         begin
            c:=c+1;
            SetLength(slova,c);
            slova[c-1].Str:=s1;
            l:=0;
            For k:=1 to Length(s1) do
               If s1[k] in sogl then
                  Inc(l);
            slova[c-1].Count:=l;
            s1:='';
         end else
            s1:=s1+s[j];
      end;
   end;
   Memo2.Clear;
   For i:=0 to c-1 do
      Memo2.Lines.Add(Format('%s - %d согласных',[slova[i].Str,slova[i].Count]));
end;