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;