Question

delphi中关于截取字符串的问题

现在有这样的一些字符串
00000001-WWF
0000000101-JHJK
0000000102-HKJKP
0000000103-JGYGY
我想截取 - 号左边的数字
实现这样的效果
0000000103-JGYGY 截取后是 0000000103
0000000101-JHJK 截取后是 0000000101
00000001-WWF 截取后是 00000001
这个该如何实现?
请赐教
非常感谢

Answer 1

如果‘-’是肯定存在的，且只有一个，这很好办
var
i:word;
s1,s:string;
begin
s1:='0000000103-JGYGY' ;或者s1:=edit1.text;通过界面输入，也可通过数据库表字段赋值
i:=pos('-',s1);
s:=copy(s1,1,length(s1)-i)
end;
S得到的值就是0000000103
这是最简单的方法了。

Answer 2

function GetSubStr(s:string):string;
begin
result:= copy(s,1,pos('-',s)-1);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage(GetSubStr('1234567890-abcdef'));
end;

Answer 3

有两种方式，一种是过滤掉除了0-9的字符，另外一种是取到“-”符号，然后进行下一条

Answer 4

copy(s,1,pos('-',s)-1) s就是你上面的值

Answer 5

用copy