Menjumlahkan Nilai Memo Pada FastReport

Request: Delphi Coding Tutorial

Salam knal mas joko… Saya Nas, punya masalah di fastreport mas, gmn cara menjumlahkan nilai yg ada di memo, misal hasil dari memo1 + hasil memo2 = memo3. makasih bantuannya mas…

Pertama, kita buat sebuah form dengan sebuah komponen FastReport (TfrxReport) di atasnya. Sebut saja namanya FrxReport1. Kira-kira tampilannya seperti ini:

Klik dua kali pada frxReport1. FastReport Editor akan diaktifkan dengan sebuah report baru yang masih kosong. Silahkan tambahkan tiga buah frxMemo ke page kosong ini.

Nama ketiga memo, mulai dari yang pertama adalah Memo1, Memo2, Memo3. Kini kita akan menjumlahkan nilai Memo1 dan Memo2 dan menampilkan hasilnya di Memo3.

Pindah ke tab Code.

Pilih objek Memo3. Dari Object Dropdown pada Object Inspector.

Klik ganda pada event OnBeforePrint.

Ketikkan kode seperti berikut.

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
hasil: integer;
begin
hasil :=  StrToInt(Trim(Memo1.Text)) + StrToInt(Trim(Memo2.Text));
Memo3.Text := IntToStr(hasil);
end;

begin

end.

Kini hasilnya dapat dilihat. Tekan F9 untuk melakukan preview.

Pertanyaan, bagaimana jika angka pada memo-memo di atas adalah pecahan, bukan integer? Tentu saja, kita harus mengganti tipe data integer menjadi double (tipe pecahan pada Pascal) dan mengganti IntToStr menjadi FloatToStr. Demikian juga, StrToInt menjadi StrToFloat. Lihat perbedaan pada kode berikut:

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
 hasil: Double;
begin
 hasil :=  StrToFloat(Trim(Memo1.Text)) + StrToFloat(Trim(Memo2.Text));
 Memo3.Text := FloatToStr(hasil);
end;

begin

end.

Bila dijalankan, kita memperoleh hasil:

Saya sengaja tidak melibatkan database di sini. Meskipun begitu, Anda tetap dapat menerapkan cara ini pada FastReport yang menggunakan database sebagai sumber datanya.

Selamat berkreasi. Bila ada masalah, silahkan hubungi om saya, Uncle Google 🙂