Hello, Vladimir A.Bakhvaloff! You wrote on Thu, 25 May 2006 13:02:39 +0400:
>> ÈÌÏÐÃÙ, Ñ ×ÁÍ Ý£ ÓËÁÖÕ, ÛÏ Val ÂÕÄÅÔ Û×ÉÄÞÅÅ StrToInt ÒÏÂÉÔØ! >> ÚÁÎÑÃÃÁ ×ÁÍ ÎÅÞÅÍ :-) VA> üÔÏ Ó ËÁËÏÊ ÔÁËÏÊ ÒÁÄÏÓÔÉ-ÔÏ, ÅÓÌÉ ÜÔÏ ÏÄÎÏ É ÔÏ ÖÅ?.. >> --~--~---------~--~----~------------~-------~--~----~ VA> function StrToInt(const S: string): Integer; VA> var VA> E: Integer; VA> begin VA> Val(S, Result, E); VA> if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]); VA> end; >> --~--~---------~--~----~------------~-------~--~----~ ÎÕ ×ÏÔ ÓÁÍ ÖÅ ×ÉÄÉÛØ, ÛÏ ÎÅ ÏÄÎÏ É ÔÏ ÖÅ! ÍÏÖÅÛØ ÓÒÁ×ÎÉÔØ ÔÉËÉ, ÅÖÅÌÉ ÏÞÅÎØ ÎÁÄÏ :-) æ£ÄÏÒÏ× å×ÇÅÎÉÊ. úáï "ôÒÅÓÔ-í". åËÁÔÅÒÉÎÂÕÒÇ.