perpustakaan fungsi

Perpustakaan fungsi:

//Temukan string yang paling cocok dengan string target
fungsi MaxMatchStr(DestStr:String;Strs:array String):String;

//Hapus spasi di Teks
fungsi FmtText(Teks:String):String;

//Format angka floating point dan perbaiki kesalahan floating point.
function FmtFloat(Nilai:Diperpanjang;Digit:Bilangan Bulat=4):Ganda;

//Ganti substring di Str
prosedur GantiStr(var Str:String;const SourceStr,DestStr:String);

//Apakah ekspresi Ekspresi berisi item Item
fungsi IncludeItem(Ekspresi,Item:String):Boolean;

//Tampilkan kotak pesan
fungsi MsgBox(const Handle:THandle;Teks,Keterangan:String;
Bendera:Bilangan Bulat):Bilangan Bulat;

//menampilkan pesan
prosedur ShowMsg(Pengirim:TCustomForm;Pesan:String);

//Menampilkan kesalahan dan mengakhiri acara saat ini
prosedur ShowError(Pengirim:TCustomForm;Error:String);

//kesalahan tampilan
prosedur ErrorMsg(Pengirim:TCustomForm;Error:String);

//Tampilkan peringatan
procedure ShowWarning(Pengirim:TCustomForm;Peringatan:String);

//Baca nama dan nilai data registri
prosedur GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);

//Menulis data ke registri
procedure WriteValues(Registry:TRegistry;ValueNames:array of String;Values:array of Variant);

//Baca nilai string di registri
fungsi ReadRegistString(ARootKey:HKEY;Key,Nama:String;DefaultValue:String= ):String;

//Tulis nilai string ke registri
prosedur WriteRegistString(ARootKey:HKEY;Kunci,Nama,Nilai:String);

//Baca nilai integer di registri
fungsi ReadRegistInteger(ARootKey:HKEY;Key,Nama:String;DefaultValue:Integer=0):Integer;

//Tulis nilai integer ke registri
prosedur WriteRegistWord(ARootKey:HKEY;Key,Nama:String;Nilai:Integer);

//Baca nilai Boolean di registri
fungsi ReadRegistBool(ARootKey:HKEY;Key,Nama:String;DefaultValue:Boolean=False):Boolean;

//Tulis nilai boolean ke registri
prosedur WriteRegistBool(ARootKey:HKEY;Key,Nama:String;Nilai:Boolean);

//Mewakili tanggal dalam format Cina: XXXX tahun XX bulan XX hari
fungsi DateToChinese(ADate:TDate):String;

//Dapatkan nama mesin lokal
fungsi DapatkanNama Komputer:String;

//Dapatkan direktori file sementara
fungsi GetWinTempDir:String;

//Dapatkan direktori sistem
fungsi GetSystemDir:String;

//Buat nama file sementara
fungsi GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;