delphi4arab منتديات دلفي للعرب

نسخة كاملة : أين الخطأ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اين الخطأ في هذه الشفرة

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var 
v:variant ;
    
x:double;
begin
 x
:=1/0;
 
v:=isinfinite(x);
  if 
v then form1.Caption:='true';

end;

end. 
اولا نقول : السلام عليكم و رحمة الله
ثانيا : نرفق نص الاعتراض الذي اشار اليه دلفي...

إقتباس :اين الخطأ في هذه الشفرة
دالة : IsInfinite موجودة في وحدة Math يعني يجب اضافتها اولا في فسم : Uses قبل استدعاء الدالة المذكورة.

بالتوفيق ان شاء الله
أولاً : مشكور اخي الكريم.
ثانياً: أعتذر على عدم القاء السلام فالموضوع كان مدوخني ولم اجد حلاً له .
ثالثاً: مشكور على التنبيه.Smile
السلام عليكم

رابعاً : أين أضعها بالضبط في قسم ال uses.
و عليكم السلام و رحمة الله

إقتباس :رابعاً : أين أضعها بالضبط في قسم ال uses.

كود :
uses Windows, Messages, SysUtils, [B][color=Red]Math[/color][/B], Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
مشكور جداً على سرعة الرد.
wahaub كتب :اين الخطأ في هذه الشفرة

ما هو نص الاعتراض الذي اشار اليه دلفي لكي نتمكن من فهم الخطأ ؟
مشكور يأخ rama حلت المشكلة.Smile