[thinker89]

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

Код:

1 2 3 4 5 6

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]

Код:

1 2 3 4 5 6

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

[thinker89]

Всем спасибо