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

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

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

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

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

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

Ребят задача в принциппе простая.. но чёт туплю по жесткому. Пишу в Delphi:
Код:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls;

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

var
  Form1: TForm1;     x,y,s,a,b,c,z,t: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;

procedure TForm1.N2Click(Sender: TObject);
begin
 TfForm1.Print;
end;

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

Цитата:
Вот сама программа:
Кроме непонятного TfForm1.Print; в программе криминала не вижу.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.11.2012, 21:40   #3
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

А почему не компилируется и не показывает где ошибка?

всеравно не работает...
<====Если помог, весы под профилем.

Последний раз редактировалось Stilet; 17.11.2012 в 22:18.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Старый 17.11.2012, 21:55   #4
McFrey
Форумчанин
 
Аватар для McFrey
 
Регистрация: 15.10.2011
Сообщений: 306
По умолчанию

выложи весь проект архивом
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
McFrey вне форума Ответить с цитированием
Старый 17.11.2012, 22:18   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

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

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

EXE файл появляется?
Или только DCU?
Ты вообще этот модуль отдельно от проекта открываешь?
Сам PAS файл в твоем случае это лишь частичка проекта, и от него толку не будет без DFM файла (Хотя бы без него, ибо еще нужен файл самого проекта).
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.11.2012, 22:40   #8
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

А как правильно сохранять тогда? Или че мне делать?
раньше все нормально было...
<====Если помог, весы под профилем.

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

Проект у тебя из каких файлов состоит?
Ты DPR открываешь или PAS? Нужно DPR открывать - только его можно запускать
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.11.2012, 20:09   #10
N.i.k.o.l.a.y.
Форумчанин
 
Регистрация: 12.03.2012
Сообщений: 123
По умолчанию

У меня всего один файл delphi source file
<====Если помог, весы под профилем.
N.i.k.o.l.a.y. вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
в чем ошибка?? Gnomik Visual C++ 0 28.10.2011 15:33
В чем ошибка? L6go1as Общие вопросы C/C++ 8 26.10.2011 15:29
В чем ошибка? DartDayring Visual C++ 5 09.11.2010 23:39
В чем ошибка? jahongir007 Помощь студентам 4 12.06.2009 10:25