Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Astuces - Strings - Trouver un mot dans une phrase en Delphi

Ajouter un composant TButton.

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;


Tous droits réservés - Contacts
Haut de la page