DELPHI DIV和MOD

procedure TForm1.Button1Click(Sender: TObject);var s:string;x:integer;i:char;begin for i:='B' to 'Z' do //因为A盘是3.5英寸软件 也算是可移动的 ，所以先排除在外 begin s:=i+':\';x := GetDriveType(pansichar(s));//得到盘的类型 if x=2 then begin showmessage(i+' ...

varidata,a,b,c:integer; //输入 idata (三位整数), a 百位，b 十位， c 个位beginc:=idata mod 10; //取余 得个位b:=(idata div 10) mod 10; //取百十，再取余 得十位a:=idata div 100; //取百 得百位showmessage('百位:'+inttostr(a)+';'+'十位:'+int...

PMI.dx := P.X * C_n_VirtualWidth div Screen.Width;PMI.dy := P.Y * C_n_VirtualHeight div Screen.Height;end;该函数涉及到一个窗口句柄，它的获得可以通过调用EnumWindow枚举、调用FindWindow查找，也可以设为通过其它方法了解到的立即数（如Spy++等），一般来说，发送消息是要指定向谁...

for k:= 2 to i div 2 do if i mod k=0 then sum:=sum+k;if i=sum then result:= true else result:=false;end;begin result:=tstringlist.Create;result.Clear;repeat a:=1;until (a>0) and (b>0) and (b>a);for i:= a to b do if ss(i)then result.Add(inttostr(...

until IsNumeric(s)and (strtoint(s)<=100)and((strtoint(s) mod 2)=1);n:=strtoint(s);k:=1;i:=1;j:=n div 2+1;matrix[i,j]:=k;for k:=2 to n*n do begin tempi:=i;tempj:=j;if j=n then j:=1 else inc(j);if i=1 then i:=n else dec(i);if ...

Mp3size:=MediaPlayer1.Length div 1000; minutesMax:=Trunc(Mp3size/60); //分 SecondMax:= Mp3size mod 60; //秒 length 获取的是毫秒。注意

Click(Sender: TObject); var newbmp:TBitmap; i j bmpheight bmpwidth:integer; xgroup xcount:integer; begin newbmp:= TBitmap Create; newbmp Width:=image Width; newbmp Height:=image Height; bmpheight:=image Height; bmpwidth:=image Width; xgroup:= ; xcount:=bmpheight div x...

楼上两位都错！ 没错楼主这样来用blockread是正确是，但错是错在最后 一个数据包的处理没做好 BlockNum := Flen div BlockLen ;BlockRem := Flen mod BlockLen ;这两句中的其中这一句BlockRem := Flen mod BlockLen ;就是得出最后一个包的实际大小的，用socket传输文件最后一个数据包一定要按...

如何用treeview实现树型结构目录,表里有fatherID字段,我是delphi新手,有人能给我详细说一下吗我的...RootNode3:=TreeView1.Items.Add(nil,'情况');RootNode4:=TreeView1.Items.Add(nil,'位置');

表达式round( ) mod trunc( )的值是（ ） A B C D E 下列常量定义合法的是（ ） A CONST width= ; B CONST case=&# ; &# ;; C CONST A= ; D CONST century=year div ; E CONST <> ;以下运算符中运算优先级最高的是（ ） A + B OR C >= D DIV E 已知a b c d是同...