mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
63 lines
1.1 KiB
ObjectPascal
63 lines
1.1 KiB
ObjectPascal
|
|
|
|
uses
|
|
dos;
|
|
|
|
var
|
|
s : string;
|
|
s50 : string[50];
|
|
s123 : string[123];
|
|
pp : ppchar;
|
|
p : pchar;
|
|
i, k,tot : longint;
|
|
begin
|
|
tot:=0;
|
|
p:=nil;
|
|
s:='Dummy test 255';
|
|
writeln('s=',s);
|
|
s:=p;
|
|
i:=length(s);
|
|
writeln('Length of s is ',i);
|
|
if (i>0) then
|
|
begin
|
|
writeln('s=#',s,'#');
|
|
for k:=1 to i do
|
|
write(k,' #',ord(s[k]),' ');
|
|
writeln;
|
|
tot:=tot+i;
|
|
end;
|
|
s50:='Dummy test 50';
|
|
writeln('s50=',s50);
|
|
s50:=p;
|
|
i:=length(s50);
|
|
writeln('Length of s50 is ',i);
|
|
if (i>0) then
|
|
begin
|
|
writeln('s50=#',s50,'#');
|
|
for k:=1 to i do
|
|
write(k,' #',ord(s50[k]),' ');
|
|
writeln;
|
|
tot:=tot+i;
|
|
end;
|
|
s123:='Dummy test 255';
|
|
writeln('s123=',s123);
|
|
s123:=p;
|
|
i:=length(s123);
|
|
writeln('Length of s123 is ',i);
|
|
if (i>0) then
|
|
begin
|
|
writeln('s123=#',s123,'#');
|
|
for k:=1 to i do
|
|
write(k,' #',ord(s123[k]),' ');
|
|
writeln;
|
|
tot:=tot+i;
|
|
end;
|
|
if tot>0 then
|
|
begin
|
|
writeln('There are errors in the conversion of nil pchars to short strings');
|
|
halt(tot);
|
|
end;
|
|
end.
|
|
|
|
|