如何在delphi中使用posex？例如，我想取12-12345-6中的壹個數。我該怎麽辦？

定義變量

nPos1，nPos2:整數；

sub:字符串；

文本:字符串；

str:字符串；

開始

sub:= '-'；

text:= ' 12-12345-6 '；

nPos1？:=PosEx(sub，text，1)；

nPos2:=PosEx(sub，text，nPos1？+長度？(子))；

//show message(inttostr(NPOs 1)+'？'+inttostr(NPOs 2))；

str？:=?復制(text，NPOs 1+長度？(sub)，NPOs 2-NPOs 1-長度？(子))；

show message(str)；

結束；