أين الخطأ

[wahaub]

اين الخطأ في هذه الشفرة

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. 


[STRELiTZIA]

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

اين الخطأ في هذه الشفرة

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

بالتوفيق ان شاء الله

[wahaub]

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

[wahaub]

السلام عليكم

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

[STRELiTZIA]

و عليكم السلام و رحمة الله

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

كود :

uses Windows, Messages, SysUtils, [B][color=Red]Math[/color][/B], Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

[wahaub]

مشكور جداً على سرعة الرد.

[rama]

اين الخطأ في هذه الشفرة

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

[wahaub]

مشكور يأخ rama حلت المشكلة.