var
S, S2 : string;
X : integer;
begin
S := '1;0;0;4;4;主單位數量*0.1;副單位數量/0.1';
S2 := Copy(S, Pos('*', S)+3, 1);
Showmessage(S2);
X := StrToInt(S2);
end;如果条件很复杂,也无非是用Copy和Pos,或者再加几句运算
S, S2 : string;
X : integer;
begin
S := '1;0;0;4;4;主單位數量*0.1;副單位數量/0.1';
S2 := Copy(S, Pos('*', S)+3, 1);
Showmessage(S2);
X := StrToInt(S2);
end;如果条件很复杂,也无非是用Copy和Pos,或者再加几句运算
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货