Programme pour supprimer les mots contenant la lettre " i "

Fermé
Lerikal - 12 mai 2015 à 17:53
Chekchak Messages postés 29 Date d'inscription mardi 31 juillet 2012 Statut Membre Dernière intervention 21 mai 2019 - 27 janv. 2016 à 11:55
Bonjour, je suis actuellement en apprentissage hier dans le code Pascal
Je voudrai élaborer un programe qui me permet de supprimer tout les mots contenant la lettre "i" en cliquant sur un bouton
Pouvez-vous m'aidez s'il vous plaît

procedure TFPrincipal.btnDisparitionClick(Sender: TObject);

begin
//
end;
A voir également:

1 réponse

Chekchak Messages postés 29 Date d'inscription mardi 31 juillet 2012 Statut Membre Dernière intervention 21 mai 2019 3
27 janv. 2016 à 11:55
i:=1;
while(i<n) do
begin
while (ch[i]=' ')do
begin
i:=i+1;
end;
e:=0; cpt:=0;
while(ch[i]<>' ')do
begin
if(ch[i]='i') do
begin
e:=1;
i:=i+1;
end;
cpt:=cpt+1;
end;
if (e=1) do
begin
j:=i-cpt;
while(j<i)do
begin
ch[j]:=' '; j:=j+1;
end;
end;
end;
{ je les ai pas supprimé mais je les ai remplacé par des espaces ' '}
0