RosettaCodeData/Task/Substring/Free-Pascal-Lazarus/substring.pas

6 lines
103 B
ObjectPascal

s[n..n+m]
s[n..high(nativeUInt)]
s[1..length(s)-1]
s[pos(c, s)..pos(c, s)+m]
s[pos(p, s)..pos(p, s)+m]