Удаление строки двумерного массива со сдвигом

[Serik2010]

Приветствую всех!

Тема вроде бы и банальная, но ответов на разных форумах не нашёл почему-то...

Итак есть двумерный массив. Например:

[1,1], [0,0], [1,1].

Задача удалить из него [0,0] и получить массив [1,1], [1,1].

Вот что я пытаюсь сделать:

 
  schetchik_catalogov      := Form6.CheckListBox1.Count;

  for i := 1 to schetchik_catalogov do begin
    if Form6.CheckListBox1.Checked[i - 1] then begin
      for j := 0 to length(count_zone[i]) do begin
        zonePassList[checkedZoneCount, j] := count_zone[i, j];
      end;
      checkedZoneCount := checkedZoneCount + 1;
    end;
  end;

  count_zone := nil;
  count_zone := zonePassList;

Пытаюсь перезаписать "нужные" строки в новый массив, потом полностью чищу count_zone, и копирую туда всё из временного массива zonePassList.

Ругается на length(count_zone[i]).

[Serge_Bliznykov]

без исходного кода этот вырванный фрагмент бесполезен.
Тут даже не видно, какого типа у Вас count_zone и zonePassList


p.s. а ещё лучше - вытаскиваете из своего проекта нужный кусочек в отдельный (тестовый) проект. Добиваетесь, чтобы он компилировался и работал (хоть и неправильно), потом запаковываете исходники проекта в архив, архив выкладываете на форум.
Шансы получить КОНКРЕТНЫЙ ответ в виде подходящего Вам кода резко увеличиваются.

[Serik2010]

Сообщение от Serge_Bliznykov

без исходного кода этот вырванный фрагмент бесполезен.
Тут даже не видно, какого типа у Вас count_zone и zonePassList

Приветствую, спасибо, что откликнулись.

Проект разобрать я не смогу, тут настолько всё накручено.

Тип count_zone и zonePassList - Tmy2ArrayStr:

  Tmy1ArrayStr     = array of string;
  Tmy2ArrayStr     = array of Tmy1ArrayStr;

ну по сути я ж сказал двумерный массив, проблема не в понимании, как бегать по ним, а как правильно это написать.

Есть CheckListBox1 в котором есть список, моя задача пробежаться по этому списку и просмотреть, то, что выбрано - переписать во временный массив zonePassList, потом обнулить count_zone = nil и записать в него весь zonePassList.


А так написана аналогичная задача на простом уровне, чтобы не внедряться в проектный фрагмент кода:

Итак есть двумерный массив. Например:

[1,1,1;1,1,1], [0,0,0;0,0,0], [1,1,1;1,1,1].

Задача удалить из него [0,0,0;0,0,0] и получить массив [1,1,1;1,1,1], [1,1,1;1,1,1].

[BDA]

Пример из интернета:

var 
myArray: TStringArray; 
...//delete fifth element 
DeleteArrayItem(myArray, 5) ;
~~~~~~~~~~~~~~~~~~~~~~~~~
type
   TStringArray = array of string;

procedure DeleteArrayItem(var X: TStringArray; const Index: Integer) ;
begin
   if Index > High(X) then Exit;
   if Index < Low(X) then Exit;
   if Index = High(X) then
   begin
     SetLength(X, Length(X) - 1) ;
     Exit;
   end;
   Finalize(X[Index]) ;
   System.Move(X[Index +1], X[Index],(Length(X) - Index -1) * SizeOf(string) + 1) ;
   SetLength(X, Length(X) - 1) ;
end;

В Вашем случае, похоже, может быть удалена не одна строка:

checkedZoneCount := 0;
for i := 0 to Form6.CheckListBox1.Count - 1 do
  if Form6.CheckListBox1.Checked[i] then
  begin
    count_zone[checkedZoneCount] := count_zone[i];
    inc(checkedZoneCount);
  end;
setlength(count_zone, checkedZoneCount);

Код не проверял.
UPD
Код работает - удаляет строки, но на возможные утечки памяти не проверял.

[Аватар]

Для динамического массива с одинаковым количеством колонок во всех строках так можно

type TMyArray = array of array of String;

function DelRow(DeletedRow: Integer; var pArray: TMyArray): Boolean;
var i,j: Integer;
begin
  Result:=(DeletedRow>=0) and (DeletedRow<=High(pArray));
  if Result then begin
    for i:=DeletedRow to High(pArray)-1 do
      for j:=0 to High(pArray[i]) do
        pArray[i,j]:=pArray[i+1,j];
    SetLength(pArray,High(pArray),High(pArray[0])+1);
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var xArray: TMyArray;
    i,j: Integer;
begin
  SetLength(xArray,3,2);
  for i:=0 to High(xArray) do
    for j:=0 to High(xArray[i]) do xArray[i,j]:=IntToStr(i);
  DelRow(1,xArray);
end;

[Serik2010]

Сообщение от BDA

В Вашем случае, похоже, может быть удалена не одна строка:

checkedZoneCount := 0;
for i := 0 to Form6.CheckListBox1.Count - 1 do
  if Form6.CheckListBox1.Checked[i] then
  begin
    count_zone[checkedZoneCount] := count_zone[i];
    inc(checkedZoneCount);
  end;
setlength(count_zone, checkedZoneCount);

Код не проверял.
UPD
Код работает - удаляет строки, но на возможные утечки памяти не проверял.

Громадное спасибо!!! То, что нужно!! Именно с индексами я запутался...