Процедуры и функции Опции

[status]

Нужна помощь в решение задачи :

Разработать функцию IsPerev(const S:string):boolean, определяющую, является ли строка S перевертышем (читается одинаково с начала и с конца). С помощью данной функции вывести только такие строки из введенного набора, которые являются перевертышами.

[volvo]

Ну, если ты выбрал эту функцию (не совсем удачную, конечно, но как знаешь...), то вот так:

  for i := 0 to pred(ListBox1.Count) do
    if Palindrom(ListBox1.Items[i]) = ListBox1.Items[i] then ListBox2.Items.Add(ListBox1.Items[i]);