blob: 9743b82dd3f8d1546a6b94f5fcc5136a3f7f53bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ Source provided for Free Pascal Bug Report 4540 }
{ Submitted by "Aleksa Todorovic" on 2005-11-23 }
{ e-mail: alexione@mindnever.org }
program TestAnsiEndsStr;
uses
StrUtils;
begin
Writeln('A/AB: ', AnsiEndsStr('A', 'AB'));
if AnsiEndsStr('A', 'AB')<>false then
halt(1);
// False -> ok
Writeln('AB/AB: ', AnsiEndsStr('AB', 'AB'));
if AnsiEndsStr('AB', 'AB')<>true then
halt(1);
// True -> ok
Writeln('ABC/AB: ', AnsiEndsStr('ABC', 'AB'));
if AnsiEndsStr('ABC', 'AB')<>false then
halt(1);
writeln('ok');
// True -> ???
end.
|
