这两个函数
Inttostr
StrtointShowmessage(Inttostr(100));var
i:integer
begin
  i:=strtoint('100');
end;