mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 16:48:29 +02:00
1403e3df29
consistency with other helpers
+ added lowercase(unicodechar) and lowercase(unicodestring) overloads (for some
reason only upcase() existed for them)
git-svn-id: branches/jvmbackend@18881 -
47 lines
739 B
ObjectPascal
47 lines
739 B
ObjectPascal
{ %version=1.1 }
|
|
|
|
var
|
|
err : boolean;
|
|
|
|
procedure test(c:char);overload;
|
|
begin
|
|
writeln('char');
|
|
end;
|
|
procedure test(c:shortstring);overload;
|
|
begin
|
|
writeln('short');
|
|
end;
|
|
procedure test(c:ansistring);overload;
|
|
begin
|
|
writeln('ansi');
|
|
err:=false;
|
|
end;
|
|
|
|
var
|
|
w : widestring;
|
|
s : ansistring;
|
|
i : longint;
|
|
begin
|
|
err:=true;
|
|
{ this should choosse the ansistring version }
|
|
w:='';
|
|
for i:=1 to 300 do w:=w+'.';
|
|
test(w);
|
|
if err then
|
|
begin
|
|
writeln('Wrong lowercase Error!');
|
|
halt(1);
|
|
end;
|
|
|
|
{ check if ansistring pos() call is not broken }
|
|
s:='';
|
|
for i:=1 to 300 do s:=s+'.';
|
|
s:=s+'test';
|
|
if pos('test',s)<>301 then
|
|
begin
|
|
writeln('Pos(ansistring) Error!');
|
|
halt(1);
|
|
end;
|
|
|
|
end.
|