+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : Ord Command (/showthread.php?tid=2483)
Ord Command - U-MAX - 10-10-2010
السلام عليكم
لد استفسار عن كيفية جمع الارقام المولدة
على سبيل المثال تم عمل توليد عشوائى للارقام التالية
6289383366934268274
السؤال هو كيف يتم جمع هذة القيم بهذا الشكل
PHP كود :
6+2+8+9+3+8+3+3+6+6+9+3+4+2+6+8+2+7+4= 63$
Ord Command - kachwahed - 10-10-2010
وعليكم السلام ورحمة الله
إقتباس :السؤال هو كيف يتم جمع هذة القيم بهذا الشكلحلقة (For) تطوف حول السلسلة لتحول كل محرف (Char) إلى رقم وتضيفه إلى مجموع تراكمي
أرفق محاولة ونصححها معا إن شاء الله
بالتوفيق.
Ord Command - U-MAX - 10-10-2010
السلا عليكم
مشكور اخى كاش واحد : على الاهتمام
هذا الكود ما حاولت معة ولاكن يعطينى مجموع المحارف وليس المجموع التاركمى
كود :
[COLOR="DarkRed"]function RandomNum : String;
var
A, K: String;
i: Integer;
begin
K:='0123456789';
A:='xxxxxxxxxxxxxxxxxxxx';
for i:=1 to length(A) do
A[i]:=K[Random(length(k))+1];
Result := A;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
A:String;
i,j:integer;
begin
j := 0;
A:=RandomNum;
For i := 1 To Length (A) do
j:= j + Ord(A[i]);
Edit1.Text:=IntToStr(i);
end;[/COLOR]تحية لك
Ord Command - kachwahed - 10-10-2010
استبدل السطرين:
كود :
j:= j + Ord(A[i]);
Edit1.Text:=IntToStr(i);كود :
j:= j + [color=Blue]StrToInt[/color](A[i]);
Edit1.Text:=IntToStr([color=Blue]j[/color]);Ord Command - U-MAX - 10-10-2010
السلام عليكم
بارك الله فيك اخى كاش واحد
هذا هو المطلوب فعلا
تحية لك