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

[lyboy99]

如何快速判断一个字段中的空格呢?
如 "Good Book Shop"字段如何判断该字段中的三处空格呢
---- ---- ----
如果我删除该字段中的所有空格如何实现呢?
即"GoodBookShop"
如果将字段中的所有字段用其他字符代替如何实现呢?
即"Good#Book#Shop"

请高手指点,给出源码,谢谢!

[lyboy99]

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

[Feather Duster]

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

[Stephen_Chen]

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

[outer2000]

StringReplace

[taidy]

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;

[深宇]

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;

[深宇]

这段代码在D6下测试通过，给分吧

[qybao]

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;

[qybao]

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;

[王集鹄]

ShowMessage(StringReplace('Good Book Shop', #32, '#', [rfReplaceAll])); //改
ShowMessage(StringReplace('Good Book Shop', #32, '', [rfReplaceAll])); //删

你的数据库是什么？