[C++ Builder] Podmínka while

Zdravím. Nevíte kde mám chybu v podmínke ??? Aj ked v editačních poliach nechám 0 alebo prázdne aj tak sa my príkazi pod nou, resp. v nej vykonajú a samozrejme sa to zbortí :| Dík za odpovede.

Unit1.cpp

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
TSpotreba::TSpotreba(double SSpalene_litre, double DDlzka_cesty, double VVisledok)
{ Spalene_litre = SSpalene_litre;
Dlzka_cesty = DDlzka_cesty;
Visledok = VVisledok;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ TSpotreba *Vypocet;
while (Edit1->Text, Edit2->Text != "0", "" )

Vypocet = new TSpotreba(Edit1->Text.ToDouble(), Edit2->Text.ToDouble(),
(Edit1->Text.ToDouble() / Edit2->Text.ToDouble()) *100);
Edit3->Text = FloatToStr(Vypocet->Visledok);

ShowMessage("Priemerná spotreba paliva na 100 kilometrov je " + FloatToStr(Vypocet->Visledok) + " litrov.");

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Konec1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit3->Clear();
} A hlavičkový

class TForm1 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TEdit *Edit2;
TEdit *Edit3;
TButton *Button1;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TMainMenu *MainMenu1;
TMenuItem *Monosti1;
TMenuItem *Konec1;
TMenuItem *Oprograme1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Oprograme1Click(TObject *Sender);
void __fastcall Konec1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
class TSpotreba
{
public:
double Spalene_litre, Dlzka_cesty, Visledok;
TSpotreba(double SSpalene_litre, double DDlzka_cesty, double VVisledok);
};
#endif

Jinak sorry že sem to sem tak blbo dal a je to trocha neprehladné :?

Citace:

---

Původně odeslal Pyroteam

Jinak sorry že sem to sem tak blbo dal a je to trocha neprehladné :?

---

pouzij znacku [_code_] [_/code_](samo bez podtrzitek), hned to bude prehlednejsi..

Kód:

---

class TForm1 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TEdit *Edit2;
TEdit *Edit3;
TButton *Button1;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TMainMenu *MainMenu1;
TMenuItem *Monosti1;
TMenuItem *Konec1;
TMenuItem *Oprograme1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Oprograme1Click(TObject *Sender);
void __fastcall Konec1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
class TSpotreba
{
public:
double Spalene_litre, Dlzka_cesty, Visledok;
TSpotreba(double SSpalene_litre, double DDlzka_cesty, double VVisledok);
};
#endif

Unit1.cpp

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
TSpotreba::TSpotreba(double SSpalene_litre, double DDlzka_cesty, double VVisledok)
{ Spalene_litre = SSpalene_litre;
Dlzka_cesty = DDlzka_cesty;
Visledok = VVisledok;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ TSpotreba *Vypocet;
while (Edit1->Text, Edit2->Text != "0", "" )

Vypocet = new TSpotreba(Edit1->Text.ToDouble(), Edit2->Text.ToDouble(),
(Edit1->Text.ToDouble() / Edit2->Text.ToDouble()) *100);
Edit3->Text = FloatToStr(Vypocet->Visledok);

ShowMessage("Priemerná spotreba paliva na 100 kilometrov je " + FloatToStr(Vypocet->Visledok) + " litrov.");

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Konec1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit3->Clear();
}

---

Inak musím podotknúť že While my nefunguje v dalších mojich aplikaciach :-(

Nejsem sice nijakej programátor v C++ (bohužel), ale myslím, že problém bude tady:

Kód:

---

while (Edit1->Text, Edit2->Text != "0", "" )

---

ty čárky tam IMHO nemají co dělat

Presne - su tam popisane nejake blbosti. Co ma akoze robit ten riadok s tym while ???
Takto by som to pochopil:

Kód:

---

while (Edit2->Text != "0")

---

Alebo takto:

Kód:

---

while (Edit1->Text !=  "0" && Edit2->Text != "0")

---

Alebo takto:

Kód:

---

while (Edit1->Text !=  "0" && Edit2->Text != "0" && Edit1->Text !=  "" && Edit2->Text != "")

---

BTW.: Tam sa daju retazce porovnavat cez == a != ??? V cecku nie som ziadny expert, ale vzdy som to robil cez funkciu strcmp a pod.

Přesně, ty čárky tam nepatří! Řetězce by měly jít takhle porovnat. Alespoň třeba v C++ s použitím MFC CString nebo wxWindows wxString to tak jde (u MFC to nevím na 100%), ale u wxString je to na 100% - porovnávací operátory pro třídu wxString. Takže Borland zavedl asi něco podobného (stejného). Jinak v Céčku se to dá jen přes strcmp (stricmp).

No ja neviem ??? Doteraz som robil pomocou if, a while som nikdy nepotreboval :-) Inak mám to ošetrené pomocou try-catch, len som chcel vedieť prečo to nešlo :-)

Operator carka se pouziva zridkakdy a funguje tak, ze se spocita vyraz vlevo od carky, vysledek se zahodi a nasledne se se spocita vyraz napravo od carky.

Vysledkem vyrazu

Kód:

---

Edit1->Text, Edit2->Text != "0", ""

---

je ukazatel na prazdny retezec (tedy vlastne na '\0') coz bude zrejme vzdycky cislo ruzne od nuly a podminka bude tedy vzdy splnena.

Citace:

---

Původně odeslal miho

Operator carka se pouziva zridkakdy a funguje tak, ze se spocita vyraz vlevo od carky, vysledek se zahodi a nasledne se se spocita vyraz napravo od carky.

Vysledkem vyrazu

Kód:

---

Edit1->Text, Edit2->Text != "0", ""

---

je ukazatel na prazdny retezec (tedy vlastne na '\0') coz bude zrejme vzdycky cislo ruzne od nuly a podminka bude tedy vzdy splnena.

---

Tak o tom jsem nikdy neslyšel...dobré to vědět.

Taky sem na to čumel :-o Prečítal som už tolko kních ale v ani jednej to nebolo napísané :roll: