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

بسم الله الرحمن الرحيم
الكود التالى

كود :
procedure TForm1.edt1Change(Sender: TObject);
var i,nc,cc,oc:integer;temp:string;
begin
 nc:=0;
 cc:=0;
 oc:=0;
 temp:=edt1.Text;
 for i:=1 to length(temp) do
  if temp[i] in ['0'..'9'] then inc(nc)
  else
   if temp[i] in ['A'..'Z','a'..'z'] then inc(cc)
  else
 inc(oc);
 lbl2.Caption:=format('Chars Count:%d',[cc]);
 lbl3.Caption:=format('Num Count:%d',[nc]);
 lbl4.Caption:=format('Others:%d',[oc]);
end;

فى هذا السطر
if temp[i] in ['0'..'9'] then inc(nc)
بعد then ما هو دور التعليمة Inc ؟

كود :
inc(nc)

تعادل

كود :
nc := nc + 1;

inc يعني increment

codz كتب :
كود :
inc(nc)
تعادل
كود :
nc := nc + 1;
inc يعني increment

شكراّ أخى الكريم ..
كنت معتقد هذة التعليمية خاصة بالمتغيرات

كود :
var i,nc,cc,oc:integer;

ولكن أتضح أنه تشابة أسماء Big Grin

كتبتة هكذا

كود :
var i,x:integer;
s:string;
begin

 x:=0;

 s:=Edit1.Text;
 for i:=1 to length(s) do
 if s[i] in ['A'..'Z','a'..'z'] then inc(x)
  else
 inc(x);
 Label1.Caption:=format('Chars Count:%d',[x]);

end;

فى النهاية inc تعليمية مخزنة .شكرا اخى الكريم

السلام عليكم

للمعلومة inc اختصارا لكلمة increment الانجليزية التي تعني زيادة
ويمكن للزيادة ان تكون اكثر من واحد مثل

كود :
inc(i,2);

وهناك اخرى للنقصان dec

B.M.AbdelAziZ كتب :السلام عليكم

للمعلومة inc اختصارا لكلمة increment الانجليزية التي تعني زيادة
ويمكن للزيادة ان تكون اكثر من واحد مثل

كود :
inc(i,2);
وهناك اخرى للنقصان dec

شكرا جزيلاّ اخى الكريم: دعنى استغل مرورك الكريم ... فى فهم باقى الكود Big Grin

هل وظيفة format تساوى عملية فلترة .
:%d معناها اية.

المقصود بالكود المطروح

إقتباس :هل وظيفة format تساوى عملية فلترة .
:%d معناها

Format تسمح باظهار نص حسب شكل محدد، احياما تستخدم بدلا مكن IntToStr / FloatToStr او غيرهما
d اختصارا لDecimal اظنك تعرف معناها
في دلفي إذهب للكلمة التي لا تفهمها واضغط على F1 يظهر الHelp اقراء غالبا يكون معه مثال

karika2

codz

karika2

محمد عبد العزيز

karika2

djsalam

محمد عبد العزيز