procedure TForm1.Button1Click(Sender: TObject);
Var
TempStr,LeftStr,RightStr:String;
StrLen:Integer;
begin
TempStr:='abcdefghijklmn';
StrLen:=Length(TempStr);//取字符串长度
LeftStr:=Copy(TempStr,1,4);//左边四位
RightStr:=Copy(TempStr,StrLen-2,2);//右边两位
ShowMessage(LeftStr);
ShowMessage(RightStr);
end;
Var
TempStr,LeftStr,RightStr:String;
StrLen:Integer;
begin
TempStr:='abcdefghijklmn';
StrLen:=Length(TempStr);//取字符串长度
LeftStr:=Copy(TempStr,1,4);//左边四位
RightStr:=Copy(TempStr,StrLen-2,2);//右边两位
ShowMessage(LeftStr);
ShowMessage(RightStr);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货