Memo имеет текст который нужно вывести здесь же в обратном направлении

[Valera]

Добрый день.

У меня есть текст в Memo (любой, с абзацами). Нужно вывести здесь же все в обратном направлении. Метод AnsiReverseString компилятору неизвестен.

[_SERGEYX_]

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s, s1: string; i: Integer;
begin
  s := Memo1.Text;
  s1 := '';
  for i := Length(s) downto 0 do
  if s[i]<> #13 then
  s1 := s1 + s[i];
  Memo2.Lines.Text:= s1;
end;

[ReportCube]

Только сделайте for i := Length(s) downto 1 do

[Аватар]

Так абзацы потеряются.

Вместо 
if s[i]<> #13 then  s1 := s1 + s[i];

просто
s1 := s1 + s[i];

Перевод строки, который возможен в конце исходного текста в Memo при этом вылезит в начало

[Valera]

Спасибо.
А функции нет?

[_SERGEYX_]

Так абзацы потеряются

По логике да. Я сам не понял в чем причина. Сразу машинально написал просто
s1 := s1 + s[i];
Получился между абзацами двойной перевод строки. Тогда дописал
if s[i]<> #13 then
Все заработало нормально. Что за хрень?

[Аватар]

Возможно там кроме #13 еще и #10 есть

[Valera]

Сообщение от _SERGEYX_

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s, s1: string; i: Integer;
begin
  s := Memo1.Text;
  s1 := '';
  for i := Length(s) downto 0 do
  if s[i]<> #13 then
  s1 := s1 + s[i];
  Memo2.Lines.Text:= s1;
end;

Проверил. При нажатии кнопки нулевая строка не заполняется

[ReportCube]

Так уберите лишние переводы строк, если они не требуются, обычной функцией Trim()

[ReportCube]

Можно сделать и так:
1. Ищем любой символ, кроме #0, которого нет в TMemo, и запоминаем его
2. Заменяем все #$D#$A на этот символ
3. Запускаем предложенную Вам функцию реверса
4. Заменяем все вхождения нашего символа на #$D#$A
5. Смотрим результат...