|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.08.2008, 16:53 | #1 | |
Форумчанин
Регистрация: 11.08.2008
Сообщений: 139
|
Народ подскажити вчём проблема при запуске скрипта?
вот скрипт
Цитата:
|
|
13.08.2008, 17:00 | #2 |
Пользователь
Регистрация: 19.06.2008
Сообщений: 16
|
TForml.ButtonlClick у тебя здесь латинские "L" а должны быть 1
TForm1.Button1Click Таким же макаром здесь w:=StrToFloat(Editl.text); w:=StrToFloat(Edit1.text); |
13.08.2008, 17:03 | #3 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Вы неправильно работаете с книгой. Надо так:
1. Открыть Делфи и сразу сохранить проект в отдельную папку. 2. Разобраться какие компоненты нужны программе. Расположить их в нужном порядке на форме и выставить необходимые свойства. 3. Затем надо указать событие на которое должен реагировать каждый компонент. И уже писать код в то событие. Особенно обращаю внимание на 3 пункт...... Если тупо скопироать код и неуказать события, то ничего работать небудет... + какие ошибки вылетают?
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
13.08.2008, 17:08 | #4 |
Форумчанин
Регистрация: 11.08.2008
Сообщений: 139
|
умя ещё пишет ошибку вот такого формата в самом начале
[Error] Unit1.pas(2): Unit identifier 'wtest_' does not match file name чёт эт получаетца что Unit1 менять нельзя? эт переименовал затем ошибка вылитает в строке ($R *.DFM} |
13.08.2008, 17:19 | #5 |
Пользователь
Регистрация: 19.06.2008
Сообщений: 16
|
Пробуй так ставишь на форму два Edit-а один Label и один Button
Вставляешь этот код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var w:real; h:real; opt:real; d:real; begin w:=StrToFloat(Edit1.text); h:=StrToInt(Edit2.Text); opt:=h-100; if w=opt then Label1.caption:='Вы в хорошей форме' else if w < opt then begin d:=opt-w; Label1.caption:='Вам надо поправиться на '+ FloatToStr(d)+ ' кг.'; end else begin d:=w-opt; Label1.caption:='Вам нужно похудать на '+ FloatTostr(d)+ ' кг.'; end; end; end. Должно работать. кстати в учебниках все примеры с ошибками, чтоб не тупо переписывали, а ещё и башкой думали. |
13.08.2008, 17:46 | #6 |
Форумчанин
Регистрация: 11.08.2008
Сообщений: 139
|
спасибо за разъеснение всё вроде заработало) терь буду пытаца думать головой)
Последний раз редактировалось Lorden; 13.08.2008 в 17:52. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Очистка папки из php-скрипта. | Def@ult | PHP | 11 | 19.02.2015 12:21 |
Народ помогите реально большая проблема с совместным доступом к екселевской книгой | cyberguru | Microsoft Office Excel | 15 | 22.08.2008 16:28 |
Исполнение скрипта для AutoCad | Stilet | Помощь студентам | 2 | 07.07.2008 08:17 |
Проблема с выполнением скрипта | Seqular | HTML и CSS | 1 | 12.08.2007 03:54 |
Установка скрипта на сервер | Viteef | Свободное общение | 0 | 08.08.2007 05:10 |