Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
Автор: fs444 (18.08.2009 в 11:27) Пишу
//--------------------------------------------------------------------------- #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; } //---------------------------------------------------------------------------
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; } //---------------------------------------------------------------------------
Ваше имя:
Пароль:
Цитировать Используйте тэги для выделения текста: Код: [code][/code] Жирный: [b][/b] Наклонный: [i][/i] URL: [url][/url]
Сообщение:
Прикрепить: