Поиск в Edit

[bulldog5293]

В Edit вводится определённое слово как его найти, всмысли организовать поиск по Edit

[dmitriegorovih]

всмысли организовать поиск по Edit

В смысли вы вводите текст в Edit и по определённому слову надо поиск тогда вот так

function poiskpo(textpoiska,text:string):boolean;
var
s:string;
e,n:integer;
begin
try
if (text='') or (textpoiska='') then exit;
s:='';
e:=1;
n:=0;
for n:=1 to length(text) do begin
  if text[n]=textpoiska[e] then begin
  e:=e+1;
  s:=s+text[n];
  end;
if s=textpoiska then begin
result:=true;
exit;
end;
  end;
  result:=false;
  except
  showmessage('Ошибка, не возможно совершить поиск!')
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if poiskpo('>>>Сюда вводите нужное слово<<<',edit1.Text)=true then begin
showmessage('');
end;
end;

[mihali4]

Сообщение от bulldog5293

В Edit вводится определённое слово как его найти, всмысли организовать поиск по Edit

Где найти ? Где организовать поиск ?
Выражайте свои мысли внятно.