Mam taka mala czesc z procedury :
MenuPad := TMenuItem.Create(Self);
for n:=1 to Count do
begin
MenuPad.Caption := RegPad.ReadString('Item'+IntToStr(n));
ReopenFiles.Items.Add(MenuPad);
end;
MenuPad.Free;
i wyrzuca mi blad, wiec wymyslilem cos takiego :
for n:=1 to Count do
begin
<b> MenuPad := TMenuItem.Create(Self); <b>
MenuPad.Caption := RegPad.ReadString('Item'+IntToStr(n));
ReopenFiles.Items.Add(MenuPad);
end;
MenuPad.Free;
Czy to znaczy ze w pierwszym rozwiazaniu obiekt MenuPad byl zwalniany, czy jak ???.
Jeli tak jest to nie trzeba zwalniac w drugim rozwiazaniu obiektu MenuPad
( MenuPad.Free ).