[NeField]

Исходные данные находятся в таблице1 типа TStringGrid, под которой располагаются обработчики Сохранить, Загрузить и Очистить. Результаты отображаются в таблице2 типа TStringGrid, под которой так же располагаются обработчики Сохранить, Загрузить и Очистить.

Сведения об автомобиле состоят из его марки, номерного знака, фамилии владельца и даты проведения технического осмотра. Дан массив регистрации, содержащий сведения о нескольких автомобилях. Cоздать массив сведений о количестве автомобилей каждой марки.

[lmikle]

Ой, ну это-то можно было и самому сделать.
Не оптимальный, но простой способ:
1. Пробегаемся по массиву регистрации и собираем список марок.
2. Второй шаг. Внешний цикл по списку марок, внутрений - по массиву регистраций. При совпадении занчения марки в обоих массивах/списках увеличиваем соотв. счетчик
3. Выводим результат.
Да, не оптимально, но понятно что делать.

Вот тут чуть более сложный, но более быстрый способ:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

type   TRegistrationInfo = record     MakerName : String;     LicPlate : String;     OwnerName : String;     InspectionDate : String; // Для простоты просто как строка   end;     TMakerInfo = record     Name : String;     Count : Integer;   end;     var   Src : Array Of TRegistrationInfo; // Это наши исходные данные в виде массива     procedure TForm1.Button1Click(Sender : TObject); var   MkrSum : Array Of TMAkerInfo;   I, Idx : Integer;       function GetIdx(S : String; A : Array Of TMakerInfo) : Integer;   var     I : Integer;   begin     Result := -1;     For I := Low(A) To High(A) Do       If A[i].Name = S Then         Begin           Result := I;           Break;         End;   end;     begin   SetLength(MkrSum,0);   For I := Low(Src) To High(Src) Do     Begin       Idx := GetIdx(Src[i].MakerName,MkrSum);       If Idx = -1         Then           Begin             SetLength(MkrSum,Length(MkrSum)+1);             MkrSum[High(MkrSum)].Name := Src[i].MakerName;             MkrSum[High(MkrSum)].Count := 1;           End         Else           Begin             MkrSum[Idx].Count := MkrSum[Idx],Count + 1;           End;     End;         // Теперь собранную информацию выводим в грид      // Предполагаем, что грид настроен, заголовок существует и в гриде 2 столбца   StringGrid2.RowCount := Length(MrkSum) + 1; // +1 - на заголовок   For I := Low(MkrSum) To High(MkrSum) Do     Begin       StringGrid2.Cells[0,I+1] := MkrSum[i].Name;       StringGrid2.Cells[1,I+1] := IntToStr(MkrSum[i].Count);     End; end;

PS. Можно при сборе информации "бежать" прямо по гриду (StringGrid1), но это будет чуть медленнее (на больших данных), т.к. при этом коду придется "разрешать" 2 ссылки, а по массиву идет прямая адресация.