mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 19:48:08 +02:00
22 lines
378 B
ObjectPascal
22 lines
378 B
ObjectPascal
{$codepage utf8}
|
|
program tb0696;
|
|
var
|
|
ar: PChar = 'Ё';
|
|
ar2: PChar;
|
|
l, i: SizeInt;
|
|
begin
|
|
Writeln(strlen(ar)); //Error
|
|
Writeln(Length(Ar)); //Error
|
|
l := Length(ar);
|
|
ar2 := 'Ё';
|
|
Writeln(strlen(ar2)); //Ok
|
|
Writeln(Length(Ar2)); //Ok
|
|
if l <> Length(ar2) then
|
|
Halt(1);
|
|
for i := 0 to l - 1 do
|
|
if ar[i] <> ar2[i] then
|
|
Halt(2 + i);
|
|
//Readln;
|
|
end.
|
|
|