paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test for #33559

Browse Source
This commit is contained in:
florian 2022-07-13 22:53:26 +02:00
parent b821b9d502
commit d27c3b4b79
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/webtbs/tw33559.pp Normal file
View File

@ -0,0 +1,18 @@
{$mode delphi}
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, StrUtils;
const
FullStr = '123'#0'45';
TestStr = '123'#0'!';
begin
Writeln('StartsWith=', FullStr.StartsWith(TestStr));
if FullStr.StartsWith(TestStr) then
halt(1);
Writeln('Pos=', Pos(TestStr, FullStr) > 0);
if Pos(TestStr, FullStr) > 0 then
halt(1);
Writeln('StartsText=', StartsText(TestStr, FullStr));
if StartsText(TestStr, FullStr) then
halt(1);
end.