Show (); -> Show (); n = ListBox1-> ItemIndex; (ListBox1-> ItemIndex == 0)
} (ListBox1-> ItemIndex == 1)
{-> Caption = ListBox1-> Items-> Strings [n];
RichEdit1-> Lines-> LoadFromFile ("D: Оператори перетворення данних.rtf");
} (ListBox1-> ItemIndex == 2)
} (ListBox1-> ItemIndex == 3)
}
}
{-> DragMode = dmAutomatic; (RichEdit1-> Handle, WM_VSCROLL, MAKEWPARAM (SB_THUMBPOSITION, 50), 0);
}
{-> Clear (); -> Hide (); -> Close (); -> Show ();
}
{-> Close ();
}
{-> Clear (); -> Items-> Add ("Загальні");
ListBox1-> Items-> Add ("Оператори перетворення даних"); -> Items-> Add ("Оператори циклу"); -> Items-> Add ("Умовний оператор");
}
// ---------------------------------------- -----------------------------------
Файл Unit4.cpp
# include
# pragma hdrstop
# include "Unit4.h"
# include "Unit2.h"
# include "Unit1.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form4;
// ---------------------------------------- -----------------------------------
__fastcall TForm4 :: TForm4 (TComponent * Owner)
: TForm (Owner)
{
}
}
{-> Enabled = false;
}
{-> Show (); -> Show (); n = ListBox1-> ItemIndex; (ListBox1-> ItemIndex == 0)
}
(ListBox1-> ItemIndex == 1)
} (ListBox1-> ItemIndex == 2)
} (ListBox1-> ItemIndex == 3)
}
(ListBox1-> ItemIndex == 4)
} (ListBox1-> ItemIndex == 5)
} (ListBox1-> ItemIndex == 6)
} (ListBox1-> ItemIndex == 7)
} (List...
