1:
2:
3:
4:
5:
6:
7:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Access violation at address 769564A1 in module 'comdlg32.dll'. Read of address 6FEC73AC' aufgetreten.
---------------------------
Anhalten   Fortsetzen   Hilfe   
---------------------------                    

1:
2:
3:
4:
5:
6:

procedure TForm2.Speichernunter1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then begin
    SaveIniFIle(SaveDialog1.FileName);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:



37 - 44 bytes: TDiagramm x 1

53 - 60 bytes: TBitmap x 1, TStringList x 6

109 - 116 bytes: TBitmapImage x 1

253 - 268 bytes: Unknown x 53


---------------------------
OK   
---------------------------                    

1:
2:
3:
4:
5:

destructor TImage.Destroy;
begin
  FPicture.Free;
  inherited Destroy;
end;                    

1:
2:
3:
4:

procedure TImage.SetPicture(Value: TPicture);
begin
  FPicture.Assign(Value);
end;                    

1:
2:
3:
4:

var b: Bitmap;
begin
{...}
  Image1.Picture.Bitmap := b;                    

1:
2:
3:
4:
5:

var b : Bitmap;
begin
  b := TBitmap.Create;
  Image...Bitmap := b;
  b.Free;                    

1:
2:
3:
4:

procedure TPicture.SetBitmap(Value: TBitmap);
begin
  SetGraphic(Value);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TPicture.ForceType(GraphicType: TGraphicClass);
begin
  if not (Graphic is GraphicType) then
  begin
    FGraphic.Free;
    FGraphic := nil;
    FGraphic := GraphicType.Create;
    FGraphic.OnChange := Changed;
    FGraphic.OnProgress := Progress;
    Changed(Self);
  end;
end;