delphi4arab منتديات دلفي للعرب
[تمرين] استخراج حجم String بدون استعمال الدالة Length - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [تمرين] استخراج حجم String بدون استعمال الدالة Length (/showthread.php?tid=3896)

الصفحات: 1 2 3 4

[تمرين] استخراج حجم String بدون استعمال الدالة Length - me_delphi - 27-02-2012

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