Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
28. Jan 2005
Geht nicht, das FreeAndNil eine Variable erwartet. Du kannst also auch folgendes machen:var
O: TObject;
...
O := sg.Objects ;
sg.Objects := nil;
FreeAndNil(O);
Nur: Das bringt keinen Vorteil :roll:
...:cat:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
28. Jan 2005
So:
procedure TfrmEin.FormHide(Sender: TObject);
var i,j : integer;
begin
for i := sg.FixedCols to sg.ColCount - 1 do
for j := sg.FixedRows to sg.RowCount - 1 do
if sg.Objects <> nil then begin
sg.Objects .Free;
sg.Objects := nil;
end;