02-11-2013, 08:32 AM
02-11-2013, 03:14 PM
و عليكم السلام :
هذه دالة سريعة تفي بالغرض :
تمرر للدالة ال Memo التي تريد جمعها .
هذه دالة سريعة تفي بالغرض :
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;
02-11-2013, 09:25 PM
تفضل
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;
04-11-2013, 03:08 AM
كل الشكر والمحبة اخي SMP3
تم بعون الله الحل ولكن هل الدالة TryStrToInt هي نفس strtoint
وشكراً جزيلاً
تم بعون الله الحل ولكن هل الدالة TryStrToInt هي نفس strtoint
وشكراً جزيلاً
04-11-2013, 08:28 AM
وليدDL كتب :كل الشكر والمحبة اخي SMP3الدالة TryStrToInt تعمل نفس عمل الدالة StrToInt لكن هناك بعض الاختلافات :
تم بعون الله الحل ولكن هل الدالة TryStrToInt هي نفس strtoint
وشكراً جزيلاً
الدالة TryStrToInt تتحقق من أن المحرف رقم لتفادي أية أخطاء على غرار الدالة StrToInt ..
لان الميمو يمكن أن تكون بها Line فارغة .. مما قد يسبب مشكل في التحويل
04-11-2013, 06:23 PM
السلام عليكم
حل متميز SMP3 اخ لكن بما انك استخدمت TryStrToInt لا داعي الى التحويل القسري
حل متميز SMP3 اخ لكن بما انك استخدمت TryStrToInt لا داعي الى التحويل القسري
كود :
TryStrToInt(String(AMemo.Lines[i]), Value)كود :
TryStrToInt(AMemo.Lines[i], Value)