كيف يتم تحويل الرقم من 123456 الى 010203040506 في دلفي
#1
السلاعليكم ورحة الله وبركاته


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

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

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

تقبلو تحياتي
الرد
#2
الكود ليس جيد لكن يافي بالغرض

كود :
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.        
الرد
#3
شكرا لك اخي الكريم

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

كود اشتغل جيد

تقبل تحياتي
[-] كل من 1 user says قال شكرا ل fouadhdfouad على المشاركة المفيدة
  • delphi17
الرد


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


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف