Удаление формы из динамического массива

← →
olookin (2002-02-18 14:14) [0]

Уважаемые господа, послушайте мой вопрос!
Есть динамический массив, например из 5 форм. Все формы показаны процедурой Show. Необходимо удалить произвольную форму из массива, и передвинуть все остальные формы на 1 позицию назад. Как это сделать?

Кусок моего кода, как я это делаю:
//FileWnd: array of TForm; динамический массив форм
//nTag: integer; таг текущей удаляемой формы = номеру формы в массиве
//numfiles: integer; количество форм в массиве - 1

var numfiles,i,formTag: integer;

for i:=0 to Length(Filewnd)-1 do Filewnd[i].Close;
formtag:=nTag;
numfiles:=Length(Filewnd)-1;
FileWnd[formtag].Release;
FileWnd[formtag]:=nil;
for i:=formtag to Length(FileWnd)-2 do if FileWnd[i+1]<>nil then begin
FileWnd[i]:=nil;
Move(FileWnd[i+1],FileWnd[i],SizeOf(FileWnd[i+1]));
FileWnd[i].Tag:=i;
FileWnd[i].Name:="FileWnd"+IntToStr(i); end;

if FileWnd[numfiles]<>nil then begin
FileWnd[numfiles].Release;
Filewnd[numfiles]:=nil; end;
SetLength(FileWnd,numfiles);

Заранее спасибо за ответ

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