StrToBool نسخة Delphi6

[lahcen]

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

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

اما بعد

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

[I_Tiger]

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

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

كود :

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

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