Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизУдаление формы из динамического массива Найти похожие ветки
← →
skywalker (2002-02-18 14:34) [2]Попробуй эту функцию, если я правильно понял твой вопрос:
function RemoveForm(RForm:TFrom):boolean;
var
BackArr:array of TForm;
Len,Cnt:word;
begin
Result:=false;
Len:=Length(FileWnd);
if Len=0 then Exit;
for Cnt:=0 to Len-1 do
begin
if FileWnd[Cnt]<>RForm then
begin
SetLength(BackArr,Length(BackArr+1);
BackArr[Length(BackArr)-1]:=FileWnd[Cnt]
end
else Result:=true
end;
SetLength(FileWnd,0);
Len:=Length(BackArr);
if Len=0 then Exit;
for Cnt:=0 to Len-1 do
begin
SetLength(FileWnd,Cnt+1);
FileWnd[Cnt]:=BackArr[Cnt]
end;
SetLength(BackArr,0)
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c