Парсить? Бррррррррррррр.. Я в этом чайник.. Всё что пока у меня выходит -
Код:
procedure TForm1.Button1Click(Sender: TObject); // "Ещё"
begin
// какой-то цикл должен быть!!! ----------
sum:=a+a;
a:=StrToInt(Edit1.Text);
Edit1.Text:='';
// а тут он должен заканчиваться!!! ----------
end;
procedure TForm1.Button2Click(Sender: TObject); // "Средний балл"
begin
sr:=sum/i;
Label2.Caption:=FloatToStr(sr);
end;