String matching: Difference between revisions
Content added Content deleted
(Add Seed7 example) |
(Added Delphi example) |
||
| Line 326: | Line 326: | ||
writeln([1,2,3].indexOf([2,3])) ; // 1 |
writeln([1,2,3].indexOf([2,3])) ; // 1 |
||
}</lang> |
}</lang> |
||
=={{header|Delphi}}== |
|||
<lang Delphi>program CharacterMatching; |
|||
{$APPTYPE CONSOLE} |
|||
uses StrUtils; |
|||
begin |
|||
WriteLn(AnsiStartsText('ab', 'abcd')); // True |
|||
WriteLn(AnsiEndsText('zn', 'abcd')); // False |
|||
WriteLn(AnsiContainsText('abcd', 'bb')); // False |
|||
Writeln(AnsiContainsText('abcd', 'ab')); // True |
|||
WriteLn(Pos('ab', 'abcd')); // 1 |
|||
end.</lang> |
|||
=={{header|E}}== |
=={{header|E}}== |
||