Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Май

Сдвиг элементов динамического массива после удаления элемента

Posted by Chas under Delphi, Исходники

Потом мне к примеру нужно удалить второй элемент в RecRec и остальные сдвинуть влево без потери данных…
Как это правильно сделать ?

PaHaNjkee

Пример.rar (165.9 Кб)

Аватар

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.WTable,i+1);

    for j:=0 to High(RecRec.WTable) do RecRec.WTable[j]:=10*i+j;

    RecRec.HTable:=i;

  end;

  PutToMemo;

  //удаление по индексу 2

  for i:=3 to High(RecRec) do begin

    RecRec[i-1].WTable:=Copy(RecRec.WTable);

    RecRec[i-1].HTable:=RecRec.HTable;

  end;

  SetLength(RecRec,5);

  PutToMemo;

end;