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