เดลฟีช่วยได้ในประโยคเดียว

1. สร้างรหัสผ่านแบบสุ่ม (ควรมีประโยชน์มากกว่า) ฟังก์ชัน CreatePass:String;const MAX_LEN=10;var i: integer; s: string;begin Randomize; s:='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+'abcdefghijklmnopqrstuvwxyz'+ '0123456789'; := ''; สำหรับฉัน := 0 ถึง MAX_LEN-1 จะเริ่มต้นผลลัพธ์ := Result + s[Random(Length(s)-1)+1]; end;end;2. แปลงเลขทศนิยมให้เป็นฟังก์ชันเลขโรมัน DecToRoman(iDecimal: longint): string;const aRomans: array[1..13] of string = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M'); aArabic: array[1..13] ของจำนวนเต็ม = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);var i: จำนวนเต็ม;ผลลัพธ์เริ่มต้น := ''; สำหรับ i := 13 เหลือ 1 do ในขณะที่ (iDecimal >= aArabics[i]) จะเริ่มต้น iDecimal := iDecimal - aArabics[i]; result := result + aRomans[i]; end;end;PROcedure TForm1.Button1Click(Sender : TObject);เริ่มแสดงข้อความ(DecToRoman(5));end;3. การจัดรูปแบบการแสดงจำนวนเต็มโดยใช้ฟังก์ชัน FormatFloat สามารถแก้ปัญหาของคุณได้หลายอย่าง ตัวอย่างเช่น จัดรูปแบบ 1200000 เป็น 1,200,000 ขั้นตอนเอาต์พุต TForm1.Button1Click(Sender: TObject);var i:integer; s:string;begin i := 1200000; );จบ;4. คุณสามารถใช้ฟังก์ชัน ClearCommError เพื่อตรวจสอบว่าพอร์ตอนุกรมได้รับข้อมูลหรือไม่ cbInQue และ cbOutQue ในโครงสร้าง TcomStat สามารถช่วยรับรู้การตัดสินใจได้ 5. แปลงสี RGB เป็นฟังก์ชันคลาส TColor RGBToColor(R,G,B:Byte): TColor;begin Result:=B Shl 16 หรือ G Shl 8 หรือ R;end;6. แปลง TColor เป็นค่า RGB ขั้นตอน TForm1.Button1Click ( ผู้ส่ง: TObject); var สี: TColor; R, G, B: จำนวนเต็ม; เริ่มสี := clBlack; := สี และ $FF; G := (สีและ $FF00) shr 8; B := (สีและ $FF0000) shr 16; showmessage(inttostr(G)); (B));end;7. กล่องโต้ตอบเรียกดูคอมพิวเตอร์ใช้ ShlObj;ฟังก์ชัน BrowserForComputer(const winhandle : THANDLE; const title : string) : string;var BrowserInfo: TBrowseInfo; IDRoot: PItemIDList; Path: array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot); ZeroMemory(@เส้นทาง, MAX_PATH); ExploreInfo.hwndOwner := winhandle; BrowserInfo.ulFlags:= IDRoot; SHBrowseForFolder (BrowseInfo); สิ้นสุด;