Помогаем новичку.

[Fier]

Занялся самоизучением. Поставил с самого начала легкую задачку, сделать конвертор.


Написал все программу, но выдает такие ошибки.


Вот сам код программы:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char
&Key)
  {                                                                 ---- Здесь первую ошибку выдает
    if ((Key >= '0') && (Key <= '9'))
    return

    if (Key == DecimalSeparator)
    {
          if ((Edit1->Text).Pos(DecimalSeparator) !=0)
             Key = 0;
             return;
    }

    if (Key == VK_BACK)
       return;

    if (Key == VK_RETUEN)
        {
        Edit2->SetFocus();
        return;
        }

    Key = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{                                                                        ---------- Вторая
       if ((Key >= '0') && (Key <= '9'))
       return;

       if (Key == DecimalSeparator)
       {
         if ((Edit2->Text).Pos(DecimalSeparator) !=0)
         Key = 0;
         return;
       }

       if (Key == VK_BACK)
       return;

       if (Key == VK_RETURN)
       {
           Button1->SetFocus();
           return;
       };

       Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
       float usd;
       float k;
       float grn

       if (((Edit1->Text).Length() == 0))                             --------- Здесь третья
        {
           MessageDlg ("Надо ввести цену и курс",
              mtInformation, TMsgDlgButtons() << mbOK, |0);
            if ((Edit1->Text).Length() == 0)
              Edit1->SetFocus();
            else
              Edit2->SetFocus();
            return;
        };

        usd = StrToFloat (Edit1->Text);
        k = StrToFloat (Edit2->Text);

        grn = usd * k;

        Label4-Caption = FloatToStrF (usd, ffGeneral,7,2) +            --------Здесь четвертая
                   "$ = "+FloatToStrF(grn,ffGeneral,7,2) + " грн. " ;

}                                                               -------- И Пятая
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Form1->Close();
}
//---------------------------------------------------------------------------

помогите чайнику.

[Пепел Феникса]

вы обработчики событий создавали от IDE или сами от балды написали?

[Sam Gold]

1)Создавайте обработчики событий от IDE
2)

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char
&Key)
{ ---- Здесь первую ошибку выдает
if ((Key >= '0') && (Key <= '9'))
return;

3)

float grn;

if (((Edit1->Text).Length() == 0))

4)Пропущен параметр перед | или написана лишняя |

MessageDlg ("Надо ввести цену и курс",
mtInformation, TMsgDlgButtons() << mbOK, 0);

5)

Label4->Caption = FloatToStrF (usd, ffGeneral,7,2) +"$ = "+FloatToStrF(grn,ffGeneral,7,2 ) + " грн. " ;

[Fier]

Осталось только 1-2. Почему оно на скобках ругается - не понимаю. 1-2 ошибки остались те же.

3-4) Тут код изменился так вот:

if (((Edit1->Text).Length() == 0) ||
                 ((Edit2->Text).Length() == 0))
        {
           MessageDlg ("Надо ввести цену и курс",
              mtInformation, TMsgDlgButtons() << mbOK, |0);
            if ((Edit1->Text).Length() == 0)
              Edit1->SetFocus();
            else
              Edit2->SetFocus();
            return;
        };

Пересоздал программу, использую уже стандартные обработчики событий которые С-Билдер присваивает. Все равно ругается.
Работаю по этой книге - самый первый пример. -> C++ Builder в задачах и примерах

Автор: Культин Н. Б.
Издательство Санкт-Петербург ХВ-Петербург
Год выпуска:2005
Язык: Русский
Страниц: 335
Формат: PDF

[Fier]

Вот еще код:

//---------------------------------------------------------------------------

#ifndef KonvertorH
#define KonvertorH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TEdit *Edit1;
        TEdit *Edit2;
        TButton *Button1;
        TButton *Button2;
        TLabel *Label1;
        void __fastcall Edit1Change(TObject *Sender);
        void __fastcall Edit2Change(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

[wm_leviathan]

Сообщение от Fier

Осталось только 1-2. Почему оно на скобках ругается - не понимаю. 1-2 ошибки остались те же.

3-4) Тут код изменился так вот:
if (((Edit1->Text).Length() == 0) ||
((Edit2->Text).Length() == 0))
{
MessageDlg ("Надо ввести цену и курс",
mtInformation, TMsgDlgButtons() << mbOK, |0);
if ((Edit1->Text).Length() == 0)
Edit1->SetFocus();
else
Edit2->SetFocus();
return;
};


Пересоздал программу, использую уже стандартные обработчики событий которые С-Билдер присваивает. Все равно ругается.
Работаю по этой книге - самый первый пример. -> C++ Builder в задачах и примерах

Автор: Культин Н. Б.
Издательство Санкт-Петербург ХВ-Петербург
Год выпуска:2005
Язык: Русский
Страниц: 335
Формат: PDF

какие именно ошибки ? убрал | перед нулем все компилится нормально.

ам где 4я ошибка Label4-Caption должно быть Label4->Caption

[Fier]

Это Все изменил, все окей. выдается только:

[C++ Error] Konvertor.cpp(19): E2316 '_fastcall TForm1::Edit1Change(TObject *,char &)' is not a member of 'TForm1'
[C++ Error] Konvertor.cpp(44): E2316 '_fastcall TForm1::Edit2Change(TObject *,char &)' is not a member of 'TForm1'

[wm_leviathan]

_fastcall TForm1::Edit1Change у вас в проекте есть ? я в выше указанных кодов невижу этих событий там только KeyPress. в Unit1.h добавте эти процедуры их там вроде щас нет так вы писали от балды по книге а не обрабатывали события так как хочет того с++ builder. ну или вообще их удалите если они не нужны.

[Fier]

Я сейчас переписал код наново:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Konvertor.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender, char &Key)
  {
  if ((Key >= '0') && (Key <= '9'))
    return

    if (Key == DecimalSeparator)
    {
          if ((Edit1->Text).Pos(DecimalSeparator) !=0)
             Key = 0;
             return;
    }

    if (Key == VK_BACK)
       return;

    if (Key == VK_RETUEN)
        {
        Edit2->SetFocus();
        return;
        }

    Key = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit2Change(TObject *Sender, char &Key)
{
    if ((Key >= '0') && (Key <= '9'))
       return;

       if (Key == DecimalSeparator)
       {
         if ((Edit2->Text).Pos(DecimalSeparator) !=0)
         Key = 0;
         return;
       }

       if (Key == VK_BACK)
       return;

       if (Key == VK_RETURN)
       {
           Button1->SetFocus();
           return;
       };

       Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 float usd;
       float k;
       float grn;

       if (((Edit1->Text).Length() == 0) ||
                 ((Edit2->Text).Length() == 0))
        {
           MessageDlg ("Надо ввести цену и курс",
              mtInformation, TMsgDlgButtons() << mbOK, 0);
            if ((Edit1->Text).Length() == 0)
              Edit1->SetFocus();
            else
              Edit2->SetFocus();
            return;
        };

        usd = StrToFloat (Edit1->Text);
        k = StrToFloat (Edit2->Text);

        grn = usd * k;

        Label1->Caption = FloatToStrF (usd, ffGeneral,7,2) +
                   "$ = "+FloatToStrF(grn,ffGeneral,7,2) + " грн. " ;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

[wm_leviathan]

Konvertor.h там должны быть описаны все процедуры EditChange ButtonClick и т.д.