+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تحويل الرقم من 123456 الى 010203040506 في دلفي (/showthread.php?tid=10047)
كيف يتم تحويل الرقم من 123456 الى 010203040506 في دلفي - fouadhdfouad - 12-02-2019
السلاعليكم ورحة الله وبركاته
كيف يتم تحويل هذالرقم من 123456 الى 010203040506
لقد قمت ببرمجتها بلغة دوت نت
اما الدالفي فلم استطع لانني جديد في هذه اللغة
تقبلو تحياتي
RE: سؤال جزاكم الله خيرا - delphi17 - 12-02-2019
الكود ليس جيد لكن يافي بالغرض
كود :
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. RE: كيف يتم تحويل الرقم من 123456 الى 010203040506 في دلفي - fouadhdfouad - 12-02-2019
شكرا لك اخي الكريم
ربنا يبارك في عمرك ويحسن اليك
كود اشتغل جيد
تقبل تحياتي