[C++ Builder] Podmínka while

[pYr0]

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

[pYr0]

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

[KtK]

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..

[pYr0]

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(); 
}

[pYr0]

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

[Kaltas]

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

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

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

[Rainbow]

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

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

Alebo takto:

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

Alebo takto:

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.

[Anduril]

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).

[pYr0]

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

[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

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.

[Anduril]

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

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.

[pYr0]

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