mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-08 07:00:41 +01:00
17 lines
258 B
ObjectPascal
17 lines
258 B
ObjectPascal
{ %version=1.1 }
|
|
|
|
uses sysutils;
|
|
Var I : Longint;
|
|
a:char;
|
|
|
|
begin
|
|
a:='A';
|
|
a:=upcase(a); //OK
|
|
|
|
Writeln;
|
|
Writeln (Lowercase('ABCDEFGHIJKLMNOPQRSTUVWXYZ')); //OK
|
|
Writeln (Lowercase(A)); // OK
|
|
a:=Lowercase(A); // ERROR
|
|
Writeln (a);
|
|
end.
|
|
|