blob: ce7a7d9b5f468f179eb6b215efce38979b76df7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{$mode objfpc}
function Uper1(const Pwd:AnsiString):AnsiString;
begin
Result := UpCase(Pwd);
Exit;
end;
function Uper2(const Pwd:AnsiString):AnsiString;
begin
Exit(UpCase(Pwd));
end;
begin
writeln('test', Uper1('test'));
writeln('test', Uper2('test'));
if Uper1('test')<>'TEST' then
begin
writeln('ERROR in Uper1!');
halt(1);
end;
if Uper2('test')<>'TEST' then
begin
writeln('ERROR in Uper2!');
halt(1);
end;
end.
|
