Как задать значение переменной которое введено в 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;
0) Изначально A = 1, B = 2, C = 1
1) B = A+B = 1 + 2 = 3, C = C+1 = 2 < 4, возвращаемся
2) B = A+B = 1 + 3 = 4, C = C+1 = 3 < 4, возвращаемся
3) B = A+B = 1 + 4 = 5, C = C+1 = 4 не < 4, выходим
ответ: B = 5