strUtils/test11.mod

MODULE test11;

IMPORT strUtils, InOut, Strings, WholeStr;

VAR
  chaine : ARRAY[0..15] OF CHAR;
  i, longueur : CARDINAL;

BEGIN
  chaine := "et voila en";
  longueur := Strings.Length(chaine);
  InOut.WriteCard(longueur,5);
  InOut.WriteLn;
  
  strUtils.zeroStr(chaine);
  InOut.WriteCard(Strings.Length(chaine),5);
  InOut.WriteLn;
  
  FOR i := 0 TO longueur -1 DO
   IF chaine[i] = 0C THEN
     InOut.Write("0");
   END;  
  END;
  InOut.WriteLn;
END test11.