[thinker89]

Есть некий текст в memo1 который генерируется программно.Необходимо этот текст разместить на одной строке-тоесть убрать все переносы.Пробывал вот такой код

Код:

var
s:string;
begin
 s := Memo1.Text;
 s := StringReplace(s,#13#10, ' ',[rfReplaceAll,rfIgnoreCase]);;
end;

но он не помогает.Подскажите что не так.

[Bargest]

Мм. Смотря как генерируется текст. Enter может быть задан и просто #13, и просто #10, и вместе.

[angvelem]

Сохрани StringList как файл и посмотри любым редактором понимающим режим HEX.

[chainik]

попробуй отменить автоперенос (свойство WordWrap:=false)

[NumLock]

Код:

var
  s: String;
begin
  s:=StringReplace(Memo1.Text, #13, '', [rfReplaceAll, rfIgnoreCase]);
  Edit1.Text:=StringReplace(s, #10, ' ', [rfReplaceAll, rfIgnoreCase]);
end;

[thinker89]

Всем спасибо