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

← →
Вал (2002-11-20 16:48) [0]

Может кто-нибудь поможет решить задачу, я никак не могу понять как данным способом удалить строку из массива:
Дан массив строкового типа (пусть это b[i]), нужно удалить строку (например b[4])посредством вызова из основной программы процедуры, которая собственно и удаляет строку. Не ясно не то, как вызвать процедуру, а как удаляется строка в цикле:

procedure del( );
var i : integer;
begin
for i := 1 to m do
a[ ] := a[ ];
m := ;
end;
То есть имеется практически весь код, осталось вставить недостающие значения, но вот никак не могу понять, как же всё таки в цикле удаляется строка? Номер строки известен!

← →
han_malign (2002-11-20 16:53) [1]

если a - открытый массив
for i:=m to High(a)-1 do a[i]:=a[i+1];
SetLength(a,length(a)-1);
или
for i:=m to N-2 do a[i]:=a[i+1];
dec(N);
где m- номер удаляемой строки, N- размер массива

← →
KoluChi (2002-11-20 16:54) [2]

Лучше пользоваться TStrings - Delete().
Но если все-таки массив:
mas[i] := ""; //пустая строка
можно со сдвигом, но для обычных массивов не вижу в этом смысла
(размерность все равно не меняется)
for I := index to High(mas) do mas[I] := mas[I+1]; mas[High(mas)] := ""; //все равно остается пустая строка
Если открытый массив, то поменять размерность.

удаление строки из массива строкового типа Найти похожие ветки