strUtils/test9.mod

MODULE test9;

IMPORT strUtils, InOut, Strings;

VAR
  chaine1 : ARRAY[0..255] OF CHAR;
  chaine2 : ARRAY[0..255] OF CHAR;
  start, quantity : CARDINAL;

BEGIN
  chaine1 := "et voila encore une petite chaîne";
  chaine2 := "";
  start := 3;
  quantity := 5;
  InOut.WriteString(" test de la copie d'une partie de chaine dans une autre, commençant à start");
  InOut.WriteLn;
  strUtils.copyBytes(chaine1, chaine2, start, quantity);
  InOut.WriteString(chaine2);
  InOut.WriteCard(Strings.Length(chaine2),5);
  InOut.WriteLn;
END test9.