2025-10-14 21:32:56 +03:00
|
|
|
|
// Стандартные функции OrdWindows ChrWindows
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2025-10-14 21:32:56 +03:00
|
|
|
|
var c := 'Д';
|
|
|
|
|
|
var i := OrdWindows(c);
|
|
|
|
|
|
Println($'Код символа {c} в кодировке Windows равен {i}');
|
|
|
|
|
|
i := 196;
|
|
|
|
|
|
c := ChrWindows(i);
|
|
|
|
|
|
Println($'Символ с кодом {i} в кодировке Windows - это {c}');
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
