Ребят,помогите << На главную или назад  

18 ответов в теме “Ребят,помогите”

1. 18
   Андрей Ковальчук ответил:
   16 марта 2010 в 20:05

   Отлично!

2. 17
   Алексей Зеленов ответил:
   16 марта 2010 в 15:05

   Андрей

   Всё работает:)
   После твоей команды надо ещё энд ставить:)

3. 16
   Алексей Зеленов ответил:
   15 марта 2010 в 21:04

   ('' is not valid integer value )
   Вот такая:)

4. 15
   Андрей Ковальчук ответил:
   15 марта 2010 в 21:03

   Какая ошибка?

5. 14
   Алексей Зеленов ответил:
   15 марта 2010 в 20:00

   Андрей

   Ты проверял команду?
   У меня чё то не работает,всё равно выдает ошибку ''типа заполните все поля''.

6. 13
   Андрей Ковальчук ответил:
   15 марта 2010 в 8:02

   Правильно так:
   ——————————————————————–

   procedure TForm2.Button1Click(Sender: TObject);
   begin

   Ploschad:=StrToInt(Edit1.Text);
   if Edit1.Text:='' then
   Edit1.Text:='0';

   {Далее продолжение твоего кода}
   …
   …
   …
   label3.Caption:='Итог '+FloatToStr(itog);
   End;

   End.

7. 12
   Гоша Филин ответил:
   15 марта 2010 в 0:01

   Если дашь полный код в личку то сделаю.

8. 11
   Гоша Филин ответил:
   15 марта 2010 в 0:01

   Код обязательно весь. От самого начала до конца.

9. 10
   Алексей Зеленов ответил:
   14 марта 2010 в 23:05

   Не получается:(я всё пере пробовал:(

   Смотри:
   procedure TForm2.Button1Click(Sender: TObject);
   begin

   Ploschad:=StrToInt(Edit1.Text);
   …
   …
   …
   Далее подобных строк много.
   …
   …
   label3.Caption:='Итог '+FloatToStr(itog);
   End;

   End.

   Ты составь сам команду,пожалуйста.и добавь в этот код.

10. 9
    Алексей Зеленов ответил:
    14 марта 2010 в 22:05

    Усё понял:-D
    Остается вопрос где это именно писать:)
    Ну это думаю сам подберу;)
    Спасибо!

11. 8
    Гоша Филин ответил:
    14 марта 2010 в 22:05

    Procedure TForm2.Button1Click(Sender: TObject);

    Begin

    Вот тут писать))

    End;

    end.
    __________________________
    В интернете то пичитай про оператор if))

12. 7
    Гоша Филин ответил:
    14 марта 2010 в 22:05

    Если что то неполучится то пиши здесь или в личку)

13. 6
    Гоша Филин ответил:
    14 марта 2010 в 21:03

    if Edit="" then
    begin
    Edit:=0;
    end;
    Я раньше программировал на делфи, так что компилятора нет проверить сам немогу. Этот код должен действовать)
    _____________________________
    Обьясняю:
    if – если,
    then – то.
    Получаеться:
    если поле ввода="" то
    поле ввода приравниваеться к нулю.
    "" – это две кавычки, обозначают что в поле ввода Edit нихуя нет))
    _________________________________
    Понял что-нибудь??)

14. 5
    Алексей Зеленов ответил:
    14 марта 2010 в 21:02

    Короче прога должна считать стоимость натяжного потолка.там всякие поля типа кол-во углов,люстры,и типа того.когда одно из полей пустое то она выдает ошибку типа ''заполните все поля''-это понятно.мне надо чтоб если поле пустое то прога его приравнивала к 0.

    Procedure TForm2.Button1Click(Sender: TObject);

    Begin

    Далее сам движок:)

    End;

    end.

15. 4
    Гоша Филин ответил:
    14 марта 2010 в 20:05

    Ой бля, учитель из меня некудышный, но всё-таки попробую обьяснить))
    Только ты хотя бы дай исходник программы, и скажи что должна прога выполнять если поле ввода текста пустое??)

16. 3
    Алексей Зеленов ответил:
    14 марта 2010 в 20:04

    Слушай чувак:-D
    Это всё сложно для меня:)я тока начал изучать программирование.ты можешь мне подробней обьяснить(где писать,зачем писать и почему именно так).
    А то у меня уже мозг кипеть начинает

17. 2
    Алексей Зеленов ответил:
    14 марта 2010 в 20:04

    Желательно на моём вопросе;)

18. 1
    Гоша Филин ответил:
    14 марта 2010 в 20:01

    Почему именно к нулю?
    Если ты хочешь что бы программа выполняла какое то действие если Edit пустой, то это делаеться так:
    if Edit="" then
    begin
    функция, которую прога выполняет
    end;