Форум землевпорядників

Код: Виділити все

// показывает поочередно кад. номер  сортируя по владельцу  
  
uses SysUtils;
var i, x: Integer;
    cads: array of string; // кад. номера из одиночного реж.
    nms: array of string;  // персоны из пофамильного
begin
  cads := GetModeItem('CadNumber', rmParcel);
  nms  := GetModeItem('NM', rmPerson);
 
  for i := 0 to High(nms) do 
  begin
    x := -1;
    repeat
      x := getNextParcel(i, x);
      //x := getNextParcel(nms[i], x);
      if (x > -1) then
        ShowMessage(nms[i] +#32+ cads[x]);         
    until x = -1;
  end;
end.

Код: Виділити все

// скрипт поочередно выведет владельца по каждому кад. номеру 

uses SysUtils;
var i,x: Integer;
    NMs: array of string;  // массив владельцев
    Cads: array of string; // массив кадастровых
begin
  NMs := GetModeItem('NM', rmPerson);
  Cads := GetModeItem('CadNumber', rmParcel);
  
  for i := 0 to High(Cads) do 
  begin
    x := -1;
    repeat
      x := getNextPerson(i, x);
      if (x > -1) then
        ShowMessage(Cads[i] +#32+ NMs[x]);         
    until x = -1;
  end;
end.

Код: Виділити все

uses SysUtils;
var i,x: Integer;
cads, nms: array of string;
rMode: TReportMode;
begin
  nms := GetModeItem('NM', rmPerson); // <-  массив строк с названиями владельцов
  cads := GetModeItem('CadNumber', rmParcel);// <-  массив строк кадастровых номеров

  rMode := GetReportMode();
  // установка размера глобальной переменной _RESULT
  case rMode of 
    rmGroup: SetLength(_RESULT, Length(cads)); // Здесь всегда - SetLength(_RESULT, 1);, потом подкорректируем
    rmParcel: SetLength(_RESULT, Length(cads));
    rmPerson: SetLength(_RESULT, Length(nms));
    else // rmAdditional - этого не произойдет, но все же...
      Exit();  
  end;

  // формируем список кадастровых номеров по владельцах...
  // пофамильный режим
if (rMode = rmPerson) then
  for i := 0 to High(nms) do
  begin
    _RESULT[i] := nms[i] + ': ';
    x := -1;
    repeat
      x := getNextParcel(i, x); // можно использовать перегруженную версию getNextParcel(nms[i], x) - надежно, но медленнее;  
      if (High(cads) < x) then  // проверяем корректность работы getNextParcel  
        raise Exception.Create ('ошибка функции getNextParcel, неправильный indPerson');
      if (x > -1) then
        _RESULT[i] := _RESULT[i] +#32+ cads[x];
    until x = -1;
  end;

  // режим по участку
  if (rMode = rmParcel) or (rMode = rmGroup) then
    for i := 0 to High(cads) do
    begin
      _RESULT[i] := cads[i] + ': ';
      x := -1;
      repeat
        x := getNextPerson(i, x);
        if (x > -1) then
          _RESULT[i] := _RESULT[i] + #32 + nms[x]; 
      until (x = -1);
    end;

  // Групповой режим. Он обработан как rmParcel. Осталось привести в нужный вид _RESULT
  if (rMode = rmGroup) then
  begin
    for i := 1 to high(_RESULT) do
      _RESULT[0] := _RESULT[0] +'; '+ _RESULT[i];
    // Убираем лишнее: _RESULT в Групповом режиме всегда длина массива равна 1.
    SetLength(_RESULT, 1);
  end; 
end.