Anonymous user
String matching: Difference between revisions
Added Delphi example
(Add Seed7 example) |
(Added Delphi example) |
||
Line 326:
writeln([1,2,3].indexOf([2,3])) ; // 1
}</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}}==
|