administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

OrdWindows ChrWindows - заменил странные названия

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2025-10-14 21:32:56 +03:00
parent e840fcbc1a
commit 90c10b54a2
3 changed files with 20 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
InstallerSamples/!Tutorial/07_CharString/Char1.pas
View file

@ -1,13 +1,10 @@
// Стандартные функции Ord Chr
var
i: integer;
c: char;
// Стандартные функции Ord и Chr
begin
c := 'z';
i := Ord(c);
writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
i := 193;
var c := 'z';
var i := Ord(c);
Println($'Код символа {c} в кодировке Unicode равен {i}');
i := 1025;
c := Chr(i);
writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
end.
Println($'Символ с кодом {i} в кодировке Unicode - это {c}');
end.

20
InstallerSamples/!Tutorial/07_CharString/Char2.pas
View file

@ -1,13 +1,11 @@
// Стандартные функции OrdUnicode ChrUnicode
var
i: integer;
c: char;
// Стандартные функции OrdWindows ChrWindows
begin
c := 'Д';
i := OrdUnicode(c);
writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
i := 1046;
c := ChrUnicode(i);
writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
end.
var c := 'Д';
var i := OrdWindows(c);
Println($'Код символа {c} в кодировке Windows равен {i}');
i := 196;
c := ChrWindows(i);
Println($'Символ с кодом {i} в кодировке Windows - это {c}');
end.

8
bin/Lib/PABCSystem.pas
View file

@ -2077,9 +2077,9 @@ function Succ(x: char): char;
// Возвращает символ, отстоящий от x на n позиций вперёд
//function Succ(x: char; n: integer): char;
/// Преобразует код в символ в кодировке Windows
function ChrAnsi(a: byte): char;
function ChrWindows(a: byte): char;
/// Преобразует символ в код в кодировке Windows
function OrdAnsi(a: char): byte;
function OrdWindows(a: char): byte;
/// Преобразует код в символ в кодировке Unicode
function Chr(a: word): char;
/// Преобразует символ в код в кодировке Unicode
@ -9860,7 +9860,7 @@ end;
// Char and String: implementation
// -----------------------------------------------------
function ChrAnsi(a: Byte): char;
function ChrWindows(a: Byte): char;
begin
if a < 128 then
Result := char(a)
@ -9871,7 +9871,7 @@ begin
end;
end;
function OrdAnsi(a: char): byte;
function OrdWindows(a: char): byte;
begin
if a < #128 then
Result := byte(a)