به نظر شما این دستور خطا داره
procedure TForm1.Button1Click(Sender: TObject);
Var
A : Smallint ;
begin
A := 100 / 50 ;
end;
آخه چرا ؟
عکس زیر خطاش و زده ؟ یک نگاه کن ؟
به نظر شما این دستور خطا داره
procedure TForm1.Button1Click(Sender: TObject);
Var
A : Smallint ;
begin
A := 100 / 50 ;
end;
آخه چرا ؟
عکس زیر خطاش و زده ؟ یک نگاه کن ؟
آخرین ویرایش به وسیله بابک زواری : چهارشنبه 26 بهمن 1384 در 23:15 عصر
سلام دوست عزیز
شمانمیتونید یک مقدار اعشاری رو درون یک متقیر صحیح بریزید. حاصل ایننمونه تقسیم هم یک مقدار اعشاری هست یکی از کدهای زیر رو استفاده کنید مشکلتون حل میشه
A :=Round(100 / 50);
A :=100 div 50;
اگر متن خطا رو بخونید خودتون متوجه این مساله میشید
You never know what you can do until you try
آفریآفرینآفرینآفرینآفرینآ فرینآفرینآفرینآفرینآفرینآ فرینآفرینآفرینآفرینن
ببین لعیا خانوم:نوشته شده توسط Laia2005
شما داری حاصل یک تقسیم رو که نتیجه اش یک عدد اعشاریه (دلفی اونو اعشاری می بینه!) رو داخل یه متغیر از نوع صحیح می ریزی و این پیفام خطا رو به شما داده!
اینجوری درست می شه منتها دیگه اعشارش می پره :
procedure TForm1.FormCreate(Sender: TObject);
var
A: Smallint;
begin
A:=(100 div 50);
end;