Работа с Memo и Edit

[_Cazalan]

я тольо это нашёл
var
position : Integer;

begin
// Поиск слово 'Cat' в предложении
// Обратите внимание: что этот поиск чувствителен к регистру, так, что
// первое 'cat' не рассматривается
position := AnsiPos('Cat', 'The cat sat on the Cat mat');
if position = 0
then ShowMessage('''Cat'' не найдено в предложении')
else ShowMessage('''Cat'' было найдено начиная с символа '+IntToStr(position));
end;

 

[Gruvi]

я тольо это нашёл
var
position : Integer;

begin
// Поиск слово 'Cat' в предложении
// Обратите внимание: что этот поиск чувствителен к регистру, так, что
// первое 'cat' не рассматривается
position := AnsiPos('Cat', 'The cat sat on the Cat mat');
if position = 0
then ShowMessage('''Cat'' не найдено в предложении')
else ShowMessage('''Cat'' было найдено начиная с символа '+IntToStr(position));
end;

а разве счётчик For не нужен ? как ты будешь осуществлять так называемое хождение ?

 

[_Cazalan]

я с AnsiPos первый раз работаю. ничего о ней не знаю.

 

[_Cazalan]

тот код ищет в предложении слово кет и пишет сколько нашёл их. мне надо из большого текста удалить от предложения до предложения. как это осуществить?
на одном сайте сказали что AnsiPos надо использовать

 

[Gruvi]

Вот тебе справочник по делфи.
- " Delphi"