Skip to main content

Delphi – variabel di masukkan ke messageBox

Kadang kala dalam menuliskan code program perlu menampilkan pesan dalam sebuah MessageBox, code program berikut adalah code program delphi yang memanggil MessageBox secara khusus yaitu dengan memanfaatkan variable atatu meletakkan variable didalam MessageBox. Code tersebut sangat bermanfaat dalam pembuatan MessageBox dengan nilai/value yang dinamis.

Sintaxnya adalah sebagai berikut:

Application.MessageBox(PChar(Format('x * y = %s', [result])), 'this is title', MB_ICONINFORMATION);

Contoh program, silahkan di compile dan lihat pesan dari MessageBox yang ditampilkan.

var 
  sText : string; 
begin
  //Just 1 data item
  ShowMessageFmt('%s', ['Hello']);// A mix of literal text and a data   item 
  ShowMessageFmt('String = %s', ['Hello']);
  sText := 'This is for test.';// Examples of each of the data types
  ShowMessageFmt('Decimal          = %d', [-123]); 
  ShowMessageFmt('Exponent         = %e', [12345.678]);   
  ShowMessageFmt('Fixed            = %f', [12345.678]);   
  ShowMessageFmt('General          = %g', [12345.678]);   
  ShowMessageFmt('Number           = %n', [12345.678]);    
  ShowMessageFmt('Money            = %m', [12345.678]);   
  ShowMessageFmt('Pointer          = %p', [addr(sText)]);   
  ShowMessageFmt('String           = %s', ['Hello']);   
  ShowMessageFmt('Unsigned decimal = %u', [123]);   
  ShowMessageFmt('Hexadecimal      = %x', [140]); 
end; 

pada kode diatas terdapat atribut pengganti dalam tanda “%” yang akan mengembalikan type data tertentu sesuai aturan yang telah ditetapkan. type tersebuta dapat dilihat dalam pada list berikut

%d  = Decimal (integer) 
%e  = Scientific 
%f  = Fixed 
%g  = General 
%m  = Money 
%n  = Number (floating) 
%p  = Pointer 
%s  = String 
%u  = Unsigned decimal 
%x  = Hexadecimal 

Lebih lengkap tentang type data dapat mengunjungi link berikut https://mesinketik.com/type-data-pada-delphi/

Lebih lengkap tentang atribut pengganti dapat mengunjungi link berikut https://www.freepascal.org/docs-html/rtl/sysutils/format.html

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *