Programme pour supprimer les mots contenant la lettre " i "

Lerikal -  
Chekchak Messages postés 39 Statut Membre -
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;

1 réponse

  1. Chekchak Messages postés 39 Statut Membre 3
     
    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