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

السلام عليكم

لد استفسار عن كيفية جمع الارقام المولدة

على سبيل المثال تم عمل توليد عشوائى للارقام التالية
6289383366934268274
السؤال هو كيف يتم جمع هذة القيم بهذا الشكل

PHP كود :
6+2+8+9+3+8+3+3+6+6+9+3+4+2+6+8+2+7+4= 63$ 

والسلام عليكم

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

إقتباس :السؤال هو كيف يتم جمع هذة القيم بهذا الشكل

حلقة (For) تطوف حول السلسلة لتحول كل محرف (Char) إلى رقم وتضيفه إلى مجموع تراكمي
أرفق محاولة ونصححها معا إن شاء الله
بالتوفيق.

السلا عليكم

مشكور اخى كاش واحد : على الاهتمام

هذا الكود ما حاولت معة ولاكن يعطينى مجموع المحارف وليس المجموع التاركمى

كود :
[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]

تحية لك

استبدل السطرين:

كود :
j:= j + Ord(A[i]);
Edit1.Text:=IntToStr(i);

بـ

كود :
j:= j + [color=Blue]StrToInt[/color](A[i]);
  Edit1.Text:=IntToStr([color=Blue]j[/color]);

بالتوفيق.

السلام عليكم
بارك الله فيك اخى كاش واحد
هذا هو المطلوب فعلا
تحية لك

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

U-MAX

kachwahed

U-MAX

kachwahed

U-MAX