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

track Kiriman dari China Post

Jika anda ingin belanja lewat internet secara online

dan mengunakan jasa pengiriman China Post

silahkan anda track mengunakan url sbb:

http://intmail.183.com.cn/item/trace/itemTraceAction.do?action=Enter

 

Masukan No Track dan masukan kode verification

dan klik TRACK

Terima kasih semoga bermanfaat

Membuat Kompresi ISO

Kadang kala kita membutuhkan Kompresi ISO

Ada program freeware untuk membuat kompresi ISO yaitu Free ISO Creator 

anda bisa mendownload di alamat 

http://www.minidvdsoft.com/isocreator/ 

 

Download di alamat tersebut dan jalankan

Lebih Detail ... lihat tutorial berikut: 

http://www.minidvdsoft.com/isocreator/how_to_use_free_iso_creator.html

Download VB.Net Express 2010

Berikut video cara download VB.Net Express 2010



Terima kasih semoga bermanfaat

Export ASP Classic to Power Point

 Export  ASP Classic ke Power Point

<%
Response.Buffer = true
Response.ContentType = "application/vnd.ms-powerpoint"
Response.AddHeader "content-disposition", "inline; filename=nombre.pps"
Response.write "<TABLE><TR><TD> Surabaya </TD> </TR></TABLE>"
Response.write "<TABLE><TR><TD> Indonesia</TD> </TR></TABLE>"
Response.Flush
Response.End
%>

Mendapatkan Tagihan Listrik ke eMail setiap awal bulan

Dapatkan tagihan PLN setiap awal bulan ke email anda, 
dengan cara sbb: 
masuk ke web pln: 

http://www.pln.co.id/ 

kemudian masukkan 12 Digit ID Pelanggan Anda 

dan klik menu cek tagihan 

jika sudah muncul tagihan anda bulan berjalan 

kemudian klik menu PLN-e-Billing 
lantas masukan email anda 
dan klik simpan. 

jika sudah berhasil, 

maka anda akan mendapatkan informasi tagihan setiap awal bulan 
lumayan untuk mengingatkan tagihan pln kita. 

semoga bermanfaat

Free Internet Captcha

Captcha internet dirancang untuk melindungi bentuk-bentuk html Anda dimana pengguna mengirim informasi ke pengguna lain atau database. ada satu script captcha gratis baik untuk script PHP atau ASP Classic alamat url nya di : http://www.icaptcha.com/

Klik menu config