Fungsi-fungsi Delphi
1. DirectoryExist
Unit
SysUtils
Syntax
function DirectoryExists(const Directory: string): Boolean;
Menentukan apakah direktori yang ditetapkan dalam parameter Directory benar-benar ada. Jika direktori tersebut ada fungsi bernilai True, jika tidak bernilai False. Jika nama direktori dinyatakan secara lengkap (full path) maka fungsi DirectoryExist ini akan mencari direktori tersebut pada path yang ditetapkan. Jika tidak (hanya namanya saja), maka pencarian hanya pada direktori yang sekarang. Unit FileCtrl juga mempunyai fungsi DirectoryExist, tetapi versi unit FileCtrl sering menimbulkan peringatan, jadi sebaiknya gunakan unit SysUtils.
2. CreateDir
Unit
SysUtils
Syntax
function CreateDir(const Dir: string): Boolean;
Membuat sebuah direktori baru. Bernilai True jika fungsi ini berhasil membuat sebuah direktori baru dan jika gagal maka pesan kesalahan akan muncul.
3. SetCurrentDir
Unit
SysUtils
Syntax
function SetCurrentDir(const Dir: string): Boolean;
Menetapkan direktori yang sekarang. Bernilai True jika direktori yang sekarang dapat diubah, jika gagal maka pesan kesalahan akan terjadi.
4. GetCurrentDir
Unit
SysUtils
Syntax
function GetCurrentDir: string;
Menghasilkan nama direktori yang sekarang.
5. FileExists
Unit
SysUtils
Syntax
function FileExists(const FileName: string): Boolean;
Menguji keberadaan suatu file. Fungsi ini menghasilkan nilai True jika file yang ditetapkan dalam fungsi FileExist benar-benar ada. Jika file tersebut tidak ada, fungsi memberikan nilai False. Contoh kode program berikut memunculkan pesan konfirmasi sebelum menghapus file.
if FileExists(FileName) then
if MessageDlg('Anda akan menghapus '+ExtractFileName(FileName)+'?'),
mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then
DeleteFile(FileName);
6. SelectDirectory
Unit
FileCtrl
Syntax
function SelectDirectory(const Caption: string; const Root: WideString;
out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts;
HelpCtx: Longint): Boolean; overload;
Memunculkan suatu kotak dialog yang mengijinkan user memasukan sebuah nama direktori. Jika menggunakan syntax yang pertama, kotak dialog Directory Browser akan ditampilkan. Parameter Caption menetapkan judul kotak dialog. Parameter Root menetapkan direktori root dari direktori yang dicari, misalnya ‘D:\Data’, maka direktori root-nya adalah ‘D:\’. Direktori yang dipilih dimasukkan dalam parameter Directory. Contoh prosedur berikut ini akan memunculkan kotak dialog Directory Browser pada drive D ketika tombol SpeedButton1 ditekan dan direktori yang dipilih akan ditampilkan dalam komponen Edit1.
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
NewDir: WideString;
begin
if SelectDirectory('Select a Directory', 'D:\', NewDir) then
Edit1.Text := NewDir;
end;
Syntax yang kedua akan memanggil kotak dialog Select Directory. Nama direktori yang diisikan sebagai nilai parameter Directory menjadi direktori yang sekarang ketika kotak dialog tersebut muncul. Parameter HelpCtx adalah nomor ID help. Jika parameter Option diset dengan nilai kosong (bernilai []), user hanya dapat memilih direktori yang benar-benar ada. Tidak ada kotak edit yang dapat digunakan bagi user untuk memasukkan nama direktori yang baru. Nilai-nilai yang dapat diset pada parameter Option adalah :
Nilai Artinya
sdAllowCreate Mengijinkan pengguna untuk mengetikkan nama direktori yang tidak ada. Option ini tidak membuat suatu direktori, aplikasi akan membaca nama direktori yang dipilih dan harus dibuat dulu jika diinginkan.
sdPerformCreate Digunakan hanya jika dikombinasikan dengan sdAllowCreate. Jika pengguna memasukkan nama direktori yang tidak ada, direktori tersebut akan dibuat.
sdPrompt Digunakan hanya jika dikombinasikan dengan sdAllowCreate. Menampilkan kotak pesan yang menginformasikan kepada pengguna bahwa direktori yang dimasukkan dalam kotak edit tidak ada dan menanyakan apakah direktori tersebut akan dibuat. Jika user memilih OK, maka direktori tersebut akan dibuat kalau nilai sdPerformCreate juga dimasukkan. Jika tidak maka direktori tersebut tidak dibuat.
Kode program berikut ini akan memunculkan kota dialog Select Directory ketika tombol Button1 ditekan dan direktori yang dipilih akan ditampilkan dalam komponen Edit1.
uses FileCtrl;
Procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'D:\Data';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Edit1.Text := Dir;
end;
7. FloatToStrF
Unit
SysUtils
Syntax
function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer) string; overload;
function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer; const FormatSettings:
TFormatSettings): string; overload;
Mengkonversi nilai bertipe data Float menjadi bertipe String. Parameter Value merupakan nilai yang akan dikonversi. Parameter Precision menetapkan presisi nilai yang diberikan, nilainya boleh 7 atau kurang untuk nilai bertipe Single, 15 atau kurang untuk nilai bertipe Double dan 18 atau kurang untuk nilai bertipe Extended. Sedang parameter Digits dan Format bersama-sama menentukan format nilai dalam tipe String. Format-format nilai yang diijinkan dapat dilihat pada tabel berikut ini.
Format Definisi
ffGeneral Format angka umum. Nilai dikonversi menggunakan format ‘titik’ atau format ilmiah. String hasil konversi menggunakan format ‘titik’ jika jumlah digit di sebelah kiri tanda desimal nilainya kurang dari atau sama dengan presisi yang ditetapkan, dan jika nilainya lebih besar dari atau sama dengan 0,00001. Jika tidak, String hasil konversi menggunakan format ilmiah, dan parameter Digit menentukan jumlah digit minimum dalam eksponensial (antara 0 sampai 4)
ffExponent Format ilmiah. Nilai yang dikonversi ke dalam tipe String berformat ‘-d,ddd..E+dddd’. String hasil konversi diawali dengan tanda minus jika angkanya adalah negatif, dan satu digit di depan tanda desimal. Jumlah digit sebelum eksponensial diberikan dalam parameter Precision. Karakter eksponensial ‘E’ selalu diikuti dengan tanda minus atau plus dan sampai pada empat digit. Parameter Digit menentukan jumlah digit minimum dalam eksponensial (antara 0 sampai 4)
ffFixed Format ‘titik’. Nilai yang dikonversi ke dalam tipe String berformat ‘-ddd,ddd’. String hasil konversi diawali dengan tanda minus jika angkanya adalah negatif, dan sedikitnya satu digit di depan tanda desimal. Jumlah digit setelah tanda desimal diberikan dalam parameter Precision, harus antara 0 sampai 18. Jika jumlah digit di sebelah kiri tanda desimal nilainya lebih besar atau sama dengan presisi yang ditetapkan, format yang digunakan adalah format ilmiah.
ffNumber Format angka. Nilai yang dikonversi ke dalam tipe String berformat ‘-d.ddd.ddd,ddd’. Format ffNumber hampir sama dengan format ffFixed kecuali String hasil konversi yang berisi pemisah ribuan.
ffCurrency Format mata uang. Nilai yang dikonversi ke dalam tipe String mewakili jumlah mata uang. Konversi dikendalikan oleh variabel global CurrencyString, CurrencyFormat, NegCurrFormat, ThousandSeparator, dan DecimalSeparator, semuanya diinisialisaikan dalam format mata uang pada Control Panel Window. Jumlah digit setelah tanda desimal diberikan dalam parameter Digit, harus antara 0 sampai 18.
8. IntToStr
Unit
SysUtils
Syntax
function IntToStr(Value: Integer): string; overload;
function IntToStr(Value: Int64): string; overload;
Mengkonversi nilai bertipe data Integer menjadi bertipe String.
9. FormatDateTime
Unit
SysUtils
Syntax
function FormatDateTime(const Format: string; DateTime: TDateTime):
string; overload;
function FormatDateTime(const Format: string; DateTime: TDateTime;
const FormatSettings: TFormatSettings): string; overload;
Memformat nilai TDateTime yang diberikan dalam parameter DateTime dengan menggunakan format yang diberikan dalam konstanta Format. Syntax fungsi FormatDateTime yang pertama sebenarnya tidak aman karena menggunakan informasi lokal yang terdapat dalam variabel global. Sedang yang kedua mengacu pada informasi lokal yang terdapat dalam parameter FormatSettings.
10. MessageDlg
Unit
Dialogs or QDialogs
Syntax:
function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
function MessageDlg(const Msg: WideString; DlgType:
TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint;
DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil):
Integer; overload;
function MessageDlg(const Caption: WideString; const Msg:
WideString; DlgType: TMsgDlgType; Buttons:
TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn =
mbNone; Bitmap: TBitmap = nil): Integer; overload;
function MessageDlg(const Caption: WideString; const Msg:
WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;
HelpCtx: Longint; X, Y: Integer; DefaultBtn: TMsgDlgBtn =
mbNone; Bitmap: TBitmap = nil): Integer; overload;
function MessageDlg(const Caption: WideString; const Msg:
WideString; DlgType: TMsgDlgType; Button1, Button2,
Button3: TMsgDlgBtn; HelpCtx: Longint; X, Y: Integer;
DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil):
Integer; overload;
Menampilkan sebuah kotak pesan pada layar monitor dan perlu tanggapan dari user. Parameter Caption merupakan judul kotak pesan jika parameter DlgType bernilai mtCustom. Parameter Msg menjadi isi pesan yang akan ditampilkan. Parameter DlgType mengindikasikan tujuan kotak dialog tersebut. Parameter Buttons mengindikasikan tombol apa yang akan ditampilkan dalam kotak pesan. Untuk kotak pesan dengan tiga tombol, gunakan syntax yang berisi parameter Button1, Button2, dan Button3. Parameter HelpCtx menetapkan Context ID untuk topik help yang akan ditampilkan ketika pengguna menekan tombol Help atau menekan F1 selagi kotak pesan sedang ditampilkan. Parameter X, Y menetapkan koordinat layar dimana kotak pesan ditampilkan. Nilai -1 untuk parameter X atau Y berarti kotak pesan dapat ditampilkan dimanapun. Parameter DefaultBtn menetapkan tombol mana yang akan menjadi tombol default dari kotak pesan tersebut. Jika parameter DefaultBtn bernilai mbNone maka tidak ada tombol default. Parameter Bitmap adalah gambar yang akan ditampilkan di atas pesan kotak pesan. Jika parameter Bitmap bernilai nil tidak ada gambar yang ditampilkan kecuali jika parameter DlgType bernilai mtConfirmation. Daftar nilai TMsgDlgBtn berikut untuk setiap tombol yang dapat ditampilkan dalam kotak pesan dan nilai yang bersesuaian jika pengguna menekan tombol :
Nilai TMsgDlgBtn Nilai yang Bersesuaian
mbOk mrOk
mbCancel mrCancel
mbYes mrYes
mbNo mrNo
mbAbort mrAbort
mbRetry mrRetry
mbIgnore mrIgnore
mbAll mrAll
mbNoToAll mrNoToAll
mbYesToAll mrYesToAll
11. MessageBox
Syntax:
function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
Menampilkan kotak pesan yang ditentukan oleh user. Nilai parameter Text merupakan isi pesan yang dapat lebih dari 256 karaketer. Pesan yang panjang secara otomatis akan dipotong ke bawah dalam kotak pesan. Parameter Caption merupakan judul yang akan ditampikan dalam title bar kotak pesan. Parameter Caption dapat lebih dari 256 karakter dan akan tetap ditampilkan lurus. Parameter Flag menentukan tombol apa yang akan ditampilkan dalam kotak pesan dan fungsinya. Tabel berikut ini menjelaskan arti masing-masing nilai parameter Flag. Nilai-nilai tersebut dapat dikombinasikan.
Nilai Arti
MB_ABORTRETRYIGNORE Kotak pesan terdiri atas tiga tombol : Abort, Retry, dan Ignore
MB_OK Kotak pesan terdiri atas sebuah tombol : Ok, merupakan nilai default parameter Flag.
MB_OKCANCEL Kotak pesan terdiri atas dua tombol : Ok, dan Cancel
MB_RETRYCANCEL Kotak pesan terdiri atas dua tombol : Retry, dan Cancel
MB_YESNO Kotak pesan terdiri atas dua tombol : Yes, dan No
MB_YESNOCANCEL Kotak pesan terdiri atas tiga tombol : Yes, No, dan Cancel
Daftar berikut menunjukkan nilai yang dihasilkan dari fungsi MessageBox :
Nilai Nilai Numerik Arti
IDOK 1 Pengguna memilih tombol Ok
IDCANCEL 2 Pengguna memilih tombol Cancel
IDABORT 3 Pengguna memilih tombol Abort
IDRETRY 4 Pengguna memilih tombol Retry
IDIGNORE 5 Pengguna memilih tombol Ignore
IDYES 6 Pengguna memilih tombol Yes
IDNO 7 Pengguna memilih tombol No
12. ShowMessage
Unit
Dialogs or QDialogs
Syntax
function ShowMessage(const Msg: string);
function ShowMessage(const Msg: WideString); overload;
function ShowMessage(const Msg: WideString; Params: array of const); overload;
Untuk menampilkan sebuah kotak pesan sederhana dengan sebuah tombol Ok. Nama file aplikasi akan ditampilkan sebagai judul kotak pesan. Parameter Msg merupakan teks pesan yang akan ditampilkan. Parameter Params mendaftar nilai yang dimasukkan ke dalam parameter Msg jika teks pesan mengandung format tertentu. Jika pengguna menekan tombol Ctrl+C dalam kotak pesan, teks pesan akan disalin dalam clipboard.