[defff1]

Доброго времени суток.
Есть форма в которой динамически создается массив edit-ов.
Производится расчет. Далее форма закрывается.
При закрытии формы выдается ошибка памяти типа
"Access violation at address XXXXXXX in module XXXX. Read of address 00000000"
После долгих переборов вывел что все дело в
MatrEnd.free;
Что я упустил?

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

unit MEnd;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,mat,   StdCtrls;   type   TMatrEnd = class(TForm)     Button1: TButton;     procedure FormShow(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private       { Private declarations }   public     { Public declarations }   EditMas:array[1..30,1..30] of TMyEdit;   end;   var   MatrEnd: TMatrEnd;   implementation   uses MAI;   {$R *.DFM}   procedure TMatrEnd.FormShow(Sender: TObject); var x,y,c:integer; kon,a,b:extended; s:string; begin      For y:=1 to Form1.level[4]+1 do begin       kon:=0;       For x:=1 to Form1.Level[3]+2 do begin           EditMas[y,x]:=TMyEdit.Create(self);           EditMas[y,x].x:=x;           EditMas[y,x].y:=y;           EditMas[y,x].Parent:=self;           EditMas[y,x].Top:=(y-1)*20+1;           EditMas[y,x].left:=x*90-28;           EditMas[y,x].Width:=90;           EditMas[y,x].Height:=20;           EditMas[y,x].ReadOnly:=True;           If (y=1) and (x>1) then              EditMas[y,x].text:=Form1.MasHide[0,x-1,Form1.level[2]+2];           if x=1 then begin              EditMas[y,x].Width:=150;              EditMas[y,x].Left:=1;              if y>1 then EditMas[y,x].Text:=Form1.Memos[4,y-1].Text;                       end;           if (x>1) and (y>1) and (x<Form1.Level[3]+2) then begin              EditMas[y,x].text:=Form1.MasHide[x+Form1.level[2]-1,y-1,Form1.level[4]+2];               //Теперь умножаем их на соответствующие коэффициенты              val(EditMas[y,x].text,a,c);              val(EditMas[2,x].Text,b,c);              kon:=kon+(a*b);                                                           end;                                          end;          Case Form1.Opt.col of            one: EditMas[y,Form1.level[3]+2].color:=cl3DLight;            all: begin                    EditMas[y,Form1.level[3]+2].color:=cl3DLight;                    For x:=2 to form1.level[3]+1 do                       if (y mod 2)=0 then EditMas[y,x].color:=clSilver;                 end;          end;          Str(kon:8:8,s);          EditMas[y,Form1.level[3]+2].Text:=s;                                      end;    EditMas[1,form1.level[3]+2].text:='Общие веса';    If (Width>=screen.Width) or (Height>=screen.Height) then AutoScroll:=true                                                        else AutoScroll:=false;    Autosize:=True;    If (Width>=screen.Width) or (Height>=screen.Height) then AutoScroll:=true                                                        else AutoScroll:=false;    Autosize:=False;    if AutoScroll then height:=height+16;   end;   procedure TMatrEnd.FormClose(Sender: TObject; var Action: TCloseAction); begin    MatrEnd.free;    MatrEnd:=nil;    Form1.N10.Enabled:=False;    Form1.N15.Enabled:=False; end;   end.

[Pilot_Red]

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

MatrEnd.free;
MatrEnd:=nil;
Я думаю система сама от них ресурсы освободит как надо....

[defff1]

У меня вообще очень странная штука происходит.
Если я их убираю то программа дальше работает.
Но при изменении некоторых параметров MainForm
Опять начинается...
Я уже всю голову сломал

Читал, что для удаления Free надо в FormCreate дописать создание MatrEnd.
Но по примеру у меня не получается.

Хотя.. сейчас прошелся по всему коду и нашел в кнопке MatrEnd.free;
Удалил.. Пока вроде все пашет )
Но все же хотелось бы понять почему )))))))))
Ведь отстранение от проблемы это не ее решение.

[Pilot_Red]

а каким образом ты форму закрываешь???

[defff1]

так как нет никаких кнопок закрытия и менюшек то
просто тыкаю на крестик.

[Pilot_Red]

хрен знает, у тебя эта форма главная или дочерняя, что за форма form1??

[defff1]

Form1 это MainForm

Нашел еще MatrEnd.Destroy;
тоже не помогло.

[Pilot_Red]

надо сам исходник смотреть....

[Janom]

Попробуй их местами поменять...

Код:

1 2 3 4 5 6 7

procedure TMatrEnd.FormClose(Sender: TObject; var Action: TCloseAction); begin    MatrEnd:=nil;    MatrEnd.free;    Form1.N10.Enabled:=False;    Form1.N15.Enabled:=False; end;

[Aristarh Dark]

Если форма не была создана "вручную", то TApplication сам освободит ресурсы. Если ты создавал форму самостоятельно - то и удаляй ее самостоятельно. Но уж НИ В КОЕМ СЛУЧАЕ нельзя освобождать объект внутри обработчика события этого объекта.

[defff1]

Спасибо всем. Учту свою ошибку.