B
boda.w
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样简便判断Tedit 中除了控格外,没有其他的输入?
在Delphi中有没有去除字符串钟头尾空格的函数?
在Delphi中有没有去除字符串钟头尾空格的函数?
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
D
delphi fan2
Unregistered / Unconfirmed
GUEST, unregistred user!
length(trim(edit.text))=0 为空！没有其他的输入
以下是清除字符串中头尾，头，尾空格的函数！
function Trim(const S: string): string;
function TrimLeft(const S: string): string;
function TrimRight(const S: string): string;
以下是清除字符串中头尾，头，尾空格的函数！
function Trim(const S: string): string;
function TrimLeft(const S: string): string;
function TrimRight(const S: string): string;
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
function trim(const s: string);string;
吕
吕雪松
Unregistered / Unconfirmed
GUEST, unregistred user!
Trim,TrimLeft,TrimRight分别是删除左右、删除左、删除右边空格的
方法，如果要去掉所有空格，要自己写函数。
procedure KillSpace(var SS : string);
begin
while Pos(' ',SS)>0 do begin
SS := Copy(SS,1,Pos(' ',SS) - 1)+Copy(SS,Pos(' ',SS)+1,Length(SS)-Pos(' ',SS));
end;
end;
方法，如果要去掉所有空格，要自己写函数。
procedure KillSpace(var SS : string);
begin
while Pos(' ',SS)>0 do begin
SS := Copy(SS,1,Pos(' ',SS) - 1)+Copy(SS,Pos(' ',SS)+1,Length(SS)-Pos(' ',SS));
end;
end;
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
1. StrStr perhaps,
I do not remember other but it's easy.
2.Trim(const;TrimLeft.TrimRight
for i:= s.lengh downto 1 do
begin
if s = ' ' then
begin
result := true;
exit;
end
end;
result := false;
I do not remember other but it's easy.
2.Trim(const;TrimLeft.TrimRight
for i:= s.lengh downto 1 do
begin
if s = ' ' then
begin
result := true;
exit;
end
end;
result := false;
许
许许
Unregistered / Unconfirmed
GUEST, unregistred user!
if trim(edit.text) = '' then
begin
/*数据未输入处理*/
end
else
begin
/*其它*/
end;
begin
/*数据未输入处理*/
end
else
begin
/*其它*/
end;
R
Rabbit
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure mytrim(var SS : string);
begin while Pos(' ',SS)>0 do begin
SS := delete(ss,pos(' ',ss),1);
end;
end;
boda.w:
这个问题该结束了吧。
begin while Pos(' ',SS)>0 do begin
SS := delete(ss,pos(' ',ss),1);
end;
end;
boda.w:
这个问题该结束了吧。
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
TRIM!
where are you?
where are you?
V
VC
Unregistered / Unconfirmed
GUEST, unregistred user!
我也写一个mytrim(去掉所有空格)
function MyTrim(s:string):string;
var
i:integer;
begin
Result:='';
for i:=1 to Length(s) do
if s<>' ' then
Result:=Result+s
end;
function MyTrim(s:string):string;
var
i:integer;
begin
Result:='';
for i:=1 to Length(s) do
if s<>' ' then
Result:=Result+s
end;
L
LSS
Unregistered / Unconfirmed
GUEST, unregistred user!
这么简单的问题，来晚了
Y
yanghaijun
Unregistered / Unconfirmed
GUEST, unregistred user!
Lss:
我和你深有同感，来晚了。
我和你深有同感，来晚了。
W
wuyi
Unregistered / Unconfirmed
GUEST, unregistred user!
建议由板主结束此问题.
Z
zx
Unregistered / Unconfirmed
GUEST, unregistred user!
write a procedure to strip space!
function StripSpace(S: string):string ;
var
i: integer ;
begin
i:= Length(s);
While (Length(s)>0)and(s=' ') do begin
Delete(S,i,1);
Dec(i);
end;
i:=1;
While (Length(s)>0)and(s=' ') do begin
Delete(S,i,1);
end;
Result:= s;
end ;
function StripSpace(S: string):string ;
var
i: integer ;
begin
i:= Length(s);
While (Length(s)>0)and(s=' ') do begin
Delete(S,i,1);
Dec(i);
end;
i:=1;
While (Length(s)>0)and(s=' ') do begin
Delete(S,i,1);
end;
Result:= s;
end ;
王
王寒松
Unregistered / Unconfirmed
GUEST, unregistred user!
只一人之答案足矣，其余多属多余
end
end
王
王寒松
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
Z
zyuz
Unregistered / Unconfirmed
GUEST, unregistred user!
我想boda.w问题的本意是：输入一个空格触发一个事件。
如在：Tedit中输入一个空格，则清空Tedit。
如在：Tedit中输入一个空格，则清空Tedit。