جمع الاعداد في ميمو

[sadwolf]

تفضل

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;