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

 
user image
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
user image
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...
user image
more 17 years ago

ImanD

gpp di tempatku codingmu, cobain klo gini:

function Asc( Par : Char ) : Integer; 
begin 
  Result:=ord(par); 
end;
user image
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
user image
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;
user image
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;
user image
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
Share to

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

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com