Обработка статистических данных по файлу
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
1);->Cells[1] [8]=IntToStr (StrToInt(StringGrid1->Cells[1] [8])+1);
}; break;'D':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [9]=IntToStr (StrToInt(StringGrid1->Cells[1] [9])+1);
}; break;'d':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [9]=IntToStr (StrToInt(StringGrid1->Cells[1] [9])+1);
}; break;'E':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [10]=IntToStr (StrToInt(StringGrid1->Cells[1] [10])+1);
}; break;'e':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [10]=IntToStr (StrToInt(StringGrid1->Cells[1] [10])+1);
}; break;'F':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [11]=IntToStr (StrToInt(StringGrid1->Cells[1] [11])+1);
}; break;'f':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [11]=IntToStr (StrToInt(StringGrid1->Cells[1] [11])+1);
}; break;'G':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [12]=IntToStr (StrToInt(StringGrid1->Cells[1] [12])+1);
}; break;'g':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [12]=IntToStr (StrToInt(StringGrid1->Cells[1] [12])+1);
}; break;'H':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [13]=IntToStr (StrToInt(StringGrid1->Cells[1] [13])+1);
}; break;'h':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [13]=IntToStr (StrToInt(StringGrid1->Cells[1] [13])+1);
}; break;'I':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [14]=IntToStr (StrToInt(StringGrid1->Cells[1] [14])+1);
}; break;'i':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [14]=IntToStr (StrToInt(StringGrid1->Cells[1] [14])+1);
}; break;'J':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [15]=IntToStr (StrToInt(StringGrid1->Cells[1] [15])+1);
}; break;'j':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [15]=IntToStr (StrToInt(StringGrid1->Cells[1] [15])+1);
}; break;'K':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [16]=IntToStr (StrToInt(StringGrid1->Cells[1] [16])+1);
}; break;'k':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [16]=IntToStr (StrToInt(StringGrid1->Cells[1] [16])+1);
}; break;'L':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [17]=IntToStr (StrToInt(StringGrid1->Cells[1] [17])+1);
}; break;'l':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [17]=IntToStr (StrToInt(StringGrid1->Cells[1] [17])+1);
}; break;'M':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [18]=IntToStr (StrToInt(StringGrid1->Cells[1] [18])+1);
}; break;'m':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [18]=IntToStr (StrToInt(StringGrid1->Cells[1] [18])+1);
}; break;'N':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [19]=IntToStr (StrToInt(StringGrid1->Cells[1] [19])+1);
}; break;'n':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [19]=IntToStr (StrToInt(StringGrid1->Cells[1] [19])+1);
}; break;'O':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [20]=IntToStr (StrToInt(StringGrid1->Cells[1] [20])+1);
}; break;'o':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [20]=IntToStr (StrToInt(StringGrid1->Cells[1] [20])+1);
}; break;'P':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [21]=IntToStr (StrToInt(StringGrid1->Cells[1] [21])+1);
}; break;'p':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [21]=IntToStr (StrToInt(StringGrid1->Cells[1] [21])+1);
}; break;'Q':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [22]=IntToStr (StrToInt(StringGrid1->Cells[1] [22])+1);
}; break;'q':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [22]=IntToStr (StrToInt(StringGrid1->Cells[1] [22])+1);
}; break;'R':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [23]=IntToStr (StrToInt(StringGrid1->Cells[1] [23])+1);
}; break;'r':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [23]=IntToStr (StrToInt(StringGrid1->Cells[1] [23])+1);
}; break;'S':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [24]=IntToStr (StrToInt(StringGrid1->Cells[1] [24])+1);
}; break;'s':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [24]=IntToStr (StrToInt(StringGrid1->Cells[1] [24])+1);
}; break;'T':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [25]=IntToStr (StrToInt(StringGrid1->Cells[1] [25])+1);
}; break;'t':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [25]=IntToStr (StrToInt(StringGrid1->Cells[1] [25])+1);
}; break;'U':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [26]=IntToStr (StrToInt(StringGrid1->Cells[1] [26])+1);
}; break;'u':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [26]=IntToStr (StrToInt(StringGrid1->Cells[1] [26])+1);
}; break;'V':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [27]=IntToStr (StrToInt(StringGrid1->Cells[1] [27])+1);
}; break;'v':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [27]=IntToStr (StrToInt(StringGrid1->Cells[1] [27])+1);
}; break;'W':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [28]=IntToStr (StrToInt(StringGrid1->Cells[1] [28])+1);
}; break;'w':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [28]=IntToStr (StrToInt(StringGrid1->Cells[1] [28])+1);
}; break;'X':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [29]=IntToStr (StrToInt(StringGrid1->Cells[1] [29])+1);
}; break;'x':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [29]=IntToStr (StrToInt(StringGrid1->Cells[1] [29])+1);
}; break;'Y':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [30]=IntToStr (StrToInt(StringGrid1->Cells[1] [30])+1);
}; break;'y':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [30]=IntToStr (StrToInt(StringGrid1->Cells[1] [30])+1);
}; break;'Z':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [31]=IntToStr (StrToInt(StringGrid1->Cells[1] [31])+1);
}; break;'z':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [31]=IntToStr (StrToInt(StringGrid1->Cells[1] [31])+1);
}; break;'':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [32]=IntToStr (StrToInt(StringGrid1->Cells[1] [32])+1);
}; break;'':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [32]=IntToStr (StrToInt(StringGrid1->Cells[1] [32])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [33]=IntToStr (StrToInt(StringGrid1->Cells[1] [33])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [33]=IntToStr (StrToInt(StringGrid1->Cells[1] [33])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [34]=IntToStr (StrToInt(StringGrid1->Cells[1] [34])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [34]=IntToStr (StrToInt(StringGrid1->Cells[1] [34])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [35]=IntToStr (StrToInt(StringGrid1->Cells[1] [35])+1);
}; break;'':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [35]=IntToStr (StrToInt(StringGrid1->Cells[1] [35])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [36]=IntToStr (StrToInt(StringGrid1->Cells[1] [36])+1);
}; break;'':
{->Cells[1] [2]=IntToStr (StrToInt(StringGrid1->Cells[1] [2])+1);->Cells[1] [36]=IntToStr (StrToInt(StringGrid1->Cells[1] [36])+1);
}; break;'':
{->Cells[1] [1]=IntToStr (StrToInt(StringGrid1->Cells[1] [1])+1);->Cells[1] [37]=IntToStr (S