淡
淡淡的笑
Unregistered / Unconfirmed
GUEST, unregistred user!
var
MyChar: set of char;
AddrArry:array of char;
i,j:integer;
Addr:string;
begin
Addr:='127.0.0.1';
MyChar:=['.','0'..'9'];
j:=length(Addr);
setlength(AddrArry,j);
LstrCpy(pchar(Addr),pchar(AddrArry));
// 从这里后,addr的值就变成不是原来的addr的值了,这是怎么回事
for i:=0 to j-1 do
begin
// 如果有方法可以把字串类型的'a'转换成字符类型的'a'
// 下一句就可以采用 copy(Addr,i+1,1) in MyChar 来判断了
if not(AddrArry in MyChar) then
begin
showmessage('error!');
break;
end;
end;
AddrArry:=nil;
end;
我的原意是判断 Addr 这个字串中是否含有除MyChar这个集合之外的字符
使用集合,pos,strscan 哪种方法比较好? (高效) 谢
MyChar: set of char;
AddrArry:array of char;
i,j:integer;
Addr:string;
begin
Addr:='127.0.0.1';
MyChar:=['.','0'..'9'];
j:=length(Addr);
setlength(AddrArry,j);
LstrCpy(pchar(Addr),pchar(AddrArry));
// 从这里后,addr的值就变成不是原来的addr的值了,这是怎么回事
for i:=0 to j-1 do
begin
// 如果有方法可以把字串类型的'a'转换成字符类型的'a'
// 下一句就可以采用 copy(Addr,i+1,1) in MyChar 来判断了
if not(AddrArry in MyChar) then
begin
showmessage('error!');
break;
end;
end;
AddrArry:=nil;
end;
我的原意是判断 Addr 这个字串中是否含有除MyChar这个集合之外的字符
使用集合,pos,strscan 哪种方法比较好? (高效) 谢