function
Trouvercara(St,car:String):Boolean;
var Trouve:Boolean;
i:integer;
begin
Trouve:=False;
for i:=1 to Length(St) do
if St[i]=car then Trouve:=True;
Result:=Trouve;
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
if Trouvercara('Une petite phrase','y')=True then
ShowMessage('Le caractère a été trouvé!')
else
ShowMessage('Le caractère n''a pas été
trouvé!');
end;
|