Arsip: kok ga mau jalan programmnya??

 
user image
more 15 years ago

akudana

ini codenya: procedure TForm1.Button1Click(Sender: TObject); var A : array of integer; begin A [1] := StrToInt(Edit1.Text); StringGrid1.Cells[2,1] := FloatToStr (A[1]); StringGrid1.Cells[1,2] := FloatToStr (StrToFloat(1) / (StrToFloat(A[1]))); end; saya udah coba utak atik kok ga bisa.. apanya yaa...
user image
more 15 years ago

cadasmerah-camar

ups kan StrToFloat(1) string ke float berarti parameternya string bukan numerik jad StrToFloat('1')
user image
more 15 years ago

mas_kofa

????? gak bisa jalannya kenapa...jelasin yang jelas.....
user image
more 15 years ago

DelphiExpert


StringGrid1.Cells[1,2] := FloatToStr (1 / A[1]); 
user image
more 15 years ago

akudana

oww....gitu... makasih buat semuanyaaa....
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