Динамический массив, перемещение элемента

@Mr.Sandman · Регистрация: 19.12.2011

Author24 — интернет-сервис помощи студентам

В общем есть динамический массив форм.

Delphi

1	BDForm.FormsList[i].Form // вызов

Допустим я открывая три формы.
Получается что FormsList[0].Form , FormsList[1].Form, FormsList[2].Form - начинают существование.

Вопрос в том, что при закрытии не последней формы, например 1й, последняя форма вставала на место закрытой формы (то есть 1й), а последний элемент массива освобождался.

Пробовал так, но где то не верно

Delphi

 max  := High(BDForm.FormsList);
  // FormID  - номер закрывающейся формы
  BDForm.FormsList[max].Form.FormID :=  BDForm.FormsList[FormID].Form.FormID; // передаю ID закрытой формы, последней форме
  BDForm.FormsList[FormID].Form :=  BDForm.FormsList[max].Form; 
  FreeAndNIL(BDForm.FormsList[max].Form); // освобождаю последний элемент
  SetLength(BDForm.FormsList, Length(BDForm.FormsList)-1); // уменьшаю массив на единицу

Добавлено через 23 минуты
Вопрос : Как поставить последнюю форму на место закрытой ?

Delphi

1
2
3

// firmID номер закрытой форы
// max номер последней формы 
BDForm.FormsList[FormID].Form := BDForm.FormsList[max].Form; // так не выходит

@Санек25 · 02.07.2012, 11:24

Delphi

1	BDForm.FormsList[FormID].Form := BDForm.FormsList[Length(BDForm.FormsList)].Form;

а если так без max... ,а потом setlength

@Mr.Sandman · 02.07.2012, 11:28 **[ТС]**

Нет, все равно при закрытии первой формы закрывает последнюю

Delphi

1	FreeANDNIL(BDForm.FormsList[max]);

Что говорит о том что последняя форма не встала на место закрываемой

Добавлено через 1 минуту
Я даже так делал

Delphi

procedure TBDForm.MoveForm(OldID, NewID: Integer);
begin
 
  FormsList[NewID] := FormsList[OldID];
  FormsList[NewID].Form := BDform.FormsList[OldID].Form;
  FormsList[NewID].Form.FormID := BDForm.FormsList[OldID].Form.FormID;
 
 
 
  FormsList[NewID].Panel.Tag := BDForm.FormsList[OldID].Panel.Tag;// тут еще панельки привязаны, но сначала надо форму передвинуть
  FormsList[NewID].Panel := BDform.FormsList[OldID].Panel;
 
  FreeAndNIL(BDForm.FormsList[OldID]);
end;

Delphi

1	BDForm.MoveForm(max, FormID);

@Санек25 · 02.07.2012, 11:37

а так у тебя дело в том что первая форма задана главной. Тебе надо сделать главной другую форму. Погугли я не знаю как это делается...

@Mr.Sandman · 02.07.2012, 11:42 **[ТС]**

Ну они вроде все равнозначны? Главная BDForm дочерняя EDForm
Или вы имели ввиду главная форма в динамически созданных формах?

@Санек25 · 02.07.2012, 12:40

зачем закрывать первую ты же ей присваиваешь значение последней... Присвоил значение и закрыл последнюю... И покажи как ты закрываешь форму, может быть ты этим методом вырубаешь все формы разом...

@Mr.Sandman · 02.07.2012, 12:55 **[ТС]**

Немного грязно

Delphi

procedure TEdForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i, max, Ind: Integer;
  st: String;
 
 
begin
  CanClose := true;
  //BDForm.Label4.Caption := IntToStr(FormID);
 
  if bSave.Enabled then begin
    if MessageDlg('Данные не сохранены. Сохранить?', mtConfirmation, [mbOk, mbCancel], 0) = mrOk then begin
      Save;
    end;
  end;
    //Showmessage(IntToStr(Length(BDForm.formsList)));
    Cnt := Length(BDForm.FormsList);
    if Cnt-1 = FormID then begin
      ShowMessage('Последний');
      FreeAndNIL(BDForm.FormsList[FormID].Form);
      FreeAndNIL(BDForm.FormsList[FormID].Panel);
    end else begin
      ShowMessage('в середине');
 
      max  := High(BDForm.FormsList);
 
     // BDForm.FormsList[max].Form.FormID :=  BDForm.FormsList[FormID].Form.FormID;
      BDForm.FormsList[FormID] :=  BDForm.FormsList[max];
        //BDForm.FormsList[FormID].Form := BDForm.FormsList[Length(BDForm.FormsList)].Form;
 
 
        // BDForm.FormsList[max].Panel.Tag := BDForm.FormsList[FormID].Panel.Tag;
        // BDForm.FormsList[FormID].Panel  :=  BDForm.FormsList[max].Panel;
 
        //  BDForm.FormsList[max].Form.Free;
        //  BDForm.FormsList[max].Panel.Free;
 
        // BDForm.FormsList[max].Form := BDForm.FormsList[FormID];
         FreeANDNIL(BDForm.FormsList[max]);
   //   BDForm.MoveForm(max, FormID);
 
 
   end;
 
  
 
  SetLength(BDForm.FormsList, Length(BDForm.FormsList)-1);
 
 
 // for i := 0 to Length(BDForm.FormsList)-1 do begin
 //   st := st +'  FormsList[' +IntToStr(i)+ '] = ' + IntToStr(BDForm.FormsList[i].Form.FormID);
 // end;
 // ShowMessage(st);
 
 
 
end;

@duhar · 02.07.2012, 13:03

Тебе нужно делать цикл.
Код писать не буду ибо некогда. Смотри, суть в том что тебе нужен цикл, ты знаешь индекс закрываемой формы и количество форм вообще, берешь цикл фор от "индекс закрываемой формы" до "количество форм вообше" и последовательно присваиваешь каждой предыдущей форме следующую, тем самым сдвигаешь все формы в массиве. А после самую последнюю форму освобождаем.

@Санек25 · 02.07.2012, 13:03

Почитай здесь может поможет...Как удалить динамически созданные объекты??

@duhar · 02.07.2012, 13:06

удалять просто
либо

Delphi

1	FreeAndNil(TObject);

или

Delphi

1 2	TObject:=nil; TObject.Free;

@Санек25 · 02.07.2012, 13:07

duhar, а если использовать Destroy; в чем разница между вашими методами и этим?..

@duhar · 02.07.2012, 13:08

Destroy подходит только для форм. То есть выполняется процедура OnDestroy, а после выполняется то что я написал =)

@Mr.Sandman · 02.07.2012, 13:09 **[ТС]**

Сообщение от duhar

Тебе нужно делать цикл.
Код писать не буду ибо некогда. Смотри, суть в том что тебе нужен цикл, ты знаешь индекс закрываемой формы и количество форм вообще, берешь цикл фор от "индекс закрываемой формы" до "количество форм вообше" и последовательно присваиваешь каждой предыдущей форме следующую, тем самым сдвигаешь все формы в массиве. А после самую последнюю форму освобождаем.

Этот вариант уже рассматривался, но например будет не 5 форм а 10000 и на закрытие формы потребуется секунда, то это не рационально. Надо бы последнюю форму переместить на место закрывающейся а последнюю free

@duhar · 02.07.2012, 13:15

ну а в чем проблема та

Добавлено через 1 минуту

Delphi

1 2	Forms[DelFormIndex].Form:=Forms[(High(Forms))].Form; Forms[(High(Forms))].Form.Free;

@Mr.Sandman · 02.07.2012, 13:18 **[ТС]**

duhar, я третий день борюсь с этим, он последнюю форму не перемещает. И закрывается сразу две формы

@duhar · 02.07.2012, 13:25

ААААА=))))
Туплю. тут надо проявить находчивость, щас у себя в проге над таким же косяком бился, надо вот так

Delphi

1
2
3

Forms[DelFormIndex].Form:=Forms[(High(Forms))].Form;
Forms[(High(Forms))].Form:=Nil;
Forms[(High(Forms))].Form.Free;

Пробуй

Добавлено через 3 минуты
проблема в том что при присвоении одной формы другой присваивается только адрес в памяти, и получается что две формы имеют один и тот же адрес, при попытке освобождения памяти этот адрес в памяти освобождается и сразу две формы перестают существовать.

@Mr.Sandman · 02.07.2012, 13:25 **[ТС]**

duhar, отлично закрывает теперь только по одной) щас если ошибок с закрытием и сворачиванием не будет, то отлично)

@duhar · 02.07.2012, 13:27

смотри, а жизнь то налаживается

@Mr.Sandman · 02.07.2012, 13:31 **[ТС]**

РЕШЕНО!

Delphi

procedure TEdForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   max: Integer;
begin
  CanClose := true;
   if bSave.Enabled then begin
    if MessageDlg('Данные не сохранены. Сохранить?', mtConfirmation, [mbOk, mbCancel], 0) = mrOk then begin
      Save;
    end;
  end;
    Cnt := Length(BDForm.FormsList);
    if Cnt-1 = FormID then begin
      FreeAndNIL(BDForm.FormsList[FormID].Form);
      FreeAndNIL(BDForm.FormsList[FormID].Panel);
    end else begin
 
      max  := High(BDForm.FormsList);
 
      BDForm.FormsList[max].Form.FormID :=  BDForm.FormsList[FormID].Form.FormID;
      BDForm.FormsList[FormID].Form :=  BDForm.FormsList[max].Form;
      BDForm.FormsList[max].Form := NIL;
      BDForm.FormsList[max].Form.Free;
 
 
      BDForm.FormsList[max].Panel.Tag := BDForm.FormsList[FormID].Panel.Tag;
      BDForm.FormsList[FormID].Panel := BDForm.FormsList[max].Panel;
      BDForm.FormsList[max].Panel := NIL;
      BDForm.FormsList[max].Panel.Free;
   end;
  SetLength(BDForm.FormsList, Length(BDForm.FormsList)-1);
end;

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	02.07.2012, 13:25 [ТС]	17
	duhar, отлично закрывает теперь только по одной) щас если ошибок с закрытием и сворачиванием не будет, то отлично) 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	02.07.2012, 11:37	4
	а так у тебя дело в том что первая форма задана главной. Тебе надо сделать главной другую форму. Погугли я не знаю как это делается... 1

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	02.07.2012, 11:42 [ТС]	5
	Ну они вроде все равнозначны? Главная BDForm дочерняя EDForm Или вы имели ввиду главная форма в динамически созданных формах? 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	02.07.2012, 12:40	6
	зачем закрывать первую ты же ей присваиваешь значение последней... Присвоил значение и закрыл последнюю... И покажи как ты закрываешь форму, может быть ты этим методом вырубаешь все формы разом... 0

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
	02.07.2012, 13:03	8
	Тебе нужно делать цикл. Код писать не буду ибо некогда. Смотри, суть в том что тебе нужен цикл, ты знаешь индекс закрываемой формы и количество форм вообще, берешь цикл фор от "индекс закрываемой формы" до "количество форм вообше" и последовательно присваиваешь каждой предыдущей форме следующую, тем самым сдвигаешь все формы в массиве. А после самую последнюю форму освобождаем. 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	02.07.2012, 13:07	11
	duhar, а если использовать Destroy; в чем разница между вашими методами и этим?.. 0

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
	02.07.2012, 13:08	12
	Destroy подходит только для форм. То есть выполняется процедура OnDestroy, а после выполняется то что я написал =) 1

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	02.07.2012, 13:09 [ТС]	13
	Сообщение от duhar Тебе нужно делать цикл. Код писать не буду ибо некогда. Смотри, суть в том что тебе нужен цикл, ты знаешь индекс закрываемой формы и количество форм вообще, берешь цикл фор от "индекс закрываемой формы" до "количество форм вообше" и последовательно присваиваешь каждой предыдущей форме следующую, тем самым сдвигаешь все формы в массиве. А после самую последнюю форму освобождаем. Этот вариант уже рассматривался, но например будет не 5 форм а 10000 и на закрытие формы потребуется секунда, то это не рационально. Надо бы последнюю форму переместить на место закрывающейся а последнюю free 0

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	02.07.2012, 13:18 [ТС]	15
	duhar, я третий день борюсь с этим, он последнюю форму не перемещает. И закрывается сразу две формы 0

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
	02.07.2012, 13:27	18
	смотри, а жизнь то налаживается 1