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


by myarthur80 in Articles more 13 years ago 2024
Pertanyaan/Permasalahan:
Bagaimana caranya supaya bisa menambahkan angka nol '0' didepan sebuah angka dengan jumlah digit tertentu ??
Jadinya akan tampil seperti contoh berikut
» jika max jumlah digit 5 => 00123
» jika max jumlah digit 3 => 012

Apakah ada fungsi standar Delphi yang bisa melakukan hal ini ?
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.
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com