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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلاعليكم ورحة الله وبركاته

كيف يتم تحويل هذالرقم من 123456 الى 010203040506

لقد قمت ببرمجتها بلغة دوت نت

اما الدالفي فلم استطع لانني جديد في هذه اللغة

تقبلو تحياتي

الكود ليس جيد لكن يافي بالغرض

كود :
program Project1 ;

var
  a : String ;
  number : string = '123456'   ;
i : Integer ;
begin
     for i := 1 to Length(number) do
     begin
     a:=  a + '0' + copy(number ,i,1);
     end;
     WriteLn(a);
     Readln;
 end.        

شكرا لك اخي الكريم

ربنا يبارك في عمرك ويحسن اليك

كود اشتغل جيد

تقبل تحياتي

fouadhdfouad

delphi17

fouadhdfouad