[LorDHeLeGaL]

Сообщение от angvelem

Что то каша какая-то, откуда столько begin-ов?

Код:

{Все расчеты}
procedure TForm1.Button1Click(Sender: TObject);
begin
  x1 := 46875 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * StrToIntDef(Edit7.Text, 0);
  x8 := StrToInt(Edit8.Text);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
  Label7.Caption := Inttostr(y)+' $';

  x1 := 46875 * 5 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * 5 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * 5 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * 5 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * 5 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * 5 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * 5 * StrToIntDef(Edit7.Text, 0);
  x8 := 5 * StrToIntDef(Edit8.Text, 0);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
//  Label10.Caption := (Inttostr(y))+' !';

  case y of
    0..5   : Label3.Caption := format('Íîâè÷îê %i!', [y]);
    6..10  : Label3.Caption := format('Ìàñòåð %i!', [y]);
    11..15 : Label3.Caption := format('Ïðîôåññèîíàë %i!', [y]);
  else
    Label10.Caption := format('%i', [y]);
  end;

  m1 := 46875 * 2.5 * StrToFloatDef(Edit1.Text, 0);
  m2 := 9375 * 2.5 * StrToFloatDef(Edit2.Text, 0);
  m3 := 1875 * 2.5 * StrToFloatDef(Edit3.Text, 0);
  m4 := 375 * 2.5 * StrToFloatDef(Edit4.Text, 0);
  m5 := 75 * 2.5 * StrToFloatDef(Edit5.Text, 0);
  m6 := 15 * 2.5 * StrToFloatDef(Edit6.Text, 0);
  m7 := 5 * 2.5 * StrToFloat(Edit7.Text, 0);
  m8 := StrToIntDef(Edit8.Text, 0);
  z := m1+m2+m3+m4+m5+m6+m7+m8;
  Label8.Caption := FloatToStr(z)+' ìèíóò';

  akciy := StrToFloatDef(Edit9.Text, 0);
  golos := akciy/5;
  label12.Caption := FloatToStrDef(golos, 0)+' çâåçä';
end;

Button3Click(Sender);
begin
  x11 := 46875 * StrToIntDef(Edit1.Text, 0);
  x22 := 9375 * StrToIntDef(Edit2.Text, 0);
  x33 := 1875 * StrToIntDef(Edit3.Text, 0);
  x44 := 375 * StrToIntDef(Edit4.Text, 0);
  x55 := 75 * StrToIntDef(Edit5.Text, 0);
  x66 := 15 * StrToIntDef(Edit6.Text, 0);
  x77 := 5 * StrToIntDef(Edit7.Text, 0);
  x88 := StrToIntDef(Edit8.Text, 0);
  r:= x11+x22+x33+x44+x55+x66+x77+x88;
  Label13.Caption := Inttostr(r)+' çâåçä';
end;

Компилятор выдает ошибки и я писал begin...