Помогите С Поиском В Мемо

[Ogur4iK]

Мне нужно написать код, который бы по очереди брал строку из одного мемо и проверял, содержится ли слово из строки во всех строках другого мемо. И так по очереди. Надеюсь объяснил понятно.

 

[Lomanu4]

Мне нужно написать код, который бы по очереди брал строку из одного мемо и проверял, содержится ли слово из строки во всех строках другого мемо. И так по очереди. Надеюсь объяснил понятно.

нет не понятно

 

[Ogur4iK]

нет не понятно

Вот к примеру у меня в мемо1 есть текст такой:
ывааыв
рек
екн
нкцул
а в мемо2 такой
выа
ывапр
ре
Мне нужно, чтобы проверяло есть ли каждая строка из мемо 2 в мемо 1

 

[Sascha]

а если есть что за действия должны происходить?

 

[Sascha]

 function AnsiCompareStr ( const String1, String2 : string ) : Integer;

begin
  // Сравнение двух очевидно различных строк
  CompareStrings('HELLO', 'WORLD');

  // Сравнение идентичных строк
  CompareStrings('Hi 2 you', 'Hi 2 you');

  // Символы верхнего регистра следуют за строчными буквами
  CompareStrings('ABC', 'abc');

  // Все символы следуют за числами
  CompareStrings('abc', '123');
end;

// Сравнение двух строк, и показ большей
procedure TForm1.CompareStrings(const string1, string2: string);
var
  result : Integer;
begin
  // Сравнение некоторых строк
  result := AnsiCompareStr(string1, string2);

  if result <0 then showmessage(string1+' < '+string2);
  if result = 0 then ShowMessage(string1+' = '+string2);
  if result > 0 then ShowMessage(string1+' > '+string2);
end;

Функция AnsiCompareStr сравниваетString1 и String2 на равенство.

Это современная Региональная безопасная форма CompareStr.

Все Ansi команды поддержкой многобайтовые символы.

Она возвращает следующие значения:

String1: отрицательное число
String1 = String2: 0
String1 > String2: положительное число

Сравнение не затрагивает длину оно выполняется по буквам. Но более длинная строка больше чем короткая.

Сравнение чувствительно к регистру.

 

[Ogur4iK]

 function AnsiCompareStr ( const String1, String2 : string ) : Integer;

begin
  // Сравнение двух очевидно различных строк
  CompareStrings('HELLO', 'WORLD');

  // Сравнение идентичных строк
  CompareStrings('Hi 2 you', 'Hi 2 you');

  // Символы верхнего регистра следуют за строчными буквами
  CompareStrings('ABC', 'abc');

  // Все символы следуют за числами
  CompareStrings('abc', '123');
end;

// Сравнение двух строк, и показ большей
procedure TForm1.CompareStrings(const string1, string2: string);
var
  result : Integer;
begin
  // Сравнение некоторых строк
  result := AnsiCompareStr(string1, string2);

  if result <0 then showmessage(string1+' < '+string2);
  if result = 0 then ShowMessage(string1+' = '+string2);
  if result > 0 then ShowMessage(string1+' > '+string2);
end;

Функция AnsiCompareStr сравниваетString1 и String2 на равенство.

Это современная Региональная безопасная форма CompareStr.

Все Ansi команды поддержкой многобайтовые символы.

Она возвращает следующие значения:

String1: отрицательное число
String1 = String2: 0
String1 > String2: положительное число

Сравнение не затрагивает длину оно выполняется по буквам. Но более длинная строка больше чем короткая.

Сравнение чувствительно к регистру.

Спасибо, очень помог!

 

[Sascha]

Спасибо, очень помог!

Не за что, рад был помочь.