Код выводит пустые строки

[fs444]

Код

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

#include <vcl.h>
#pragma hdrstop

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



void __fastcall TForm1::Button1Click(TObject *Sender)
{
static int i = 0;
 char prev[24], next[24], count[][8] =
  {
   "Девять\0", "Восемь\0", "Семь\0", "Шесть\0", "Пять\0", "Четверо\0", "Трое\0", "Двое\0", "Один из\0", "Нет"
  };
 if (i == 9) return;
 strcpy(prev, count[i++]); strcat(prev, " негритят");
 ListBox1->Items->Append(prev);
 strcpy(next, count[i]); strcat(next, " негритят");
 Edit1->Text = next;
}        

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 ListBox1->Items->Append(" ");
 ListBox1->Items->Append(prev);
 ListBox1->Items->Append("      Пошли купаться в море");
 ListBox1->Items->Append(prev);
 ListBox1->Items->Append("      Резвились на просторе");
 ListBox1->Items->Append("      Один из них утоп");
 ListBox1->Items->Append("      Ему купили гроб");
 ListBox1->Items->Append("      И вот вам результат");        
}
//---------------------------------------------------------------------------

при поочередном нажатии кнопок "Результат" (Button1Click) и "Новый куплет" (Button2Click) должен выдавать текст

Десять негритят
Пошли купаться в море
Десять негритят
Резвились на просторе
Один из них утоп
Ему купили гроб
И вот вам результат...
Девять негритят

Девять негритят
Пошли купаться в море
Девять негритят
Резвились на просторе
Один из них утоп
Ему купили гроб
И вот вам результат...
Восемь негритят

А у меня получается

Десять негритят
Пошли купаться в море
Десять негритят
Резвились на просторе
Один из них утоп
Ему купили гроб
И вот вам результат...
Девять негритят


Пошли купаться в море

Резвились на просторе
Один из них утоп
Ему купили гроб
И вот вам результат...
Восемь негритят

То есть в двух строчках вместо "Девять негритят" печатается пустое место. Почему так получается?

[Stilet]

ListBox1->Items->Append(prev);

Ты уверен что prev виден в этом участке кода?

[Sazary]

Однозначно не виден )
Странно, что у ТС вообще это скомпилилось. Мне компилятор сразу ругнулся на неизвестный идентификатор.

Если сделать prev глобальной, то все работает.

[pu4koff]

Еще и строки про десять негритят в этом коде не получить, а ТС говорит, что вывелись они. Так что код левый какой-то или результаты выполнения

[fs444]

Нормально компилируется))
В unit.h у меня такой код.

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TListBox *ListBox1;
        TButton *Button1;
        TEdit *Edit1;
        TButton *Button2;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
char prev[24];
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Здесь prev вроде как объявлена.

[Sazary]

Сообщение от fs444

Здесь prev вроде как объявлена.

Да, но объявление локальной переменной prev в обработчике кнопки перекрывает глобальное. В итоге в обработчике первой кнопки вы работаете с локальной переменной (и после этого теряете ее значение), а в обработчике второй кнопки - с глобальной, в которой ничего нет.

[fs444]

Поставил блок

char prev[24], next[24], count[][8] =
  {
   "Девять\0", "Восемь\0", "Семь\0", "Шесть\0", "Пять\0", "Четверо\0", "Трое\0", "Двое\0", "Один из\0", "Нет"
  };

после

TForm1 *Form1;

и убрал изо всех других мест упоминание о prev, и все заработало
Странно, почему в книжке сделано так, как я показал в первом посте?

[Sazary]

Сообщение от fs444

Странно, почему в книжке сделано так, как я показал в первом посте?

Ничего странного ) В книгах довольно часто встречаются опечатки и неточности.