Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Не могу понять что не так? (http://forum.oszone.net/showthread.php?t=119790)

ShadowMas 11-10-2008 23:27 921493

Не могу понять что не так?
 
Люди помогите пожалуйста, начал разбираться с Delphi и застопорился с вроди бы простой и понятной програмкой :(

Нужно чтобы в Текстовой строке "Label6" или в поле ввода "Edit5" при нажатии кнопки "Button1" считалась вот такая простая формула:
y:= x1*(1.013- 0.0267123*x2)

вот строки кода:



procedure TForm1.Button1Click(Sender: TObject);

var

x1:integer;

x2:integer;

y:Variant;

begin

x1:=Edit1.Text;

x2:=Edit3.Text;

y:=Edit5.Text;

y:= x1*(1.013- 0.0267123*x2);

end;

end.


Подскажите где ошибка?

Admiral 11-10-2008 23:47 921503

ShadowMas,
y:= x1*(1.013- 0.0267123*x2);
Edit5.Text:=y;

engwar 11-10-2008 23:49 921504

procedure TForm1.Button1Click(Sender: TObject);

begin
Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text)));
end;

end.

Цитата:

Цитата ShadowMas
x1:=Edit1.Text;
x2:=Edit3.Text; »

а тут ты пытаешься числовой переменной присвоить строковое значение

ShadowMas 12-10-2008 00:06 921516

Ясно сенкс за ответ буду пробывать!!!

ShadowMas 12-10-2008 00:21 921525

Спасибо огромное тут одна скобка я так понял лишняя

Edit5.text:= floattostr((Strtofloat(Edit1.text)*(1.013- 0.0267123*strtofloat(edit3.text)));

Всё получилось ЕЩЁ раз огромное спасибо всем кто ответил!


Время: 15:27.

Время: 15:27.
© OSzone.net 2001-