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

نسخة كاملة : [تمرين] استخراج حجم String بدون استعمال الدالة Length
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4
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';


  
S :=  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 2 3 4