Co tu jest zle?

Question

Troche tego nie rozumem ale koncepcja jest chyba dobra?

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

#include <vcl.h>
#pragma hdrstop

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


void __fastcall TForm1::Button6Click(TObject *Sender)
{
   int liczba=1;
    AnsiString liczb;
   liczb=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
   int liczba=2;
    AnsiString liczb1;
   liczb1=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb1);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
        int liczba=3;
      AnsiString liczb;
   liczb=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
   int liczba=4;
      AnsiString liczb;
   liczb=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   int liczba=5;
          AnsiString liczb;
   liczb=IntToStr(liczba);
  Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
   int liczba=6;
           AnsiString liczb;
   liczb=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int liczba=7;
         AnsiString liczb;
   liczb=IntToStr(liczba);
  Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
   int liczba=8;
    AnsiString liczb;
   liczb=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   int liczba=9;
         AnsiString liczb;
   liczb=IntToStr(liczba);
  Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button15Click(TObject *Sender)
{
   int liczba=0;
         AnsiString liczb;
   liczb=IntToStr(liczba);
  Memo1->Lines->Text=(Memo1->Text+liczb);
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button16Click(TObject *Sender)
{

    AnsiString znak="?";
   Memo1->Lines->Text=(znak);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
        int zzz,yyy,www;
      AnsiString wynik;
      zzz=StrToInt(liczb);
      yyy=StrToInt(liczb1);
      www=zzz+yyy;
      wynik=IntToStr(www);
      Memo1->Lines->Text=(wynik);
}
//---------------------------------------------------------------------------

Po nacisnieciu buttona pokazuje sie error(is not valid intgervalue)- zeby nie bylo wiem co to znaczy tylko dlaczego, aplikacji.A i jeszce jedno te stringi(liczb,liczb1)sa podane i widoczne dla kodu buttona.

Answer 1

No więc tak, jeśli chcesz aby tekst przemieniało na liczbę musisz najpierw odpowiednio zdeklarować zmienne liczb i liczb1, na wypadek gdyby coś nie wczytało się przed konwersją, jak to ma miejsce u ciebie ale za chwile wyjaśnie, pierw deklaracja:

AnsiString liczb = "0";
AnsiString liczb1 = "0";

Jak tak zmienisz co napisałem sprawdz czy nie występuje już błąd.

Jedno co mnie martwi w kodzie to fakt że nie wiem czemu w jdnym z przycisków jest zmienna liczb1 a w pozostałych liczb.

Oto ten fragment kodu:

void __fastcall TForm1::Button9Click(TObject *Sender)
{
   int liczba=2;
    AnsiString liczb1;
   liczb1=IntToStr(liczba);
   Memo1->Lines->Text=(Memo1->Text+liczb1);
 
}
//---------------------------------------------------------------------------

Problem w kodzie leży tu:

zzz=StrToInt(liczb);
yyy=StrToInt(liczb1);

ponieważ w zmiennej liczb1 lub w zmiennej liczb jest NULL, zależy co nacisniesz najpierw.

Comments

Dziekuje bardzo to z tymi zmiennymi liczb to bład z wcześniejszych prób.

Answer 2

Podstawowa zasada: podawaj cały komunikat o błędzie bo on może być bardziej czytelny niż twoje tłumaczenia - zwłaszcza takie jak "pokazuje error". Nikt też nie jest w stanie tego uruchomić bez reszty kodu - a problem może wynikać z błędu w innej części kodu, więc im więcej informacji dostarczysz tym łatwiej zrozumieć kod bez potrzeby pokazywania całości.

Inna sprawa, że kod łatwiej się sprawdza gdy jest poprawnie sformatowany a zmienne sensownie nazwane.

Dla mnie kod jest czytelniejszy gdy są spacje z obu stroni = oraz gdy deklaracje lokalnych zmiennych od reszty kodu oddziela pusta linia.

Answer 3

Napisz co dokładnie znajduje się w tych zmiennych liczb i liczb1 oraz przepisz co dokładnie pisze w okienku z błędem.

A najlepiej jak wkleisz cały kod.