Как задать значение переменной которое введено в 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;
Сделал подробно. Двумя решениями. Через оператора if и else (Вам нужен только if, else для ознакомления)
--
IF
--
2)
Program ypriz;
var a,b,cc: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
Writeln('Значение a, b: ',a);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
a:=10*a;
b:=10*b;
if a+b < 0 then
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
--
ELSE
--
2)
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10;
if z > 5 then
y:=z-10;
Writeln('Значение y: ',y);
END.
или
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10
else
y:=z-10;
Writeln('Значение y: ',y);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
var a: array[1..n] of integer;
i: integer;
begin
randomize;
writeln('список:');
for i:=1 to n do
begin
a[i]:=random(-20,20);
write(a[i],' ');
end;
writeln;
for i:=2 to n do
if a[i]>a[i-1] then write(a[i]:4);
end.
список:
-20 -20 -14 -18 20 12 -2 -6 -13 15
-14 20 15
Если ввод с клавиатуры:
var a: array of integer;
i,n: integer;
begin
write('n = '); readln(n);
setlength(a,n+1);
for i:=1 to n do read(a[i]);
for i:=2 to n do
if a[i]>a[i-1] then write(a[i],' ');
end.