[ART]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function getPalindromes(text: string): TStringList; var  str: string;  i, j: integer;  S, R: TStringList; begin  S := TStringList.Create;  R := TStringList.Create;  S.Text := StringReplace(Trim(text), ' ', #13#10, [rfReplaceAll]);  for i := 0 to S.Count - 1 do begin   str := '';   S.Strings[i] := AnsiLowerCase(Trim(S.Strings[i]));   if S.Strings[i] <> '' then begin    for j := Length(S.Strings[i]) downto 1 do     str := str + S.Strings[i][j];    if str = S.Strings[i] then R.Add(str);   end;  end;  S.Free;  Result := R; end;

Код:

1	ShowMessage(IntToStr(getPalindromes('123321 abcba').count));