function
RechercheMot(Phrase,Mot:String):Boolean;
var i:integer;
Trouve:Boolean;
begin
Trouve:=False;
for i:=0 to Length(Phrase)+1 do
begin
if Copy(Phrase,i,Length(Mot))=Mot then Trouve:=True;
end;
Result:=Trouve;
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
if RechercheMot('Delphi est un logiciel de la société
Borland','Delphi')=True then
ShowMessage('Le mot a été trouvé dans
la phrase')
else
ShowMessage('Le mot n''a pas été trouvé
dans la phrase');
end;
|