freepascal.ru

Код: Выделить всё

private
arrBitmap : array[0..33] of TBitmap; 


procedure TFormMain.FormCreate(Sender: TObject);
var
  b:byte;
begin
  for b := 0 to 22 do arrBitmap[b] := TBitmap.Create;
end;  


procedure TFormMain.someName();
var
  b:byte;
begin

for b := 0 to 22 do begin
   // ...... 
   Image1.Picture.Bitmap.LoadFromFile('xxx'+IntToStr(b)+'.png');
   arrBitmap[b].Assign(Image1.Picture.Bitmap);
   Canvas.StretchDraw(aRect,arrBitmap[b]); 
   end;

end;


procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var
  b:byte;  
begin
  try

  finally
    for b := 0 to 22 do arrBitmap[b].Free; // <== вот на этом коде вылетает SIGSEGV - почему?
  end; 
end;

Код: Выделить всё

arrBitmap : array[0..33] of TBitmap;

Код: Выделить всё

arrBitmap : array of TBitmap;

Код: Выделить всё

FreeAndNil(arrBitmap[b]);

Код: Выделить всё

(arrBitmap[b] as TBitmap).Free;

Код: Выделить всё

arrBitmap[b] := TBitmap.Create;

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    arrBitmap : array[0..33] of TBitmap;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  b:byte;
begin
  for b := 0 to 22 do arrBitmap[b] := TBitmap.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  b:byte;
  aRect:TRect;
begin
  aRect.Top := 0;
  aRect.Left := 0;
  aRect.Bottom := Height;
  aRect.Right := Width;

for b := 0 to 22 do begin
   Image1.Picture.LoadFromFile('1.png');
   arrBitmap[b].Assign(Image1.Picture.Bitmap);
   Canvas.StretchDraw(aRect,arrBitmap[b]);
   end;
end;


procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
var
  b:byte;
begin
  try

  finally
    for b := 0 to 22 do arrBitmap[b].Free; // <== вот на этом коде вылетает SIGSEGV - почему?
  end;
end;


end.