Menampilkan Text Memo Fast Report Dari Memo Edit Delphi

Fast Report

Selamat datang blogger setelah saya post Membuat Perhitungan Denda Berdasarkan Waktu Pada Delphi, Untuk post kali ini saya membagigak tutorial Menampilkan Text Memo Fast Report Dari Memo Edit Delphi, Tentunya sudah tidak asing lagi buat para master programer :),

tapi siapa tau dari temen-temen yang belum tau atau sedang belajar menjadi programer seperti saya heeheh, nah pada kesempatan ini saya membuat post tentang suatu komponen yang tidak pernah ketinggalan pada sebuah program yaitu komponen Reports sebuah komponen yang menciptakan suatu laporan data dari program berbasis database.

Saya menggunakan komponen Fast Reposts tapi pada kesempatan kali ini saya tidak membahas lebih dalam mengenai komponen ini tapi lebih ke fungsi dari komponen ini.

Nah mungkin sobat sekalian yang lagi mencari refrensi bagai mana cara  Menampilkan tex memo pada fast report dari memo edit delphi, Kadang hal sederhana ini sering di lupakan bahkan ada yang belum mengerti,

disaat kita membuat sebuah laporan pada program yang kita buat adakalnya kita membutuhkan fungsi memasukan data memo pada fast report yang bersifat Opsional atau suatu isi data yang dapat di rubah sesuai keinginan user.

Nah di situlah kegunaan judul dari postingan kali ini, Kembali ke poin utama.

1. Masukan sorce Code di bawah pada komponen Button Fast Report. 

[
procedure TFormDemo.ButtonReportViewClick(Sender: TObject);
var
OKFMemo: TfrxMemoView;
begin
OKFMemo := Frx_Anggota.FindObject('Memo_Judul') as TfrxMemoView;
OKFMemo.Text := StringReplace(Memoedit.Text, '%my_str%', 'new string', [rfReplaceAll]);
Frx_Anggota.ShowReport(True);
end;
]

Atau gunakan sorce Code ini

[
procedure TFormDemo.ButtonReportViewClick(Sender: TObject);
var
OKFMemo : TfrxMemoView;
Komponen: TfrxComponent;
begin
Komponen := Frx_Anggota.FindObject('Memo_Judul');
if Komponen is TfrxMemoView then
begin
OKFMemo := Komponen as TfrxMemoView;
OKFMemo.Text:= StringReplace(Memoedit.Text, '%my_str%', 'new string', [rfReplaceAll]);
Frx_Anggota.ShowReport(True);
end;
]

• Penjelasan

Memoedit.Text := Memo edit pada From delphi
Memo_Judul    := Memo pada Fast Repost

 Oke sekian dulu ya sobat semoga bermanfaat, Wasalam.