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

more 17 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 17 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 17 years ago
ImanD
gpp di tempatku codingmu, cobain klo gini:
function Asc( Par : Char ) : Integer;
begin
Result:=ord(par);
end;

more 17 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 17 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 17 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 17 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Bingung gmn caranya nampilin 2 buah record kedalam edittext?
by ahmeed in Hal umum tentang Pascal Indonesia more 16 years ago - Buat installer Mysql secara otomatis
by hendra_sir84 in Hal umum tentang Pascal Indonesia more 16 years ago - Format String
by galih in Tip n Trik Pemrograman more 17 years ago - Backup Restore data dengan delphi SQL Server sebagai db
by iizy in Tip n Trik Pemrograman more 15 years ago - Dimana ya bisa belajar tt struktur file ?
by jancky in Tip n Trik Pemrograman more 17 years ago - insert multiselect record ke tabel
by riagil in MySQL more 14 years ago - Ga bisa nampilin isi TADOQuery...
by Random in Hal umum tentang Pascal Indonesia more 17 years ago - Delphi di Linux
by LuriDarmawan in onLinux more 19 years ago - Source untuk Hide program
by Markus in Hal umum tentang Pascal Indonesia more 17 years ago - import data XML
by delphi1st in Tip n Trik Pemrograman more 18 years ago