WinText := Selected;
DosText := '';
REPEAT
Pos := Pos + 1;
OneChar := WinText[Pos];
IF (OneChar >= 240) AND (OneChar <= 255) THEN
OneChar := OneChar - 16
ELSE
IF (OneChar >= 192) AND (OneChar <= 239) THEN
OneChar := OneChar - 64;
DosText := DosText + FORMAT(OneChar);
UNTIL Pos = STRLEN(WinText);
Selected:=DosText;
|