PDA

View Full Version : کمک به یه تازه وارد



محسن شمس
شنبه 16 مهر 1384, 09:31 صبح
اقا من تو برنامه به یه مشگلی برخورد کردم

انشاا... با کمک شما دوستان بر طرف می شود

به من بگید چرا این کد Error می دهد

محتوای Edit 1 این می باشد (999999999999999999)
محتوای Edit 2 این می باشد (899999999999999999)


procedure TForm1.Button1Click(Sender: TObject);
var
i:Double ;
b:Double ;
begin
i:=StrToInt64 (Edit1.Text);
b:=StrToInt64 (Edit2.Text);

تو این خط خطا می دهد
Label1.Caption := I * b
end

Touska
شنبه 16 مهر 1384, 10:54 صبح
بر عکسش یادت رفته :


Label1.Caption := Int64ToStr(I * b);

Sepidar
شنبه 16 مهر 1384, 11:14 صبح
تاپیک به علت نامربوط بودن عنوان بسته شد.
در ضمن کدها را درون تگ مربوطه قرار دهید.