به نظر شما این دستور خطا داره

[Laia2005]

به نظر شما این دستور خطا داره


procedure TForm1.Button1Click(Sender: TObject);
Var
A : Smallint ;
begin
A := 100 / 50 ;
end;

آخه چرا ؟

عکس زیر خطاش و زده ؟ یک نگاه کن ؟

[mzjahromi]

سلام دوست عزیز
شمانمیتونید یک مقدار اعشاری رو درون یک متقیر صحیح بریزید. حاصل ایننمونه تقسیم هم یک مقدار اعشاری هست یکی از کدهای زیر رو استفاده کنید مشکلتون حل میشه


A :=Round(100 / 50);
A :=100 div 50;

اگر متن خطا رو بخونید خودتون متوجه این مساله میشید

[Laia2005]

آفریآفرینآفرینآفرینآفرینآ فرینآفرینآفرینآفرینآفرینآ فرینآفرینآفرینآفرینن

[mehranFX]

به نظر شما این دستور خطا داره


procedure TForm1.Button1Click(Sender: TObject);
Var
A : Smallint ;
begin
A := 100 / 50 ;
end;
آخه چرا ؟

عکس زیر خطاش و زده ؟ یک نگاه کن ؟ ببین لعیا خانوم:
شما داری حاصل یک تقسیم رو که نتیجه اش یک عدد اعشاریه (دلفی اونو اعشاری می بینه!) رو داخل یه متغیر از نوع صحیح می ریزی و این پیفام خطا رو به شما داده!
اینجوری درست می شه منتها دیگه اعشارش می پره :


procedure TForm1.FormCreate(Sender: TObject);
var
A: Smallint;
begin
A:=(100 div 50);
end;