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 不知为何
tmpStr:pchar;
pstr:pchar;
pos:pchar; pstr := '1234;ded';
pos:=strpos(pstr,';');
new(tmpstr);
strmove(tmpstr,pstr,pos-pstr);
showmessage(pchar(tmpstr));我想要的是字符串1234 可得出的结果是1234x 不知为何
var
pstr: string;
p: integer;
begin
pstr := '1234;ded';
p := pos(';', pstr);
showmessage(copy(pstr, 1, Pred(p)));
end;