|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.03.2013, 00:34 | #1 |
Новичок
Джуниор
Регистрация: 08.03.2013
Сообщений: 2
|
Возникла проблема с кодом для Delphi
Ребята, если не сложно посмотрите мой код, мне нужно что бы с его помощью я мог вычислить сумму x,y,z и если можете подскажите почему имея этот код в формате .pas я открывая файл в Borland Delphi не могу скомпилировать его в экзешку? Заранее премного благодарен!
Вот код: unit Nomer132323; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; Calculate: TButton; procedure FormCreate(Sender: TObject); procedure CalculateClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x:integer; y:integer; z:integer; s,rez:real; implementation {$R *.dfm} procedure TfrmMain.FormCreate(Sender: TObject); begin edt_X.Text:='0';// начальное значение X edt_Y.Text:='0';// начальное значение Y edt_Z.Text:='0';// начальное значение Z end; procedure TfrmMain.btnRunClick(Sender: TObject); var x,y,z,s:extended;// объявление локальных переменных begin x:=StrToFloat(edt_X.Text);// x присваивается содержимое edt_X y:=StrToFloat(edt_Y.Text);// y присваивается содержимое edt_Y z:=StrToFloat(edt_Y.Text); // Вычисление выражения s:=x+y+z; Label1.Visible:=True; Label1.Caption:=('Результат w='+FloatToStrF(s,ffFixed,9,5)); end; procedure TfrmMain.Button1Click(Sender: TObject); begin close; end; end. |
08.03.2013, 00:38 | #2 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Потому что еще .dfm нужен
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 08.03.2013 в 00:46. |
|
08.03.2013, 00:42 | #3 | |||||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
после этого окажется, что из модуля (unit) нельзя получить EXE-шник. Цитата:
UPDATE а потом ещё выяснится, что в модуле путаница с именами: Цитата:
Цитата:
ну, про такую мелочь, как: Цитата:
Последний раз редактировалось Serge_Bliznykov; 08.03.2013 в 00:48. |
|||||
08.03.2013, 00:46 | #4 |
Новичок
Джуниор
Регистрация: 08.03.2013
Сообщений: 2
|
ребят, прошу не считайте меня слабоумным,( сегодня первый раз в жизни столкнулся с дельфи, до этого минимально в паскале мастерили чтото на программировании в колледже, а потому знания мои стремятся к 0), но как мне создать файл проекта и *dfm ???
|
08.03.2013, 03:23 | #5 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
Просто =) File => New ... => VCL Application как-то так. А там компонент-кидательство и код.
Учтите все написанное от Serge_Bliznykov. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возникла проблема | Александр8912 | HTML и CSS | 2 | 23.11.2012 21:07 |
[Delphi 7] Проблема с кодом - убрать из кода работу с INI файлов | -Jack- | Помощь студентам | 2 | 25.05.2012 21:21 |
Возникла проблема с++ | GanJIk | Помощь студентам | 2 | 28.02.2012 23:45 |
Установил Delphi 2009 возникла проблема | mr_Smitt | Помощь студентам | 6 | 18.09.2009 22:18 |
Программа для создания аватар, возникла проблема! | Obender13 | Помощь студентам | 4 | 12.08.2009 20:32 |