C++ builder error

Question

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int szyfr=0;
 AnsiString slowo1;
 String slowo;
 char uno[999999];

 char gadery( char p)
{

        switch(p){
        case 'g': return 'a'; break;
        case 'a': return 'g'; break;
        case 'd': return 'e'; break;
        case 'e': return 'd'; break;
        case 'r': return 'y'; break;
        case 'y': return 'r'; break;
        case 'p': return 'o'; break;
        case 'o': return 'p'; break;
        case 'l': return 'u'; break;
        case 'u': return 'l'; break;
        case 'k': return 'i'; break;
        case 'i': return 'k'; break;
        default: return p;

        }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GADERYPOLUKI1Click(TObject *Sender)
{
szyfr=1;
  Label1->Caption="Wybrałeś GADERYPOLUKI";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::POLITYKARENU1Click(TObject *Sender)
{
 szyfr=2;
  Label1->Caption="Wybrałeś POLITYKARENU";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KONIECMATURY1Click(TObject *Sender)
{
  szyfr=3;
  Label1->Caption="Wybrałeś KONIECMATURY";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KACEMINUTOWY1Click(TObject *Sender)
{
 szyfr=4;
  Label1->Caption="Wybrałeś KACEMINUTOWY";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KALUPINORETY1Click(TObject *Sender)
{
        char szyfr=5;
         Label1->Caption="Wybrałeś KALUPINORETY";

}
//---------------------------------------------------------------------------
void __fastcall TForm1::MORS1Click(TObject *Sender)
{
 szyfr=6;
         Label1->Caption="Wybrałeś MORS'A";

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{  if(szyfr!=0)
        {
                slowo=Memo1->Lines->GetText();
               
                switch(szyfr)
                {
                case 1:
                          for(int i=0;i<slowo.Length();i++)
                    {
                        Label2->Caption+=gadery(slowo[i]);

                    }

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

Proszę o pomoc, wyskakuje błąd krytyczny. Co zepsułem?

Comments

Pokaż ten komunikat.

---

....

---

a trochę czytelniejszy...

---

Proszę

---

Coś z pamięcią. Możliwe, że używasz usuniętych wskaźników. Debuger nic nie mówi?

---

W programie nie używam żadnych wskaźników, a sam problem pojawia się tylko gdy używam iteratora i, żeby wydobyć jakiś znak ze słowa, jak używam liczby to nie ma problemu

np

for(int i=0;i<slowo.Length();i++)

                    {

                        Label2->Caption+=gadery(slowo[i]);

 

                    }

Nie działa

Label2->Caption+=gadery(slowo[2]);

Działa

---

->

To jest wskaźnik. 

Length() na pewno z wielkiej? Bardziej Ci nie pomogę, bo nie znam się na tym środowisku. Możesz poszukać na stacku, albo po prostu w sieci. Z tego co widzę jest kilka podobnych problemów. 

---

@Pawel1452,   gadery a jaki typ? gadery(i tu) a bez znaku +=  tylko =. 

Answer 1

for (int i = 0; i < slowo.Length(); i++) {
    Label2->Caption += gadery(slowo[i]);
}

AFAIK indeksowanie w AnsiStringu jest od 1, a nie od 0, jak ma to miejsce w cywilizowanych językach (VCL -> Delphi -> Pascal).

 

BTW używanie C++ Bulidera 6 u schyłku 2019 roku, to jak puszczenie bąka w towarzystwie dam :) Używaj współczesnych środowisk programistycznych.