# delphi一句话帮助终

1.       产生随机密码(应该比较有用)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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.       格式化整数显示

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

s:string;

begin

i := 1200000;

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

showmessage(s);

end;

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

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));

showmessage(inttostr(G));

showmessage(inttostr(B));

end;

7.       浏览计算机对话框

uses ShlObj;

function BrowseForComputer(const winhandle : THANDLE; const title : string) : string;

var

BrowseInfo: TBrowseInfo;

IDRoot: PItemIDList;

Path: array[0..MAX_PATH] of Char;

begin

SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot);

ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo));

ZeroMemory(@path, MAX_PATH);

BrowseInfo.hwndOwner := winhandle;

BrowseInfo.pidlRoot := IDRoot;

BrowseInfo.lpszTitle := PChar(title);

BrowseInfo.pszDisplayName := @path;

BrowseInfo.ulFlags:=BIF_BROWSEFORCOMPUTER;

SHBrowseForFolder(BrowseInfo);

end;

• 本文已收录于以下专栏：

举报原因： 您举报文章：delphi一句话帮助终 色情 政治 抄袭 广告 招聘 骂人 其他 (最多只允许输入30个字)