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
اتمنا ان يستفيد الجميع :rolleyes: