C cccc Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #1 我从数据库中取出字符串A，A的大小我不知道，但我知道A是中间带‘.’ ‘###.###‘的格式，我想把A点后面的字符串赋给B 最好有程序
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #2 B := Copy(A, Pos('.', A) + 1, Length(A));
S shopman Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #3 b:=copy(a,pos('.',a),length(a));
Z zensst Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #4 I:=Pos('.',A); if I > 0 then B:=Copy(A, I+1, Length(A)-I);
小 小吕 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #5 假设s=k324io.wier; var position,len: integer; snew: string; begin position := Pos('.',s)+1;//substring`s first character len := length(s);//substring`s length snew := copy(s,position,len-position);//newsubstring end;
假设s=k324io.wier; var position,len: integer; snew: string; begin position := Pos('.',s)+1;//substring`s first character len := length(s);//substring`s length snew := copy(s,position,len-position);//newsubstring end;
Y YellowMoon Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #6 B := Copy(A, Pos('.', A) + 1, Length(A)) 是对的!!
I Iknow Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #7 要判断pos('.', a)>0的 用copy(a, pos('.', a)+1, length(a))可以不用精心计算长度 要那个'.'的话就不+1, 不要的话就要+1
L liuchuanbo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-27 #8 I:=Pos('.',A); if I > 0 then B:=Copy(A, I+1, Length(A)-I); or I:=Pos('.',A); if I > 0 then B := Copy(A, Pos('.', A) + 1, Length(A));
I:=Pos('.',A); if I > 0 then B:=Copy(A, I+1, Length(A)-I); or I:=Pos('.',A); if I > 0 then B := Copy(A, Pos('.', A) + 1, Length(A));
