Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];
ВнизУдаление из списка 2 на n Найти похожие ветки
← →
Ksanf (2007-12-18 23:23) [0]Господа программиста помогите, нужно чтобы было так: если я кликаю по шейпу и его свойсво Tag=какой то ячейке из списка 2 на n(этот список SpArray) эта строка из списка удалилась.
if (SSRight in Shift) then begin
for j:=0 to LineCount-1 do begin
if (SpArray[0,j]=TShape(Sender).Tag) or
(SpArray[1,j]=TShape(Sender).Tag) then begin
SpArray[0,k]:=SpArray[0,k+1];// сдесь вижу зло но не пойму как быть
SpArray[1,k]:=SpArray[1,k+1];
end;
LineCount:=LineCount-1;
SetLength(SpArray,2,LineCount);
end;
end;
Заранее благодарен.
← →
Германн © (2007-12-19 00:50) [1]Список сортированный или нет?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c