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

[Пепел Феникса]

а зачем искать неиспользуемый символ?
просто заменить все #13#10 на один из них.(на #10 например)
(и можно обратно вернуть)

проблема в том что виндоуз перевод строки состоит из двух символов которые реверсировать нельзя!(тогда в 99% они будут трактоваться как два перевода строки, Unix-#10 и Win-дополненный-#13#10(или Mac-#13))
еще можно сделать ничего предварительно не заменяя.

function ReverseText(Text:string):string;
var i,j:integer;
begin
 SetLength(Result,Length(Text));
 i:=1;
 j:=Length(Result);
 while j>=1 do
  begin
   Result[j]:=Text[i];
   dec(j);
   inc(i);
  end;
 Result:=StringReplace(Result,#10#13,#13#10,[rfReplaceAll]);
end;

примерно так(я не тестил)

Метод AnsiReverseString компилятору неизвестен.

а среда какая?
если юникодная(2009+) то просто ReverseString используйте.

[Sparkman]

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

Добрый день.

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

procedure ReversMemo(var memo : TMemo);
var i,j:integer;
    s:string;
begin
     for i:=0 to memo.Lines.Count-1 do
     begin
          s:='';
          for j:=Length(memo.Lines.Strings[i]) downto 1 do
          s:=s+memo.Lines.Strings[i][j];
          memo.Lines.Strings[i]:=s;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     ReversMemo(Memo1);
end;

и никаких переходов на следующую строку искать не требуется

[Пепел Феникса]

var в вашей процедуре не нужен.
да и помоему ведь это инверсия каждой строки в мемо, но не их порядка..

[Sparkman]

Сообщение от Пепел Феникса

var в вашей процедуре не нужен.
да и помоему ведь это инверсия каждой строки в мемо, но не их порядка..

procedure ReversMemo(memo : TMemo);
var i,j:integer;
    s:string;
begin
     for i:=0 to memo.Lines.Count-1 do
     begin
          s:='';
          for j:=Length(memo.Lines.Strings[i]) downto 1 do
          s:=s+memo.Lines.Strings[i][j];
          memo.Lines.Strings[i]:=s;
     end;
     for i:=0 to (memo.Lines.Count-1)div 2 do
     begin
          s:=memo.Lines.Strings[i];
          memo.Lines.Strings[i]:=memo.Lines.Strings[memo.Lines.Count-i-1];
          memo.Lines.Strings[memo.Lines.Count-i-1]:=s;
     end;
end;

[evg_m]

а зачем искать неиспользуемый символ?
просто заменить все #13#10 на один из них.(на #10 например)

а зачем вообще заменять.
1. переворачивем.
2. находим комбинацию #A#D (перевернутую #D#A) и переворачиваем обратно (эти два символа.

k:=pos(#A#D, s);
while k>0 do begin
  s[k]:=#D; s[k+1]:=#A; 
  k:=posEx(#A#D, s, k);
end;

[Пепел Феникса]

а зачем вообще заменять.
1. переворачивем.
2. находим комбинацию #A#D (перевернутую #D#A) и переворачиваем обратно (эти два символа.
Код:

еще можно сделать ничего предварительно не заменяя.

просто писалось то по ходу мысли в 5 утра.