Не удаляются одинаковые элементы двумерного массива
я это делаю так:
type
TaXiz = array [0..1,0..1000] of real;
type
TaXYiz = array [0..1000,0..1] of real;
var
i,v,b,z: Integer;
aXYiz,aXYizu: TaXYiz;
...
v:=Length(aXYiz)-1;
i:=0;
while i<=v do
begin
b:=i+1;
while b<=v do
begin
if (aXYiz[b,0]=aXYiz[i,0]) and (aXYiz[b,1]=aXYiz[i,1]) then
begin
for z:=b to v-1 do
begin
aXYiz[z]:=aXYiz[z+1];
v:=v-1;
end;
end
else b:=b+1;
end;
end;
TaXYiz
показали. Вы отладчиком проходили по коду? И как? Что, на Ваш взгляд, делает вот эта проверкаaXYiz[b]=aXYiz[i]
?