function RightAfterChStr (const S : string; const Ch : Char): string;
var
M: Integer;
begin
M := Pos (Ch, S);
if M = 0 then
Result := ''
else
Result := Copy (S, M + 1, Length (S) - M);
end;function LeftTillStr (const S : string; const Ch : Char): string;
var
M: Integer;
begin
M := Pos (Ch, S);
if M < 2 then
Result := ''
else
Result := Copy (S, 1, M - 1);
end;
var
M: Integer;
begin
M := Pos (Ch, S);
if M = 0 then
Result := ''
else
Result := Copy (S, M + 1, Length (S) - M);
end;function LeftTillStr (const S : string; const Ch : Char): string;
var
M: Integer;
begin
M := Pos (Ch, S);
if M < 2 then
Result := ''
else
Result := Copy (S, 1, M - 1);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货