Показать сообщение отдельно
  #3  
Старый 29.11.2010, 20:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Да не. просто инвертация строки.
Собственно, что надо:
1. Надо разбить строку на слова.
2. Каждое слово инвертировать (написать буквы в обратном порядке).

Для первого надо спользовать функции Pos и Copy.
второе пишется примерно так:
Код:
function InvertString(S : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := Length(S) Downto 1 Do 
    Result := Result + S[i];
end;
Ответить с цитированием