[تمرين] استخراج حجم String بدون استعمال الدالة Length
#31
PHP كود :
S0 :=
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD';


  
:=  S0+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'+
       
'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD';

  
ShowMessage(IntToStr(Length(S))); 

أنظر أخي hanipino المتغير S0
هدا ما جعلني أقول أن كمبايلر دلفي يعتبره string
لا اله الا أنت سبحانك اني كنت من الضالمين
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم