Hari ini selasa 12 agustus 2008

sumber : http://wishknew.multiply.com/journal/item/118/classIndonesianDialog var tt,r,l : integer; sNumRev : string; begin tt := MessageDlg('Revisi invoice ini?',mtConfirmation,[mbYes,mbNo],0); if tt = 6 then One way: This approach works for all Delphi versions. Previously, I compiled a stringtable resource into my exe to do multi-language apps. I have modified this to be quick and simple for any number of languages. remember, Delphi creates it's own .RES file and the INCLUDE file is loaded in there as a string resource. This is how I used it for multi-language dialogs with the changes. Here is some example code, give it a try: unit French1; interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, Dialogs; {$INCLUDE french.txt} { Here is the way the include file for this project looks: In French: called french.txt const sAttention = 'Attention'; sCondition = 'Pas de condition Selectionnée'; sAlways = 'Toulours'; sDelete = ...

Cara menghitung beda hari pada tanggal. Deklarasi fungsi: function SelisihTanggal(TglOld,TglNew: TDate): Integer; begin Result:= Trunc(TglNew - TglOld); end; Contoh implementasi: procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= IntToStr(SelisihTanggal(DateTimePicker1.Date, DateTimePicker2.Date)); end; suber