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;
|