coba diliat lg mod trit ini http://www.kaskus.co.id/showthread.php?t=6729499 pantes gak di forum programming..
nyante gan ane devil baek kok :D tergantung gan,misal agan bkin app pake db mysql(taro di server) libmysql.dll nya kan kudu di deploy di client, atau kalo pake ClientDataSet midas.dll nya musti ngikut jga... kalo maksudnya bikin (shared library) *.dll sendiri balik lg ke tujuan nya, - mau sekeda...
hm hm hmmmm idiih mangstap ,terjawab sudah kan mod :D terusan dari yg ini kali ya? ane update dolo ah :ngacir2
bikin aja overload procedure nya sendiri misal unit EkadpDialogs; uses Dialogs,SysUtils; Procedure ShowMessage(Const AnIntegerMsg : Integer);Overload; implementation Procedure ShowMessage(Const AnIntegerMsg : Integer); begin ShowMessage(IntToStr(AnIntegerMsg)); end; si unit ini bisa dipake ber...
1. setau ane gak ngaruh selama OS yg dipake 32bit bukan 64bit 2. itu mah salah programmernya gan :maho
1. setau ane gak ngaruh selama OS yg dipake 32bit bukan 64bit 2. itu mah salah programmernya gan :maho
maksudnya si ADOQuery(klo pake ADO) udah di open/active := true; ane nanya dulu deh fungsinya property interval di objeck timer buat apa? dicoba aja dulu code yg td..
programmer delphi:nohope:.. //pastikan query udah di open var temp : integer; begin Randomize; temp := random(Query.RecordCount); Query.recno := temp; //kalo gak salah recno or record lupa hardisk abis jebol belum install delphi EdtNama.Text := Query.Fields.AsString;// EdtHape.Text := Query.Fie...
oooh maksudnya begitu,yg bikin ane gak ngerti itu timer buat apaan :ngakak caranya sama pake random() tp parameter yg dimasukin adl recordcount dari database,kalo yg keluar misalnya record number 11 tinggal di tampilin filed no hape nya ke object edit .. kebayang kan?sory lg males ngetik coding ...
ni script yg coba ane buat,. unit acak; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; acak: TButton; s...
