+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أين الخطأ (/showthread.php?tid=1075)
أين الخطأ - wahaub - 26-07-2009
اين الخطأ في هذه الشفرة
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 - 26-07-2009
اولا نقول : السلام عليكم و رحمة الله
ثانيا : نرفق نص الاعتراض الذي اشار اليه دلفي...
إقتباس :اين الخطأ في هذه الشفرةدالة : IsInfinite موجودة في وحدة Math يعني يجب اضافتها اولا في فسم : Uses قبل استدعاء الدالة المذكورة.
بالتوفيق ان شاء الله
أين الخطأ - wahaub - 26-07-2009
أولاً : مشكور اخي الكريم.
ثانياً: أعتذر على عدم القاء السلام فالموضوع كان مدوخني ولم اجد حلاً له .
ثالثاً: مشكور على التنبيه.
أين الخطأ - wahaub - 26-07-2009
السلام عليكم
رابعاً : أين أضعها بالضبط في قسم ال uses.
أين الخطأ - STRELiTZIA - 26-07-2009
و عليكم السلام و رحمة الله
إقتباس :رابعاً : أين أضعها بالضبط في قسم ال uses.
كود :
uses
Windows, Messages, SysUtils, [B][color=Red]Math[/color][/B], Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;أين الخطأ - wahaub - 26-07-2009
مشكور جداً على سرعة الرد.
أين الخطأ - rama - 26-07-2009
wahaub كتب :اين الخطأ في هذه الشفرة
ما هو نص الاعتراض الذي اشار اليه دلفي لكي نتمكن من فهم الخطأ ؟
أين الخطأ - wahaub - 27-07-2009
مشكور يأخ rama حلت المشكلة.