程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi一句話幫助終

delphi一句話幫助終

編輯:Delphi
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));       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;  
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved