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 :

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.

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 :

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.

Daftar berikut menunjukkan nilai yang dihasilkan dari fungsi MessageBox :

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.

Nuwun…