Arsip: Cara mudah menambahkan angka nol '0' didepan sebuah nilai angka

Jawaban:
Sebenarnya Delphi secara sederhana dapat menjawab pertanyaan diatas
Yup, kita dapat menggunakan fungsi standar "Format" string untuk menjawab hal ini, tentunya dengan sedikit "sentuhan" :D he5

Untuk gambaran lebih jelas, silahkan lihat code berikut :
*

function GiveLeadingZero(const aNumber, aMaxDigit: Integer): String; var formatSpecifier: String; begin formatSpecifier := Format('%%.%dd', [aMaxDigit]); // formatSpecifier will result like this: '%.5d' if aMaxDigit=5 Result := Format(formatSpecifier, [aNumber]); end; procedure TForm1.Button1Click(Sender: TObject); var aNumber: Integer; begin if (TryStrToInt(Edit1.Text, aNumber)) then Edit2.Text := GiveLeadingZero(aNumber, 5) else ShowMessage('Value in Edit1 is not a valid integer value'); end; Syntax Highlighted with https://pascal-id.org/syntax

Untuk menggunakan contoh code diatas,
letakkan dua komponen TEdit pada Form dengan sebuah TButton untuk mengeksekusi code diatas


Sederhana bukan ??
^_^ \/

artikel ini juga terdapat dalam blog saya di sini
Juga terdapat artikel-artikel lain seputar Delphi yang dapat Anda jumpai di sana.