delphi一句话帮助之二

时间:2010-03-03 17:32:24  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:bsp;  i: integer;      s: string;begin      Randomize;      s:='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'abcdefghijklmnopqrstuvwxyz'+ '0123456789';      Result := '';&nbs...
  正文:1.       产生随机密码(应该比较有用)

   function CreatePass:String;

const

      MAX_LEN=10;

var

      i: integer;

      s: string;

begin

      Randomize;

      s:='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'abcdefghijklmnopqrstuvwxyz'+ '0123456789';

      Result := '';

      for i := 0 to MAX_LEN-1 do

      begin

        Result := Result + s[Random(Length(s)-1)+1];

      end;

end;

2.       十进制数字转换成罗马数字

   function DecToRoman(iDecimal: longint): string;

const

      aRomans: array[1..13] of string = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC',

         'C', 'CD', 'D', 'CM', 'M');

      aArabics: array[1..13] of integer = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400,

         500, 900, 1000);

var

      i: integer;

begin

      result := '';

      for i := 13 downto 1 do

        while (iDecimal >= aArabics[i]) do

        begin

           iDecimal := iDecimal - aArabics[i];

           result := result + aRomans[i];

        end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

      showmessage(DecToRoman(5));

end;

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;

end;

6.       把TColor转换为RGB值

   procedure TForm1.Button1Click(Sender: TObject);

var

      Color: TColor;

      R, G, B: Integer;

begin

      Color := clBlack;

      R := Color and $FF;

      G := (Color and $FF00) shr 8;

      B := (Color and $FF0000) shr 16;

      showmessage(inttostr(R));

"delphi一句话帮助之二"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13026.html


关键字:

关于《delphi一句话帮助之二》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td