写错一个问题
如果将字段中的所有空格用其他字符代替如何实现呢?
即"Good#Book#Shop"
如果将字段中的所有空格用其他字符代替如何实现呢?
即"Good#Book#Shop"
解决方案 »
- 各位老师;当dabase1 的LoginPrompt 设为false 如何写 TDAtabase.onLoging 事件的代码中提供有关登录参数?
- DBGridEh STFilter 能过滤 可就是没有下拉框
- 请问如何通过程序关闭com+
- 诚意招Delphi分析员
- Html help workshop!!
- TPageControl的一个小问题,解决立即给分
- 请问,如何做出象窗口标题栏那样,按住鼠标,可以拖动窗体?谢谢!
- DBNavigator控件可否在程序中将某个已经显示的按钮变为不显示?
- 刚作完毕业设计,放分
- 请诸位帮我分析错误原因
- 急:如何得到本级的IP地址??? 急急急急急急
- 我有困难!有人懂floating数值类型不匹配问题吗?
sTemp: String;
nTemp: Integer;
begin
for nTemp:=1 to Length(sTemp) do
if sTemp[nTemp] = '' then
//.....
else
//....
end;
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;
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;
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;
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])); //删你的数据库是什么?