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

السلام للجميع

ان شاء الله بخير (دعوة خاصة لاهل غزة اللهم انصرهم)

اما بعد

الدالة StrToBool تقوم بتحويل من نص الى متغير منطقي الاشكال هو ارجاع خطا عند تقديم التالي
StrToBool('True')
من فظلكم ماهو الحل وشكرا جزيلا Smile

ساحاول الشرح باختصار Wink

طريقة التصريح

كود :
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

اتمنا ان يستفيد الجميع Rolleyes

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

lahcen

I_Tiger