Задача Delphi 7 - Замена подстроки в строке

[Юрий2009]

В строке между словами вставить вместо пробела запятую и пробел. Напишите please решение задачи подробно! Заранее спасибо!!!

[Олвин]

Процедура Insert вставляет ',' в строку s в позиции, переданной в третьем параметре. А там у нас функция Pos, возвращающая позицию пробела в строке s. Запятая вставляется на месте пробела, а остаток строки сдвигается дальше.

var
s : string;
begin
s := 'Hello world!';
Insert(',', s, Pos(' ', s));
WriteLn(s);
ReadLn
end;

[Stilet]

Для Delphi можно использовать функцию:

=StringReplace(Строка,Что менять,На что менять,[rfReplaceAll])

Подробности в Хелпе.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
begin
 s1:='';
  s:=edit1.Text;
  while s<>'' do
  begin
   if pos(' ',s)<>0 then
   begin
    s1:=s1+(copy(s,1,pos(' ',s)-1))+', ';
    delete(s,1,Pos(' ',s));
   end
   else
    begin
     s1:=s1+s;
     s:='';
    end;
  end;
  edit1.Text:=s1;
end;