垃圾: StrToInt [阅读: 690] 2005-11-07 15:46:03 function StrToInt(const S: string): Integer; var E: Integer; begin Val(S, Result, E); if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]); end; VAL的源码再哪里?