DELPHIÊý¾Ýת»»Int64 to String

LPHIÊý¾Ýת»»Int64 to String
±à³ÌʵÏÖ
var
  ss,ss1:string;
  ss2:int64;
  tmp:string;
begin
  ss:='AB10000000001';
  tmp:=copy(ss,2,11);
  ss2:=tmp+1;        //ÈçºÎת»»Ê¹ss2:=10000000002
  ss1:=ss2;          //½á¹û ss1:='AB10000000002'
  showmessage(ss1);
end;

---

[´íÎó] Unit1.pas(118): Incompatible types: 'Int64' and 'String'
[´íÎó] Unit1.pas(118): Incompatible types: 'String' and 'Int64'
[ÖÂÃü´íÎó] ZCUSERS.dpr(5): Could not compile used unit 'Unit1.pas'

---

LPHIÊý¾Ýת»»Int64 to String
±à³ÌʵÏÖ
var
  ss,ss1:string;
  ss2:int64;
  tmp:string;
begin
  ss:='AB10000000001';
  tmp:=copy(ss,2,11);
  ss2:=strtoint(tmp)+1;        //ÈçºÎת»»Ê¹ss2:=10000000002
  ss1:='AB'+inttostr(ss2);          //½á¹û ss1:='AB10000000002'
  showmessage(ss1);
end;

---

'10000000001' is not a valid integer value

---

var
  ss,ss1:string;
begin
  ss:='AB10000000001';
  ss1 := ss;
  ss1[Length(ss1)] := Char(Ord(ss1[Length(ss1)])+1);
  showmessage(ss1);