t=true;
for(int i=1;i<=4;i++){temp=StringGrid1->Cells[i][Tehnoviking+1];StringGrid1->Cells[i][Tehnoviking+1]=StringGrid1->Cells[i][Tehnoviking];StringGrid1->Cells[i][Tehnoviking]=temp;}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Family1Click(TObject *Sender)
{
AnsiString temp;
bool t=true;
while(t){
t=false;
for(int Tehnoviking=1;Tehnoviking<StringGrid1->RowCount-1;Tehnoviking++){
if(StringGrid1->Cells[1][Tehnoviking].AnsiCompare(StringGrid1->Cells[1][Tehnoviking+1])>0){
t=true;
for(int i=1;i<=4;i++){temp=StringGrid1->Cells[i][Tehnoviking+1];StringGrid1->Cells[i][Tehnoviking+1]=StringGrid1->Cells[i][Tehnoviking];StringGrid1->Cells[i][Tehnoviking]=temp;}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
for(int i=1;i<=4;i++)
for(int n=1;n<StringGrid1->RowCount;n++)
StringGrid1->Cells[i][n]="";
StringGrid1->RowCount=2;
for(int i=0;i<=4;i++)
for(int n=1;n<StringGrid2->RowCount;n++)
StringGrid2->Cells[i][n]="";
StringGrid2->RowCount=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Exit1Click(TObject *Sender)
{
exit(EXIT_SUCCESS);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::New1Click(TObject *Sender)
{
for(int i=1;i<=4;i++)
for(int n=1;n<StringGrid1->RowCount;n++)
StringGrid1->Cells[i][n]="";
StringGrid1->RowCount=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
for(int i=0;i<=4;i++)
for(int n=1;n<StringGrid2->RowCount;n++)
StringGrid2->Cells[i][n]="";
StringGrid2->RowCount=2;
if(Edit1->Text!=""){
if((ComboBox1->ItemIndex==0)||(ComboBox1->ItemIndex==4)){
for(int i=1;i<StringGrid1->RowCount;i++){
if(Edit1->Text.AnsiCompare(StringGrid1->Cells[1][i])==0){
StringGrid2->RowCount++;
for(int n=0;n<=4;n++){
StringGrid2->Cells[n][StringGrid2->RowCount-2]=StringGrid1->Cells[n][i];
}
}
}
}
if((ComboBox1->ItemIndex==1)||(ComboBox1->ItemIndex==4)){
for(int i=1;i<StringGrid1->RowCount;i++){
if(Edit1->Text.AnsiCompare(StringGrid1->Cells[2][i])==0){
StringGrid2->RowCount++;
for(int n=0;n<=4;n++){
StringGrid2->Cells[n][StringGrid2->RowCount-2]=StringGrid1->Cells[n][i];
}
}
}
}
if((ComboBox1->ItemIndex==2)||(ComboBox1->ItemIndex==4)){
for(int i=1;i<StringGrid1->RowCount;i++){
if(Edit1->Text.AnsiCompare(StringGrid1->Cells[3][i])==0){
StringGrid2->RowCount++;
for(int n=0;n<=4;n++){
StringGrid2->Cells[n][StringGrid2->RowCount-2]=StringGrid1->Cells[n][i];
}
}
}
}
if((ComboBox1->ItemIndex==3)||(ComboBox1->ItemIndex==4)){
for(int i=1;i<StringGrid1->RowCount;i++){
if(Edit1->Text.AnsiCompare(StringGrid1->Cells[4][i])==0){
StringGrid2->RowCount++;
for(int n=0;n<=4;n++){
StringGrid2->Cells[n][StringGrid2->RowCount-2]=StringGrid1->Cells[n][i];
}
}
}
}
}
}
//---------------------------------------------------------------------------
Рисунок 1 – Пример выполнения программы, поиск по имени
Рисунок 2 – Пример выполнения программы, сортировка по фамилии
Рисунок 3 – Пример выполнения программы, поиск по фамилии
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.