التعامل مع سلسلة الرموز String

[color= #000000; font-weight: bold;]function Reverse[color= #009900;](input[color= #339933;]:string [color= #009900;])[color= #339933;]: string[color= #339933;];

[color= #000000; font-weight: bold;]var

inputArray [color= #339933;]: [color= #990000;]array of char[color= #339933;];

begin

  SetLength[color= #009900;](inputArray[color= #339933;],input[color= #339933;].Length[color= #009900;])[color= #339933;];

  inputArray [color= #339933;]:= input[color= #339933;].ToCharArray[color= #009900;]([color= #009900;])[color= #339933;];

  [color= #339933;]&Array[color= #339933;].Reverse[color= #009900;](inputArray[color= #009900;])[color= #339933;];

  result[color= #339933;]:=inputArray[color= #339933;];

[color= #990000;]end[color= #339933;];

[color= #000000; font-weight: bold;]function [color= #990000;]Strstr[color= #009900;](haystack[color= #339933;],needle[color= #339933;]:string[color= #009900;])[color= #339933;]:string[color= #339933;];

[color= #000000; font-weight: bold;]var

firstIndex [color= #339933;]:integer[color= #339933;];

begin

firstIndex [color= #339933;]:= haystack[color= #339933;].IndexOf[color= #009900;](needle[color= #009900;])[color= #339933;];

result[color= #339933;]:= haystack[color= #339933;].Substring[color= #009900;](firstIndex[color= #009900;])[color= #339933;];

[color= #990000;]end[color= #339933;];