Программа не выводит ответа

[Nicmas]

Здравствуйте, задание такое: Найти в предложении все слова, которые являются палиндромами и вывести их, вот код:

Код: Выделить всё

procedure TFmMain.BtPoiskClick(Sender: TObject);
var
  s, t: string;
  i, p: integer;
begin
  LbExp.Caption := '';
  S := EdMean.Text;
  s += ' ';
  repeat
    p := pos(' ', s);
    i := (p - 1) div 2;
    while (i > 0) and (s[i] = s[p-i]) do dec(i);
    if (i = 0) and (p > 1) then t += copy(s, 1, p);
    delete(s, 1, p)
  until p = 0;
  if length(t) > 0 then LbExp.Caption := t
  else ShowMessage('Палиндромы не найдены')
end;
 
end.

программа кампилируется, но при вводе шалаш, казак ответа нет, хотя с цифрами работатет

[RRYTY]

Если вводить палиндромы латиницей, то тоже работает.
Намек: с национальными наборами символов нужно работать по-другому. Сравните, например, длину строки "kazak" и "казак".

[zub]

если не играться с настройками тип string имеет кодировку utf8 -> кириллица в нем "суррогатная", буква занимает больше 1 cudeunit`а
простое решение:

Код: Выделить всё

s, t: string;

замени на

Код: Выделить всё

s, t: unicodestring;

unicodestring - utf16, кориллическая буква занимает 1 cudeunit, проблема уйдет на экзотические символы, для лабв хватит

[Seenkao]

zub, проблем с Length не будет?

[zub]

С кириллицей нет. с какимнибудь древне шумерским (или что там есть суррогатное в utf16) будут

[zoltanleo]

Странные вы люди. Советуете более сложный способ решения. Я бы посоветовал использовать UTF8Pos, UTF8Lengh и другие UTF8xxxxxxx функции из модуля LazUTF8

[zub]

zoltanleo
насколько данный код станет проще))?

[zoltanleo]

zub
Он будет решен в контексте текущей задачи с учётом текущей кодировки без мутных рассуждений о кодовых единицах и суррогатных парах

[zub]

Рассуждения не мутные. Адаптация в лоб фрагмента под UTF8* принесет много накладных расходов из-за постоянных прогонов по codepoint`ам, вместо прямой адресации. UTF8* надо делать по другом. имхо.

но дело житейское))

[zoltanleo]

zub
Андрюх, чел лабу делает. Оккама плачет

[iskander]

Зря копья ломаете, чел лабу давно сделал.

[zoltanleo]

iskander
Во, народ тоже за стандартные методы

[iskander]

Честно говоря, мне попадался гораздо более забавный вариант решения подобной задачи.