Mengunakan proxy anonymously

silahkan masuk ek url

http://www.hidemyass.com/

CAPTCHA Generator With tipstricks.org

Captcha Generator With tipstricks.org
silahkan berkunjung ke

http://www.tipstricks.org/

Membaca File Text dari Delphi

Untuk membaca file Text dari program delphi
berikut adalah script nya

var:

var f1, f2 : TextFile;
ch : string;

Begin

assignfile(f1,'login.txt');
reset(f1);
readln(f1,ch);

MessageDlg(ch, mtWarning, [mbOK], 0);

end;

assignfile(f1,'login.txt'); --> membuka file text dengan nama login.txt
readln(f1,ch); -> membaca file tersebut dan dimasukan ke variabel ch
sehingga cariabel tersebut bisa ditampilkan

terima kasih

Konversi Bilangan Desimal ke Bilangan Romawi

Mengkonversikan bilangan desimal ke Romawi adalah lumayan susah
untung ada satu program guna mengkonversikan Bilangan desimal ke bilangan Romawi.
Adalah 

http://p4tkmatematika.org/permainan/Html/bantumath/RomanNumeralsConverter.htm


untuk konfersikan bilangan tersebut diatas


silahkan dicoba.

Perintah SQL pada Adoquery1 di Delphi

Berikut adalah perintah ADOQuery1 pada Delphi:

adoquery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
adoquery1.Active := true;


Penjelasan Script:
adoquery1.Active := false;
berfungsi menonaktifkan Component adoquery1

adoquery1.SQL.Clear;
membersihkan/menghapus script sql


adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
Memasukan script SQL

 adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
Memasukan pasing parameter

adoquery1.Active := true;
 aktifkan component adoquery1


Terima kasih