关于strmove在线等待

Question

var
 tmpStr:pchar;
 pstr:pchar;
 pos:pchar;         pstr := '1234;ded'; 
pos:=strpos(pstr,';');
new(tmpstr);
strmove(tmpstr,pstr,pos-pstr);
showmessage(pchar(tmpstr));我想要的是字符串1234 可得出的结果是1234x 不知为何

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 pstr: string;
 p: integer;
begin
  pstr := '1234;ded';
p := pos(';', pstr);
showmessage(copy(pstr, 1, Pred(p)));
end;