[aleksnine]

Подскажите как заменить все пробелы в строке на +.
спасибо.

[Admin]

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

Подскажите как заменить все пробелы в строке на +.
спасибо.

http://www.delphisources.ru/forum/showthread.php?t=1802

[BlackCash]

Function ReplasePlusSpace(Str: String):String;
var s,sear:string;c,i:integer;mass:array [1..255] of string;
begin
s:=Str;
c:=Length(s);
for i:=1 to c do
begin
mass[i]:=copy(s,i,1);
if mass[i]=' ' then
mass[i]:='+';
sear:=sear+mass[i];
end;
Result := sear;
end;

[2face]

В StrUtils unit'е есть функция AnsiReplaceStr(s, s1, s2),
где s - строка
s1 - подстрока, вместо которой вставляешь новую подстроку
s2 - новая подстрока

[aleksnine]

Спасибо всем.

Сделал так :

for i:= 1 to length(s) do if s[i] = '-' then s[i]:= '+';