این خط را به چه شکلی باید بازنویس کرد تا خطای ناشی از char , widChar رفع شود؟ متشکرمif not( key in ['0'..'9',#46,#8]) then key:=#0;
Printable View
این خط را به چه شکلی باید بازنویس کرد تا خطای ناشی از char , widChar رفع شود؟ متشکرمif not( key in ['0'..'9',#46,#8]) then key:=#0;
با سلام
این کد را در یک سایت روسی پیدا کردم. مسئله حل شد.if (not CharInSet(Key, ['0' .. '9', ',',Chr(8),',',Chr(46)])) then key:=#0;