Поиск палиндромов в тексте. DELPHI

[JuliaBelochka]

Помогите пожалуйста решить задачу:
Имеется текст. Проверить содержит ли этот текст слова, которые читаются одинаково справа налево и слева направо, т.е. являются ли они палиндромами Если таких слов нет, то вывести об этом сообщение. Если же палиндромы присутствуют, то вывести их на форму.
Заранее спасибо

[Sazary]

Что непонятно? Что не получается? Где ваши наработки.

Здесь было достаточно подобных задач, можете найти с помощью поиска.

[JuliaBelochka]

Не получается выбрать из текста слова-палиндромы. Если вводится 1 слово, то программа выдает, палиндром он или нет, а с целым текстом работать отказывается

[Sazary]

а с целым текстом работать отказывается

Так покажите то, что отказывается работать с текстом. Т.е. свой код.

Нужно идти по тексту и выделять слова.

[JuliaBelochka]

var s:string; i:integer; b:boolean;
begin
s:=edit1.Text;
b:=true;
for i:=1 to Length(s) div 2 do
if s[i]<>s[length(s)-i+1] then begin b:=false;
end;
if b then label1.caption:=edit1.text;

[Sazary]

JuliaBelochka, ну так правильно. У вас код только для одного слова.
Вам нужно выделять слова и проверять их отдельно.

Ладно, вот вам.
На форму киньте два Мемо (первый - для текста, второй - для палиндромов) и кнопку.

procedure TForm1.Button1Click(Sender: TObject);
var i,k : integer;
s,sub : string;
mn : set of char;

 function isPalindrom(str : string) : boolean;
 var a,len : integer;
 begin
 Result := true;
 len := length(str);
 for a:=1 to (len div 2) do
  if str[a]<>str[len-a+1] then Result := false;
 end;

begin
mn := [' ','.','!',',','?','"'];

for k := 0 to Memo1.Lines.Count-1 do
 begin
 s := Memo1.Lines.Strings[k];
 sub := '';
 i := 1;
 while i<=length(s) do
  begin
  while (s[i] in mn) and (i<=length(s)) do
   inc(i);
  while not (s[i] in mn) and (i<=length(s)) do
   begin
   sub := sub + s[i];
   inc(i);
   end;
  if isPalindrom(sub) and (length(sub)>1) then
   Memo2.Lines.Add(sub);
  sub := '';
  end;

 end;
end;

[JuliaBelochka]

А не подскажете, как?

[JuliaBelochka]

Спасибо огромное!!!! Очень вам признательна))))