R
robert168
Unregistered / Unconfirmed
GUEST, unregistred user!
如题,谢谢
J
jxgxy
Unregistered / Unconfirmed
GUEST, unregistred user!
function copyright(const as:string;acount:integer)
begin
result:=Copy(as,Length(as)-acount,length(as))
end;
begin
result:=Copy(as,Length(as)-acount,length(as))
end;
9
99134234
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi直接只提供从左边的， 非要右边的话就像楼上那样
左撇子和右撇子用的筷子总不能分别生产吧
左撇子和右撇子用的筷子总不能分别生产吧
R
ranyang
Unregistered / Unconfirmed
GUEST, unregistred user!
unit StrUtilsl;
righrstr('6tryuttuty',3)
得到：‘uty’
righrstr('6tryuttuty',3)
得到：‘uty’
9
99134234
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的 把StrUtilsl.pas贴上来撒 ， 不然咋整
D
dingbaosheng
Unregistered / Unconfirmed
GUEST, unregistred user!
来自：99134234, 时间：2006-11-16 13:09:03, ID：3624622
楼上的 把StrUtilsl.pas贴上来撒 ， 不然咋整
楼上滴 正NB
StrUtilsl.pas 系统自带滴 贴个P阿
楼上的 把StrUtilsl.pas贴上来撒 ， 不然咋整
楼上滴 正NB
StrUtilsl.pas 系统自带滴 贴个P阿
雾
雾锁长河
Unregistered / Unconfirmed
GUEST, unregistred user!
楼主好象要返回子串的位置，而不是子串吧[
]
//返回0值表示未找到
function RightPos(substring, s: string);
begin
result:=0;
for i:= length(s) down to 1 do
begin
if s:= substring then result:=i;
//如果自左算起则 result:= length(s) - i;
end;
end;
]//返回0值表示未找到
function RightPos(substring, s: string);
begin
result:=0;
for i:= length(s) down to 1 do
begin
if s:= substring then result:=i;
//如果自左算起则 result:= length(s) - i;
end;
end;
L
liangyabinqiuzh
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:=0 to length(str)-1 do
begin
if str='你要查找的字' then
begin
//i 就是你要的数
end;
end;
begin
if str='你要查找的字' then
begin
//i 就是你要的数
end;
end;