Y
yankk
Unregistered / Unconfirmed
GUEST, unregistred user!
if'4295965*13014752669'<>'' then
begin//1
s:='4295965*13014752669';
s1:=' ';
s2:=' ';
for i:=1 to length(s) do
begin//2
k:=i;
s1[k]:=s[k];
k:=k+1;
if s[k]='*' then
begin//3
for j:=1 to length(s)-i do
begin//4
k:=k+1;
s2[j]:=s[k];
end; //4
break;
end;//3
end;//2
edit1.Text:=s1;
edit2.Text:=s2;
end; //1
该过程是如果原字符串中的内容不为空则把s中*以前的字符拷贝到s1中,把s中*以后的字符拷贝到s2中,
运行的结果是首先出现Invalid pointer operation的错误,但是运行的结果是正确的,并且再关闭窗体时
也会出现同样的错误,请大家帮个忙!
begin//1
s:='4295965*13014752669';
s1:=' ';
s2:=' ';
for i:=1 to length(s) do
begin//2
k:=i;
s1[k]:=s[k];
k:=k+1;
if s[k]='*' then
begin//3
for j:=1 to length(s)-i do
begin//4
k:=k+1;
s2[j]:=s[k];
end; //4
break;
end;//3
end;//2
edit1.Text:=s1;
edit2.Text:=s2;
end; //1
该过程是如果原字符串中的内容不为空则把s中*以前的字符拷贝到s1中,把s中*以后的字符拷贝到s2中,
运行的结果是首先出现Invalid pointer operation的错误,但是运行的结果是正确的,并且再关闭窗体时
也会出现同样的错误,请大家帮个忙!