本人有一个类似于此的字符串‘82435669-98’也就是两串字符加一‘-’号,有没有一个合适的函数可以获取前面子串,两个子串都可能为空,但是中间一定有‘-’号,谢谢
解决方案 »
- Delphi如何控制连续打印?(分不够可以加)
- 请教各位大侠一个问题,小弟不胜感激.
- 请问:private public protected published 的区别
- 大家勿进,自己换ID!
- 能很快实现这功能吗?点击 E_mail:[email protected]调用outlook发邮件
- 帮助一下无助的小菜鸟吧!:(
- 一个小问题,在线等待!
- 我在运行程序时当运行到application.createform(Tfrmmain,frmmain)时出错:property does net exist?
- 项目开发过程时间分配
- 如何将PChar类型转为String类型?
- 哪为高手给点读XML文件的代码呀!急,解决就给分!
- 关于dblookupcombobox的疑问
s2:=copy(s1,1,Pos(s1,'-'));
s, ps: string;
begin
s := '82435569-98';
ps := copy(s, 1, pos('-', s) - 1);
var
rS: string;
begin
rS := copy(s, 1, pos('-', s) - 1);
result := rs;
end;