Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

Удаление из списка 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
2-1198046858
vegarulez
2007-12-19 09:47
2008.01.20
Проблема с установкой indy 10 на D6.


2-1197922608
istok
2007-12-17 23:16
2008.01.20
Overflow ...


2-1198155687
Stepper
2007-12-20 16:01
2008.01.20
Как в Delphi указать путь компиляции проекта? Типа: С:/Executable


15-1197374566
PEAKTOP
2007-12-11 15:02
2008.01.20
Вертикальная совместимость - Ваше мнение


6-1170209410
Raptoridze
2007-01-31 05:10
2008.01.20
скрол в twebbrowser