+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : StrToBool نسخة Delphi6 (/showthread.php?tid=430)
StrToBool نسخة Delphi6 - lahcen - 14-01-2009
السلام للجميع
ان شاء الله بخير (دعوة خاصة لاهل غزة اللهم انصرهم)
اما بعد
الدالة StrToBool تقوم بتحويل من نص الى متغير منطقي الاشكال هو ارجاع خطا عند تقديم التالي
StrToBool('True')
من فظلكم ماهو الحل وشكرا جزيلا
StrToBool نسخة Delphi6 - I_Tiger - 12-04-2009
ساحاول الشرح باختصار
طريقة التصريح
كود :
function StrToBool(const S: string): Boolean;انظر الى هذا المثال
كود :
var s, sT, sF, sError : string;
s := 'NO';
sT := '2003';
sF := '0';
sError := 'Not convertable';
SetLength(TrueBoolStrs,1);
SetLength(FalseBoolStrs,1);
TrueBoolStrs[0]:='YES';
FalseBoolStrs[0]:='NO';وحالاتها كالتالي:
ترجع False اذا كان S = رقم غير الصفر
ترجع True اذا كان S = الصفر
ترجع True اذا كان S موجود في TrueBoolStrs
ترجع False اذا كان S = موجود في FalseBoolStrs
ترجع خطأ من النوع EConvertError اذا لم تكن اي من الحالات السابقة
ومنه يكون ناتج المثال السابق كالتالي:
كود :
StrToBool(s) == False
StrToBool(sT) == True
StrToBool(sF) == False
StrToBool(sError) == EConvertError exception