Mudah-mudahan tip ini dapat membantu anda dalam membuat password yg acak (random)
function RandomPassword(PLen: Integer): string; var str: string; begin Randomize; //caracter yang akan muncul (secara random) str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; Result := ''; repeat Result := Result + str[Random(Length(str)) + 1]; until (Length(Result) = PLen) end; |
untuk melihat hasilnya, disini saya pake komponen label dan button
procedure TForm1.tbl_BuatPasswordClick(Sender: TObject); begin //merandom 10 caracter utk dijasikan password lbl_Hasil.Caption := RandomPassword(10); end; |
pada saat anda mengklik button tsb, nanti pada label akan muncul 10 caracter yg random sepert ini : kqewxOIfhK
Silahkan dicoba.
Random Articles
- Trap database exception message
- Mematikan Fungsi Ctrl+Al+Del
- Cara mudah menambahkan angka nol '0' didepan sebuah nilai angka
- Mengaktifkan Return key in a TWebbrowser
- Walkthrough Android Project
- POC: Smarter Lazarus/FreePascal with OpenAI and FastPlaz
- Comport
- Format Message Dialog
- contoh sederhana source code Program untuk client server
- Folder SIZE
AI Forward

๐ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago