Question

запишите оператор для введения действительной переменной а с компонента Edit

Answer 1

Ответ:

Как задать значение переменной которое введено в Edit?

вообщем чтобы из Edit значение поподало в переменную

к примеру:

...

var

kurs: real;

....

Edit1.Text:='КАКОЕТО_ЧИСЛО'

...

kurs:='РАВЕН_ЭТОМУ_КАКОМУТО_ЧИСЛУ'

Объяснение:

DelphiВыделить код

1

2

3

4

5

6

procedure TForm1.Edit1Change(Sender: TObject);

var

  Kurs:real;

begin

  Kurs:=StrToFloat(Edit1.Text);

end;

Добавлено через 24 минуты 0 секунд

или так,

DelphiВыделить код

1

2

3

4

5

6

7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

  Kurs:real;

begin

  if not (Key in ['0'..'9','-','+','.',',',#8,#13]) then Key:=#0;

  Kurs:=StrToFloat(Edit1.Text);

end;