Код
| Код | //---------------------------------------------------------------------------
#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) должен выдавать текст
| Цитата | Десять негритят Пошли купаться в море Десять негритят Резвились на просторе Один из них утоп Ему купили гроб И вот вам результат... Девять негритят
Девять негритят Пошли купаться в море Девять негритят Резвились на просторе Один из них утоп Ему купили гроб И вот вам результат... Восемь негритят
|
А у меня получается
| Цитата | Десять негритят Пошли купаться в море Десять негритят Резвились на просторе Один из них утоп Ему купили гроб И вот вам результат... Девять негритят
Пошли купаться в море
Резвились на просторе Один из них утоп Ему купили гроб И вот вам результат... Восемь негритят
|
То есть в двух строчках вместо "Девять негритят" печатается пустое место. Почему так получается? |