Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2012, 10:47   #1
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
Восклицание в чем ошибка?

Доброго времени суток!
Эллементарная программа, но почему-то несчитает...(( а именно, когда я нажимаю на кнопку, то вылазиет ошибка.. Помогите... ведь программа легкая..а чет туплю((((
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;x,y,s,b,c,z,t,a:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtofloat (edit1.Text);
y:=strtofloat (edit2.Text);
s:=strtofloat (edit3.Text);
a:=strtofloat (edit4.Text);
b:=strtofloat (edit5.Text);
c:=strtofloat (edit6.Text);
z:=strtofloat (edit7.Text);
t:=strtofloat (edit8.Text);
edit3.Text:=floattostr(x*y);
edit4.Text:=floattostr(s/2.5);
edit5.Text:=floattostr((x/1.25+1)*(y/5));
edit6.Text:=floattostr(S*0.2+x/5);
edit7.Text:=floattostr((y/5-1)*x/5);
edit8.Text:=floattostr(b*6+(x/1.25+1));




end;

end.
<====Если помог, весы под профилем.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Старый 16.06.2012, 11:08   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Помогите
Чем? Стелепатировать текст ошибки?
Вместо strtofloat используй strtofloatDEF
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.06.2012, 11:47   #3
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

теперь вообще не компилируется((( и ошибок нет ни каких... а иеще после сохранения нет ярлыка программы... вообще не знаю че желать.
<====Если помог, весы под профилем.

Последний раз редактировалось N.i.k.o.l.a.y.; 16.06.2012 в 11:53.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Старый 16.06.2012, 12:54   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
вообще не знаю че желать.
Может йаду? Для усиления моска, который хранит за семью печатями сообщение о ошибках.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.06.2012, 15:05   #5
[DisAssembleR]
Пользователь
 
Регистрация: 30.06.2011
Сообщений: 28
По умолчанию

Кстати да, что именно за ошибка?
Потому что скопировав приведенный код, я обнаружил его 100500% работоспособность.
Или ты просто не тот кусок выложил)
[DisAssembleR] вне форума Ответить с цитированием
Старый 17.06.2012, 15:23   #6
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

Блин, вот я тоже бьюсь... Мож это связано с пиратской версией Delphi?
<====Если помог, весы под профилем.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Старый 17.06.2012, 15:48   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
это связано с пиратской версией Delphi?
Это связано прежде всего с нежеланием автора выложить текст ошибки,а уже потом со слепым Пью.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.06.2012, 16:25   #8
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Это связано прежде всего с нежеланием автора выложить текст ошибки,а уже потом со слепым Пью.
Да он больше не выдает ошибку, он ее выдал, а потом после компиляциии не че не запускал и не выдавал..!!!!
<====Если помог, весы под профилем.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Старый 17.06.2012, 16:39   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
он ее выдал
Ну ты и партизанин... Хвалю!!! Орден Кибальчиша тебе !!
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.06.2012, 13:54   #10
[DisAssembleR]
Пользователь
 
Регистрация: 30.06.2011
Сообщений: 28
По умолчанию

Цитата:
Сообщение от N.i.k.o.l.a.y. Посмотреть сообщение
а потом после компиляциии не че не запускал и не выдавал..!!!!
тогда в чем вообще, собственно говоря, ошибка?7?
[DisAssembleR] вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
в чем ошибка ?? SuperHuman Общие вопросы C/C++ 3 04.06.2012 21:30
В чем ошибка!! deadh5n1 Помощь студентам 1 08.01.2012 21:13
В чем ошибка!? Файзулка Помощь студентам 5 17.01.2011 10:27
В чем ошибка? AleNa666 Паскаль, Turbo Pascal, PascalABC.NET 2 28.04.2009 14:28