aku mau tanya neh tentang delphi untuk keperluan enkripsi, langsung aja ya : 1. gimana caranya untuk menampilkan teks pada file teks (.txt, .doc,dll) pada editor text di delphi. ex. pertama browse file teks kemudian kita open dan teksnya muncul di editor yang kita buat (kaya' notepad gitu). denger2 katanya pake wordwrap,itu apaan ya?caranya gimana? 2. ada yang bisa ato ada yang tau syntaxnya untuk dapetin nilai ASCII dari sebuah karakter ga di delphi? ex. A = 65, B = 66, a = 97, dst.. 3. ada yang tau gak gimana caranya ngubah bilangan desimal ke bilangan biner di delphi?dan sekalian gimana kita melakukan perhitungan bilangan biner itu. wah,kok banyak juga ya..maklum baru belajar neh..mohon bantuannya ya.. makasih sebelumnya.

helo, salam kenal.... aku punya satu cara , mungkin bisa :) Solusi : 1. taruh TMemo di form kamu lalu tambah juga TOpenDialog. Kasih juga tombol untuk membuka open dialog : if OpenDialog1.Execute then begin Memo1.Lines.LoadFromFile(Opendialog1.filename) end; untuk warptext cari aja property Memo1 untuk WarpText jadi TRUE. 2. ??? 3. ??? semoga bermanfaat. maklum saya juga masih pemula ....

2. Kalo gak salah CHR(char).. untuk mbalikinnya kalo gak salah ORD(int)... Eh, bener gak yah..?? gak yakin sih... lupa... 3. emm.. ini gue gak tau dah... :P Teken aja F1.. cari di helpnya delphi, ada kok... Gue gak ada delphi di PC kantor... :(

[2] Unit: System Syntax: function Chr(X: Byte): Char; Description Chr returns the character with the ordinal value (ASCII value) of the byte-type expression, X. Unit: System Syntax: function Ord(X: Char): Byte; Description X is a Delphi ordinal-type expression. The result is the ordinal position of X; its type is the smallest standard integer type that can hold all values of X's type. Ord cannot operate on Int64 values.

kesimpulannya, gue kebalik kan yah.. bwahahaha... :D :D

[2] unit Ubaca_ascii; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var str : string; begin str :='tombol yang ditekan memiliki kode :'+ IntToStr(Key); Application.MessageBox(Pchar(str), 'informasi',MB_OK or MB_ICONINFORMATION); end; end. {tu cuma pake form aja koq, ntar waktu kamu pencet tombol keyboard dia akan muncul kode ASCII tombol}

lah, ternyata thread lama (2 tahun yg lalu) diangkat kembali ya.... :)