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

[designer999]

Как сделать так что бы слова которые мы вводим в Edit и нажимаем на кнопку "добавить" в Memo, добавлялись в Memo, но пробелы между словами менялись на определённый текст
Пример на картинки:

За помощь буду очень благодарен

[FaTaL]

Функции POS DELETE и COPY вам в этом помогут.

[designer999]

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

Функции POS DELETE и COPY вам в этом помогут.

как именно их использовать ???

[maLoy*508]

help поможет, он много чего знает -)

[lexaltd]

uses StrUtils;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Memo1.Text := AnsiReplaceStr(Edit1.Text ,' ','xxx');
end;

[designer999]

нашол но оно удаляет пробелы , а нужно заменить

while(pos(' ',st) = 1) and(length(st) > 0) do delete (st,1,1);

Пробелы удаляет инструкция delete (st, i, i), которая выполняется в цикле до тех пор, пока первым символом строки является пробел (в этом случае значение роs (' ',st) равно единице). Необходимость проверки условия length (st) > 0 объясняется возможностью того, что введенная строка состоит только из пробелов.

кому не трудно скажите как это сделать ?

[Манжосов Денис :)]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := Memo1.Lines.Strings[0];

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

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

end;

Ну можно вот так

[designer999]

Спасибо большое
Ответе пожалуйста ещё на один вопрос:
Как можно удалить перенос между строками ???

[Kotofff]

Как можно удалить перенос между строками ???

Все тоже самое, что тебе говорили, только ищи и заменяй не пробел (' '), а вот такой #13 символ. Это перевод каретки (строки).
Его в коде так и пиши без кавычек.

[designer999]

сделал вот так, а оно мне всё сбило в одну строку

memo1.Text:=StringReplace(memo1.Tex t, #13, '',[rfReplaceAll]);

а нужно допустим у меня есть шестая строка и пятая строка текста в Мемо, как при нажатии на клавишу сделать что бы шестая срока текста сместилась в конец пятой текста или как удалить #13 между этими строками?