19. November 2012 15:17
19. November 2012 15:38
J := 0;
FOR I := 1 TO STRLEN(Text) DO
  CASE Text[I] OF
    [...]
    '¾': AddChar(NewText,'3/4',J);
    // >>>
    // ELSE
    //   AddChar(NewText,FORMAT(Text[I]),J);
    1..127:
      AddChar(NewText,FORMAT(Text[I]),J);
    ELSE
      AddChar(NewText,FORMAT(''),J);
    // <<<
  END;