Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > [FAQ][Delphi]Слова - палиндромы

Автор: THandle 26.3.2008, 16:02

Код


function IsPalindrome(const s : string) : boolean;
var
  i, j : integer;
begin
  i := 1;
  j := length(s);
  result := false;
  repeat
    if s[i] <> s[j] then
      exit;
    inc(i);
    dec(j);
  until i > j;
  result := true;
end;

Эта функция проверяет, является ли строка, передаваемая в параметре s, палиндромом.

Пример использования:

На форме находятся TButton и TEdit.

По нажатию кнопки делаем следующее:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsPalindrome(Edit1.Text) then
    ShowMessage('Слово в Edit - палиндром')
  else
    ShowMessage('Слово в Edit палиндромом не является');
end;