Arsip: Please Help Donk ....Masalah bikin Function Ascii...

more 15 years ago
palapetir
Dear All.
Saya ada masalah nih, dengan function ORD() di Delphi
saya membuat function sebagai berikut :
Function Asc( Par : Char ) : Integer;
begin
Asc:=ord(par);
end;
kemudian saya compile...trus muncul Error
INCOMPATIBLE TYPE.
waduh apaan tuh...?
setelah cari - cari di HELP fucntion ord mengembalikan
tipe data ordinal, TIPE DATA ORDINAL APAAN LAGI TUH...?
TOLONG PENCERAHANNYA..TEMAN-TEMAN
Thank YOU

more 15 years ago
DelphiExpert
compiler anda terlalu sensitive kali'... code tsb saya coba compile ngga' papa koq.
coba pake ini:
function Asc(Par: Char): WORD;
begin
Result:= Ord(Par);
end;
atau jangan-jangan penggunaannya yg salah kali'!
coba post code penggunaan fungsi tsb...
more 15 years ago
ImanD
gpp di tempatku codingmu, cobain klo gini:
function Asc( Par : Char ) : Integer;
begin
Result:=ord(par);
end;

more 15 years ago
palapetir
atau jangan-jangan penggunaannya yg salah kali'!
coba post code penggunaan fungsi tsb...[/quote]
Function di panggling dengan Event seperti dibawah ini
procedure TForm1.suiButton1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(asc(Copy('bryan',1,1)));
end;
Tetapi tetep Aja ga bisa INCOMPATIBLE TYPE katanya....???
Apakah function Ord() hanya bisa memanggil KONSTANTA saja.
kalo di panggil pake Function dibawah ini :
procedure TForm1.suiButton1Click(Sender: TObject);
begin
Edit1.Text:=asc( 'd' );
end;
LANCAR - LANCAR SAJA....MULUS...Tapi kalo PAKE VARIABEL
muncul Error Tersebut.....
Waduh pusing nih Bro.....
TOLONG LAGI PENCERAHANNYA.....Please

more 15 years ago
DelphiExpert
wooh... ya tentu saja compiler marah2...
lha wong fungsi copy-kan mengembalikan type string, sedang yg dibutuhkan param Par adalah char
utk itu perlu sedikit di itik-itik biar jadi char:
procedure TForm1.suiButton1Click(Sender: TObject);
begin
Edit1.Text:= IntToStr( Asc( Copy('bryan',1,1)[1] ) ); // ditambahi [1] setelah fungsi copy
end;

more 15 years ago
MrLee
procedure TForm1.suiButton1Click(Sender: TObject); begin Edit1.Text:=IntToStr(asc(Copy('bryan',1,1))); end;saya rasa harus begini
nama := 'bryan';
Edit1.Text:=IntToStr(asc(nama[1]));
kalu copy hasil tipe-nya tetap string;
more 15 years ago
mas_kofa
string walaupun satu huruf itu beda ama charakter mas.....betul kata MrLee
kalo string itu bisa kosong <tanpa karaker>
kalo karakter tuh harus berisi satu karakter
Maaf Jika Salah
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- [?] Setting Halaman Agar Record Tidak Terputus di FastReport
by babypigs in Tip n Trik Pemrograman more 15 years ago - Ask: How To Use ComPort 3.0 ?
by cyber_hecker in Network, Files, I/O & System more 17 years ago - Seven Segment
by jannah in Hal umum tentang Pascal Indonesia more 15 years ago - Save dan Load Gambar ke Database, was update dr artikel
by LuriDarmawan in Multimedia & Graphic Enhancement more 13 years ago - exception handling
by her1z_yu2n in Hal umum tentang Pascal Indonesia more 15 years ago - PageControl
by doniking in Hal umum tentang Pascal Indonesia more 16 years ago - GapleX 1.0: GapleX Multiplayer Games
by portege in Games more 16 years ago - program counter
by rahul_cayang in Hal umum tentang Pascal Indonesia more 15 years ago - arithmetic coding
by aptho in Tip n Trik Pemrograman more 16 years ago - [file request] TRawPrinter versi simba
by mochidel in Reporting more 13 years ago