mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:28:09 +02:00
24 lines
568 B
ObjectPascal
24 lines
568 B
ObjectPascal
{ 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.
|