Сдвиг элементов массива <->

[z768]

Ребята прошу сильно не пинать, просто решил переспросить лишний раз...

  TRecStruct = record
    WTable:  array of DWORD;
    HTable: DWORD;
    NDigit:  array of Word;
  end;

  .....
var
  RecRec: array of TRecStruct;

  .....

SetLength(RecRec, 6);

дальше идет заполнение массива RecRec.
Потом мне к примеру нужно удалить второй элемент в RecRec и остальные сдвинуть влево без потери данных...
Как это правильно сделать ?
Даж и пива не пил, но чего-то не могу сообразить.
Сорри перед сообществом, знаю тема избитая.

[PaHaNjkee]

Вот, посмотри

[z768]

SetLength(Mas,0,0);
Mas:=nil;

А к чему двойное уничтожение в примере ?
Вопрос не снят...

[XE5]

z768 В процитированном примере ничего не уничтожается. Удаляется ссылка, не более.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
type TRecStruct = record
       WTable:  array of DWORD;
       HTable: DWORD;
     end;
var RecRec: array of TRecStruct;
    i,j: Integer;
procedure PutToMemo;
var s: String;
    m,n: Integer;
begin
  for m:=0 to High(RecRec) do begin
    s:='';
    for n:=0 to High(RecRec[m].WTable) do s:=s+Format('%d,',[RecRec[m].WTable[n]]);
    s:=s+Format(' HTable=%d',[RecRec[m].HTable]);
    Memo1.Lines.Add(s);
  end;
  Memo1.Lines.Add('');
end;
begin
  SetLength(RecRec,6);
  for i:=0 to High(RecRec) do begin
    SetLength(RecRec[i].WTable,i+1);
    for j:=0 to High(RecRec[i].WTable) do RecRec[i].WTable[j]:=10*i+j;
    RecRec[i].HTable:=i;
  end;
  PutToMemo;
  //удаление по индексу 2
  for i:=3 to High(RecRec) do begin
    RecRec[i-1].WTable:=Copy(RecRec[i].WTable);
    RecRec[i-1].HTable:=RecRec[i].HTable;
  end;
  SetLength(RecRec,5);
  PutToMemo;
end;

PS если бы в структуре не было динамических массивов, то можно обойтись просто Move

[z768]

так вот без динамических массивов в структуре никак не обойтись.
с добавлением наверное проще, потому как новая структура будет добавлена в конец массива...
SetLength(xx, Length(xx) + 1)
В принципе мне мемо и не нужно, а так все понятно.
Спасибо за просвещение.

[Аватар]

Memo для того, что бы убедиться в корректности кода

[phomm]

Я бы подобную задачу - хранилище со сжатием места при удалении (без оглядки на другие функции хранилища) решал через динамическое программирование - одно-/дву- направленный/связный список. Удаление в оном - всего лишь перестановка указателей на соседей.
Если важен ещё и поиск (индексация) , в плане скорости, то надо ещё более усложнять работу хранилища, HashTable/Map/Dictionary и т.д.

[z768]

И еще вопрос вдогонку...
проблему решил вот так

type TRecStruct = record
       WTable:  array of DWORD;
       HTable: DWORD;
     end;
var RecRec: array of TRecStruct;
....
for i:=3 to High(RecRec) do 
  RecRec[i-1]:=RecRec[i];
SetLength(RecRec, Length(RecRec) - 1);

Все вроде нормально даже если и длина дин массива WTable отличается в динамическом массиве структур.
Насколько это правильно я не знаю, потому и задаю вопрос сообществу, с массивами практически не сталкивался, рыл гугль...
Но понять толком ничего и не смог.

[Somebody]

Сообщение от Аватар

PS если бы в структуре не было динамических массивов, то можно обойтись просто Move

И чем динамические массивы мешают использованию Move?