记账软件版1楼: 1.取一个字符串（字符串是不固定的）最右边＇＇/＇＇字符左边的字符串。
例如假如字符串为：＇＇123/12/85/65/785＇＇，要用函数取到＇＇123/12/85/65＇＇
2.字符串和其子字符串相减得效果。
例如假如str1为：＇＇＇＇123/12/85/65＇＇，str2为：＇＇123/12＇＇，要得到str3=str1- str2=＇＇/85/65＇＇
各位大虾请指点迷津吧

2楼: 不好意思说错了，应该是求两个函数 如管家婆软件下载

3楼: 1、调用Copy函数，从右扫描过来，遇到＇＇/＇＇的话就停止，同时将它左边的字符返回。编程的话很容易实现。
2、调用Pos(sub,s)，具体看看这个函数的说明应该也不难解决。

4楼: s:=＇＇123/12/85/65/785＇＇;
for i:= length(s) downto 1 do
begin
if s[i] <>＇＇/＇＇ then
system.delete(s,i,1)
else
break;
end;
///
str1:=＇＇123/12/85/65＇＇;
str2:=＇＇123/12＇＇;
str3:=copy(str1,1,pos(str2,str1)-1)+copy(str1,pos(str2,str1)+length(str2),length(str1))

5楼: 第一个：
function rcut(oldstr:string):string;

var i:integer;
ss:string;
begin
ss:=reversestring(oldstr);//反转字符串
i:=pos(＇＇/＇＇,ss);
ss:=copy(ss,i,length(ss));//取字符串
ss:=reversestring(ss);//转回顺序
result:=ss;
end;
第2个函数；
function replace(oldstr,istr:string):string;
var ss:string;
begin
ss:=oldstr;
result:=stringreplace(ss,istr,＇＇＇＇,[]);//把它替换成空字符
end;

6楼: var i ,j,k :integer;
s :string;
begin
s := ＇＇123/12/85/65/785＇＇;
i := length(s);
for k :=i downto 0 do
begin
if s[k] = ＇＇/＇＇ then
begin
for j := 1 to k - 1 do
begin
edit1.Text := edit1.Text + s[j] ;
end;
exit;
end;
end;
end;

记账软件版7楼: 十分感谢各位大哥的帮助！