C
cat.yy
Unregistered / Unconfirmed
GUEST, unregistred user!
。
H
hopfield
Unregistered / Unconfirmed
GUEST, unregistred user!
Trim
W
westboy2000
Unregistered / Unconfirmed
GUEST, unregistred user!
例如对Edit1.Text除去两端空格，可以用
Trim(Edit1.Text);
Trim(Edit1.Text);
C
cat.yy
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi 1.6 中没有呀！
J
jmsczb
Unregistered / Unconfirmed
GUEST, unregistred user!
他们说的 不对，如果edit1.text中间有空格呢,所以要判断空格的位置,
pos('',string)=1 then
delete(string,1,1)//删除首空格!
delete(string, Length(string)-2,length(string)-1);//删除尾空格!
pos('',string)=1 then
delete(string,1,1)//删除首空格!
delete(string, Length(string)-2,length(string)-1);//删除尾空格!
W
westboy2000
Unregistered / Unconfirmed
GUEST, unregistred user!
to jmsczb：请你看清楚人家的问题先！不要乱说话！
W
westboy2000
Unregistered / Unconfirmed
GUEST, unregistred user!
to cat.yy：你还用这么老的delphi版本吗？
我给你一个函数，自己看吧：
function Trim(const S: string): string;
var
I, L: Integer;
begin
L := Length(S);
I := 1;
while (I <= L) and (S <= ' ') do Inc(I);
if I > L then Result := '' else
begin
while S[L] <= ' ' do Dec(L);
Result := Copy(S, I, L - I + 1);
end;
end;
我给你一个函数，自己看吧：
function Trim(const S: string): string;
var
I, L: Integer;
begin
L := Length(S);
I := 1;
while (I <= L) and (S <= ' ') do Inc(I);
if I > L then Result := '' else
begin
while S[L] <= ' ' do Dec(L);
Result := Copy(S, I, L - I + 1);
end;
end;
H
howyer
Unregistered / Unconfirmed
GUEST, unregistred user!
同意westboy2000
J
jmsczb
Unregistered / Unconfirmed
GUEST, unregistred user!
sorry,在下考虑多了.westboy2000说的很有道理
P
pingbaoshi
Unregistered / Unconfirmed
GUEST, unregistred user!
同意
R
robertcool
Unregistered / Unconfirmed
GUEST, unregistred user!
function TrimAll(const S: string): string;
var
I, L: Integer;
Buffmsg: String;
begin
L := Length(S);
I := 1;
while (I <= L) do
begin
if S <> ' ' then Buffmsg := Buffmsg + S;
Inc(I);
end;
Result := Buffmsg;
end;
var
I, L: Integer;
Buffmsg: String;
begin
L := Length(S);
I := 1;
while (I <= L) do
begin
if S <> ' ' then Buffmsg := Buffmsg + S;
Inc(I);
end;
Result := Buffmsg;
end;
C
cat.yy
Unregistered / Unconfirmed
GUEST, unregistred user!
只有自己写了
C
cat.yy
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。