Angka 0 Disebelah Kiri Nilai contoh : 00025

Oleh : Ristone_02
Post : Kamis, 18 Juni 2009

Angka 0 Disebelah Kiri Nilai (contoh : ‘00025’)

Dalam pembuatan program menggunakan Borland Delphi, terkadang kita menginginkan sebuah kode memenuhi maximal panjang karakter yang telah kita tentukan. Misalnya sebut saja NPM (5 karakter = xxxxx).

Tapi dalam pemberian NPM ketika kita akan memberi NPM 00015 kita hanya ingin mengetikkan 15 saja tanpa harus menulis tiga angka 0(nol) sebelumnya. (00015 kita hanya mengetikkan 15 saja). Berikut salah satu contoh listing programnya yang ditulis dalam sebuah button:

procedure TForm1.Button1Click(Sender: TObject);

var hasil:STRING;

      n:INTEGER;

begin

n:=StrToInt(Edit1.Text);

CASE Length(Trim(IntToStr(n))) of

                        1:hasil:='0000'+Trim(IntToStr(n));

                        2:hasil:='000'+Trim(IntToStr(n));

                        3:hasil:='00'+Trim(IntToStr(n));

                        4:hasil:='0'+Trim(IntToStr(n));

                        5:hasil:=Trim(IntToStr(n));

            END;

            Edit2.Text:=hasil;

end;