+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : جمع الاعداد في ميمو (/showthread.php?tid=5688)
جمع الاعداد في ميمو - وليدDL - 02-11-2013
السلام عليكم
كيف جمع اعداد مدخلة في المكون ميمو
1
1
2
3
4
----------
11
مثل هذا
جمع الاعداد في ميمو - SMP3 - 02-11-2013
و عليكم السلام :
هذه دالة سريعة تفي بالغرض :
PHP كود :
function SumMemo(AMemo: TMemo): integer;
var
i: integer;
Value: integer;
begin
Result := 0;
for i := 0 to AMemo.Lines.Count - 1 do
begin
if TryStrToInt(String(AMemo.Lines[i]), Value) then
inc(Result, Value);
end;
end;
جمع الاعداد في ميمو - sadwolf - 02-11-2013
تفضل
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i , j : integer;
begin
j := 0;
for i := 0 to memo1.lines.count -1 do
j := j + StrToInt(memo1.lines[i]);
edit1.Text := IntToStr(j);
end;
جمع الاعداد في ميمو - وليدDL - 04-11-2013
كل الشكر والمحبة اخي SMP3
تم بعون الله الحل ولكن هل الدالة TryStrToInt هي نفس strtoint
وشكراً جزيلاً
جمع الاعداد في ميمو - SMP3 - 04-11-2013
وليدDL كتب :كل الشكر والمحبة اخي SMP3الدالة TryStrToInt تعمل نفس عمل الدالة StrToInt لكن هناك بعض الاختلافات :
تم بعون الله الحل ولكن هل الدالة TryStrToInt هي نفس strtoint
وشكراً جزيلاً
الدالة TryStrToInt تتحقق من أن المحرف رقم لتفادي أية أخطاء على غرار الدالة StrToInt ..
لان الميمو يمكن أن تكون بها Line فارغة .. مما قد يسبب مشكل في التحويل
جمع الاعداد في ميمو - S.FATEH - 04-11-2013
السلام عليكم
حل متميز SMP3 اخ لكن بما انك استخدمت TryStrToInt لا داعي الى التحويل القسري
كود :
TryStrToInt(String(AMemo.Lines[i]), Value)كود :
TryStrToInt(AMemo.Lines[i], Value)