замена пробелов в тексте

[Kotofff]

1) Если в лоб решать :

Memo1.Lines[4] := Memo1.Lines[4] + Memo1.Lines[5]; // складываем 5-ю и 6-ю строки
Memo1.Lines.Delete(5); // 6-ю удалям

2) Если "по-умному":
ищем позиции 4-го и 5-го #13, выгребаем строку между этими позициями, и в ней уже применяем StringReplace
В этом случае работаем с memo1.Text, а не с Memo1.Lines

[designer999]

Kotofff очень благодарен!!!

использую вот этот код для замены пробелов как мне рекомендовали выше

s := Memo1.Lines.Strings[24];

while Pos(' ', s) <> 0 do begin
Insert('<SP>', s, Pos(' ', s));
Delete(s, Pos(' ', s), 1);
end;

Memo1.Lines.Strings[24] := s;

как его можно изменить что бы он менял пробелы допустим с 30 символа ?

[Kotofff]

Объяви дополнительно переменную S1:string
И после s := Memo1.Lines.Strings[24];
Будет что-то типа :

s1 := copy(s, 30, Length(s) - 29);// берем часть строки для работы
Delete(s, 30, Length(s) - 29);// убираем эту часть с самой строки

Потом в цикле WHILE работай уже с S1 и по окончании цикла:

s := s + s1;

P.S.
Только сам цикл ты уверен, что правильно работает ?

[designer999]

всё тема закрыта, сделал сам