StrToBool نسخة Delphi6

[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

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