以截取*号为例,EdtSpec_1为Tedit,StrSpec为*号之前的字符,StrSpec2位*号之后的字符
StarPosition:Integer;
StrSpec,StrSpec1,StrSpec2:string;
StarPosition:=Pos('*',EdtSpec_1.Text);
if StarPosition<=0 then
showMessage('规格输入格式不正确,请重新输入!')
else
begin
StrSpec:=EdtSpec_1.Text;
delete(StrSpec,StarPosition,length(EdtSpec_1.Text)-StarPosition+1);
StrSpec1:=StrSpec;
StrSpec:=EdtSpec_1.Text;
delete(StrSpec,1,length(StrSpec1)+1);
StrSpec2:=StrSpec;
...
End;
StarPosition:Integer;
StrSpec,StrSpec1,StrSpec2:string;
StarPosition:=Pos('*',EdtSpec_1.Text);
if StarPosition<=0 then
showMessage('规格输入格式不正确,请重新输入!')
else
begin
StrSpec:=EdtSpec_1.Text;
delete(StrSpec,StarPosition,length(EdtSpec_1.Text)-StarPosition+1);
StrSpec1:=StrSpec;
StrSpec:=EdtSpec_1.Text;
delete(StrSpec,1,length(StrSpec1)+1);
StrSpec2:=StrSpec;
...
End;