Есть двумерный массив. Мне нужно последний (второй) элемент массива переставить на место первого и сократить длину массива на 1, убрав последний элемент.
var
LIndex, L_Last: integer;
PrArr_ListFile: array of array of string;
begin
for LIndex := 0 to 1 do
begin
SetLength(PrArr_ListFile, Length(PrArr_ListFile) + 1, 2);
PrArr_ListFile[LIndex, 0] := IntToStr(LIndex + 100);
PrArr_ListFile[LIndex, 1] := IntToStr(LIndex + 120);
end;
L_Last := high(PrArr_ListFile);
LIndex := 0;
move(PrArr_ListFile[LIndex + 1], PrArr_ListFile[LIndex], (L_Last - LIndex) * sizeof(PrArr_ListFile[LIndex + 1]));
setLength(PrArr_ListFile, L_Last, 2);
Но я ошибаюсь в сдвиге (функция Move
) - у меня получается заменить первый элемент вторым, и после setLength(PrArr_ListFile, L_Last, 2);
у меня получается массив (('', ''))
Где я сделал ошибку?
move
код делает непонятно что. Куда указываетPrArr_ListFile[LIndex + 1]
если массив двумерный? Где второй индекс? Чему равноsizeof(PrArr_ListFile[LIndex + 1])
?