8 lines
158 B
Text
8 lines
158 B
Text
|
uses
|
||
|
|
SysUtils, StrUtils;
|
||
|
|
|
||
|
|
function IsPalindrome(const aSrcString: string): Boolean;
|
||
|
|
begin
|
||
|
|
Result := SameText(aSrcString, ReverseString(aSrcString));
|
||
|
|
end;
|