W wlmoon Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #1 怎么才能调4的数字，如，1-10000 ，要挑末尾两位带四的数比如：1094，1049，1044等
Y yeath Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #2 var d,i:integer; itemp:integer; begin d:=100; for i:=0 to d/100-1 do begin itemp := i*100 + 44; showmessage(inttostr(itemp)); end;
var d,i:integer; itemp:integer; begin d:=100; for i:=0 to d/100-1 do begin itemp := i*100 + 44; showmessage(inttostr(itemp)); end;
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #3 IntToStr后，检测最后两位是否是'4'。 即 iLen := Length(str); if (iLen >= 2) and (str[iLen]与str[iLen-1]='4') then
Y yeath Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #4 一位4还是两位4，一个4的话可以改一下上面的程序，把100改成10就行了。
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #7 我还是不大懂那个题目，如果是找最后两位都是4的数，最简单的方法是对100求余，结果是否44 if integer mod 100 = 44 then ...
春 春意 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #8 什么意思呀？ 是判断末尾两位是44吗? s:string; i:integer;//为数 ... s := inttostr(i); s := copy(s,length(s)-2,2) if s = '44' then showmessge('OK!'); 越想越不明白……………
什么意思呀？ 是判断末尾两位是44吗? s:string; i:integer;//为数 ... s := inttostr(i); s := copy(s,length(s)-2,2) if s = '44' then showmessge('OK!'); 越想越不明白……………
B blitzen Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-12 #9 这样可能会简单一些 function Get4(callno: string): boolean; var temp: string; begin temp := copy(callno, Length(callno)-2, 2); if pos('4', temp)>0 or pos('44', temp) then result := true else result := fasle; end;
这样可能会简单一些 function Get4(callno: string): boolean; var temp: string; begin temp := copy(callno, Length(callno)-2, 2); if pos('4', temp)>0 or pos('44', temp) then result := true else result := fasle; end;
