Как задать значение переменной которое введено в 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;
