Программа последовательного поиска в последовательном неотсортированном массиве реквизитов единственного значения. Алгоритм сортировки простым выбором. Программа индексирования основного файла по одному реквизиту. Индексные файлы по реквизитам.
Аннотация к работе
Var a:Array [1..SIZE] of Integer; // массив obr:Integer; // образец для поиска found:Boolean; // TRUE - совпадение образца с элементом массива i:Integer; // индекс элемента массива begin If Length (STRINGGRID1.Cells[0,0])>3 then begin If Length (STRINGGRID1.Cells[1,0])>3 then begin If Length (STRINGGRID1.Cells[2,0])>3 then begin If (STRINGGRID1.Cells[0,0]="") or (STRINGGRID1.Cells[1,0]="") or (STRINGGRID1.Cells[2,0]="") or (STRINGGRID1.Cells[3,0]="") or (STRINGGRID1.