mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
35 lines
671 B
ObjectPascal
35 lines
671 B
ObjectPascal
{ %skiptarget=os2,emx }
|
|
{$codepage cp1252}
|
|
{$mode objfpc}
|
|
{$H+}
|
|
|
|
uses sysutils;
|
|
|
|
Function AnsiEndsStr(const ASubText, AText: string): Boolean;
|
|
begin
|
|
Writeln('ZZ',ASubText,'XX ',AText,'YY');
|
|
Result := AnsiCompareStr(Copy(AText,length(AText)-length(ASubText)+1,length(ASubText)),ASubText)=0;
|
|
end;
|
|
|
|
VAR
|
|
s: WideString;
|
|
t: WideString;
|
|
err : boolean;
|
|
BEGIN
|
|
DefaultSystemCodePage:=1252;
|
|
s := 'This is a test.'#961#967;
|
|
t := 'test.'#961#967;
|
|
IF AnsiEndsStr(t, s) THEN
|
|
WriteLn('OK.')
|
|
ELSE
|
|
err:=true;
|
|
IF AnsiEndsStr('test.'#961#967, s) THEN
|
|
WriteLn('OK.')
|
|
ELSE
|
|
err:=true;
|
|
if err then
|
|
WriteLn('Not OK.');
|
|
if err then
|
|
halt(1);
|
|
END.
|