ANTICHAT - Показать сообщение отдельно - Доработать прогу на Delphi

PHP код:


		
			
procedure SizeS_in_S2(S,S2:string; var N:integer);

var tempS:string; //временаая строка для сравнения

    i:integer; {счетчик}

BEGIN

    tempS:=''; {обнуляем строку}

    N:=0; {кол-во попаданий = 0}

    for i := 1 to length(S) do 

{проходим всю строку, и рассматирваем ее слова(разд. пробелами)}

    begin

{если символ не пробел, и при этом у нас не стоят два пробела подряд то

добавляем к врем. строке символ}

        if (S[i] <> ' ')or( (S[i] = ' ')and( S[i-1] = ' ') )

            then tempS := tempS + S[i]

        else begin

{если мы поймали пробле первый, то получили уже слово и работаем с ним}

            if pos( tempS, S2) = 0 then break 

{слово не найдено во второй подстроке - значит по заданию не подохдоит}

            else inc(N);

            {в этом случае - увеличиваем счетчик}

            tempS:=''; {врем. строку обнуляем до следующего слова}

        end;    

    end;

END;







S -  срока которую поделить на слова

S2  строка 2-я, в которой должны быть слова (все) из строки S;

tempS - временная строка, элемент S, который ищется в строке S2;

N- возвращает кол-во слов которые подошли из S в S2;

_http://ifolder.ru/16544631 тута немного исправлено, доделай сам