Форум АНТИЧАТ - Доработать прогу на Delphi

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Доработать прогу на Delphi (https://forum.antichat.xyz/showthread.php?t=181296)

Доработать прогу на 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 тута немного исправлено, доделай сам

спс. вправил в свою прогу все фурычит супер)