конструктор

Приклад 1:
Однак, завдяки безмежній фантазії мас, безликі й сірі раніше спальні райони стають дедалі барвистішими, калейдоскопічнішими, скидаючись не так на Лас-Вегас, як на збільшений конструктор Леґо. Як відомо, з невеликого набору стандартних елементів цієї забавки дитяча уява здатна витворити справжню казку.
— Невідомий автор, “036 Izdrik Iurii Fleshka 2Gb”

Приклад 2:
Текст програми : int f; // Дескриптор оголошено глобально __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) // Конструктор форми SG1->Cells[0][0]=”Назва області”; SG1->Cells[1][0]=”Обласний центр”; SG1->Cells[2][0]=”Кільк.жителів”; SG1->ColWidths[0]=80; SG1->ColWidths[1]=70; SG1->ColWidths[2]=70; // Тут SG1 – нове значення властивості Name компонента StringGrid1 Розділ 11 386 void __fastcall TForm1::FormCreate(TObject *Sender) if( FileExists(“obl.txt”) )// Перевірка наявності файла f = FileOpen(“obl.txt”,fmOpenWrite);// і відкриття його. else // Якщо файл є відсутній, f = FileCreate(“obl.txt”);// створити його.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 3:
“, mtConfirmation, mbOKCancel, 0); матиме вигляд: Розділ 11 404 Текст програми // Глобальні оголошення struct avio_struct char num[5], from[20], to[20], all_time[6]; TDateTime start_time, last_time; AnsiString info( ) return AnsiString(num) + ” ” + (AnsiString)from + ” ” + (AnsiString)to + ” ” + start_time.TimeString( ) + ” ” + last_time.TimeString( )+” “+(AnsiString)all_time; ; int size = sizeof(avio_struct); // Розмір структури avio_struct w; // Змінна типу структури int f; // Дескриптор char s[]=”a.dat”; // Ім’я файла __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) // Конструктор форми if (!FileExists(s)) // Якщо такого файла не існувало, f=FileCreate(s); // він створюється. FileClose(f); SG1->Cells[0][0]=”Номер рейсу”; SG1->Cells[1][0]=”Пункт відправлення”; SG1->Cells[2][0]=”Пункт прибуття”; SG1->Cells[3][0]=”Час відправлення”; SG1->Cells[4][0]=”Час прибуття”; SG1->Cells[5][0]=”Тривалість”; // Кнопка “Записати до файла” void __fastcall TForm1::Button1Click(TObject *Sender) AnsiString s1,s2; strcpy(w.num,Edit1->Text.c_str( )); strcpy(w.from,Edit2->Text.c_str( )); strcpy(w.to,Edit3->Text.c_str( )); w.start_time=Edit4->Text; strcpy(w.all_time,Edit5->Text.c_str( )); s1=(AnsiString)w.all_time; int n=StrToInt(s1.SubString(1,s1.Pos(‘:’)-1)); if (n>=24) n=n%24; // Створення шаблону
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”