Euroblütenfinder

PomBär

hallo
ich hab vor einiger zeit ein euroblütenberechner programmiert (teilweise abgeschrieben).
soweit ich weis funktioniert er, allerdings verstehe ich die zusammenhänge nicht mehr so richtig. was bedeutet z.b. StrToInt(zahl[i]) ????
könnte mir bitte jemand das programm schritt für schritt erklären??? vorallem der untere teil bereitet mir kopfzerbrechen.

oid __fastcall TForm1::Button1Click(TObject *Sender)
{
int quer=0;
String zahl;
int zwisch=0;

for(int i=1;i <= 11;i++)
{
quer = quer + StrToInt(Edit1->Text[i]);

}

switch(RadioGroup1->ItemIndex)
 {
  case 0: quer = quer+26; break;
  case 1: quer = quer+24; break;
  case 2: quer = quer+12; break;
  case 3: quer = quer+21; break;
  case 4: quer = quer+25; break;
  case 5: quer = quer+20; break;
  case 6: quer = quer+19; break;
  case 7: quer = quer+18; break;
  case 8: quer = quer+16; break;
  case 9: quer = quer+14; break;
  case 10: quer = quer+13; break;
  case 11: quer = quer+22; break;
 }
//quer = quer + StrToInt(Label1->Caption);

zahl = IntToStr(quer);

for( int i=1 ; i<=zahl.Length() ; i++)
 {
  zwisch = zwisch + StrToInt(zahl[i]);
 }

zahl = IntToStr(zwisch);

Label1->Caption = zahl;
if(zwisch == 8)
{
 Label7->Caption = "ist ein echter Schein";
 Label8->Caption = "Cool!";
}
else
{
 Label7->Caption = "Is eine Blüte";
 Label8->Caption = "Schade!";
}

}

danke

junix

Also mal davon abgesehen, dass die Formatierung der Funktion ne absolute katastrophe ist und man eigentlich wieder mal die typische BCB "ich pack alles in die Button-Klick-Funktion-Rein"-Mentalität raussieht, helf ich dir natürlich gerne die Funktion zu verstehen.

quer = quer + StrToInt(Edit1->Text[i]);

BCB-Hilfe: zum Thema StrToInt
BCB-Hilfe: Methoden von AnsiString, "operator []"

switch(RadioGroup1->ItemIndex)

BCB-Hilfe: TRadioGroup Eigenschaft ItemIndex

zahl = IntToStr(quer);

BCB-Hilfe: IntToStr

Ich hab mir jetzt nicht die Mühe gemacht, was genau für ein Modus verwendet wird um zu ermitteln ob der Euroschein eine Blüte ist oder nicht. Diese gesetzmässigkeiten kannst du bestimmt selbst ableiten oder kennst diese.

-junix