Ошибка при вызове readln после нажатия кнопки

28.04.2012, 11:29. **Показов** 1172. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Работаю с PascalABC.NET, и после компиляции, при нажатии на кнопку выскакивает ошибка. Как решить эту проблему?

Pascal

Uses GraphABC,ABCButtons;
Var
  a:real;
  b:ButtonABC;
procedure bClick;
begin
    readln(a);
    writeln(a+a);
end;
BEGIN
  b:= new ButtonABC(1,1,100,'Ввести а',clGreen);
  b.OnClick := bClick;
END.

@Darius · 27.08.2012, 15:52

C Вашим примером помочь не могу, сделал как умею, может быть Вам поможет.

Pascal

#apptype 'windows'
#reference 'System.Windows.Forms.dll'
 
uses
  System, System.Windows.Forms;
 
var
  a: Button;
  b: TextBox;
  f: Form;
 
procedure bClick(sender: object; e: EventArgs);
begin
  if b.Text <> '' then
    b.Text := (StrToFloat(b.Text) * 2).ToString;
end;
 
begin
  f := new Form;
  
  a := new Button();
  a.Text += 'батон';
  a.Click += bClick;
  
  b := new TextBox();
  b.Top += 50;
  
  f.Controls.Add(a);
  f.Controls.Add(b);
  application.Run(f)
end.

	27.08.2012, 15:52