delphi一句话帮助终[3]

使用formatfloat函数可以解决你很多问题。例如把1200000格式化为1,200,000输出

procedure tform1.button1click(sender: tobject);

var

  i:integer;

  s:string;

begin

  i := 1200000;

  s := formatfloat('#,0', i);

  showmessage(s);

end;

4.       判断串口是否收到了数据可以使用clearcommerror函数，tcomstat结构体中cbinque，cboutque可以帮助实现判断。

5.       rgb颜色转换为tcolor类

   function rgbtocolor(r,g,b:byte): tcolor;

begin

      result:=b shl 16 or

             g shl 8 or

             r;