简单问题高手帮忙--->如何快速判断一个字段中的空格呢?

Question

写错一个问题
如果将字段中的所有空格用其他字符代替如何实现呢?
即"Good#Book#Shop"

Answer 1

如果在delphi6中用一个函数replace（记不清，查帮助），如果自己写，空格就是#13，字符串本身是个数组，可以了，本人不会写代码！

Answer 2

var
  sTemp: String;
  nTemp: Integer;
begin
  for nTemp:=1 to Length(sTemp) do
    if sTemp[nTemp] = '' then
      //.....
    else
      //....
end;

Answer 3

delete ' '
var i:integer;
s:string;
s:='Good#Book#Shop'
repeat
i:=pos(' ',s);
s:=copy(s,1,i-1),+copy(s,i+1,length(s)-(1+1));
unti pos(' ',s) =0;replace ' ' with'#'
var i:integer;
s:string;
s:='Good#Book#Shop'
repeat
i:=pos(' ',s);
s:=copy(s,1,i-1),+'#'+copy(s,i+1,length(s)-(1+1));
unti pos(' ',s) =0;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  str,str1,str2:string;
begin
  str:='Good Book Shop';
  str1:='';
  str2:='';
  for i:=1 to length(str) do 
    begin
     if copy(str,i,1)<>' ' then
        begin
          str1:=str1+copy(str,i,1);
          str2:=str2+copy(str,i,1);
        end
     else
        begin
          str2:=str2+'#';
        end;
    end;
  caption:=str1;//第一个问题
  button1.caption:=str2;//第二个问题
end;

Answer 5

var
  tmp: string;
  p,sum: Integer;
begin
  tmp := Trim('Good Book Shop');
  while Pos(' ',tmp)>0 do
  begin
    Inc(sum);{sum为空格数}
    p := Pos(' ',tmp);
    {如不要'#'就是删除空格}
    tmp := Copy(tmp,1,p-1)+'#'+Trim(Copy(tmp,p+1,255));
  end;
end;

Answer 6

var
  tmp: string;
  p,sum: Integer;
begin
  tmp := Trim('Good Book Shop');
  sum := 0;
  while Pos(' ',tmp)>0 do
  begin
    Inc(sum);{sum为空格数}
    p := Pos(' ',tmp);
    {如不要'#'就是删除空格}
    tmp := Copy(tmp,1,p-1)+'#'+Trim(Copy(tmp,p+1,255));
  end;
end;

Answer 7

ShowMessage(StringReplace('Good Book Shop', #32, '#', [rfReplaceAll])); //改
  ShowMessage(StringReplace('Good Book Shop', #32, '', [rfReplaceAll])); //删你的数据库是什么？