System error Code 8 Недостаточно памяти для обработки команды

[Lamia]

при многократном вызове функции выползает эта ошибка. Я так понимаю, что дело в том, что не высвобождается память после вызова функции, хотя вроде бы локальные переменные после завершения функции автоматически удаляются. Если это так, то как освобождать память после нее, если нет, то в чем может быть проблема?

function  SelectGreyLVL(Image: TBitMap; Step: integer):TBitMap;
var
  x,y , GrS, MaxGrs, MinGrs: Integer;
  BitMap : TBitMap;
  P : PRGBArray;
  tadr : string;
begin
  BitMap := TBitMap.create;
  tadr :=  'first_1.bmp';
  Image.SaveToFile(tadr);
  try
    BitMap.LoadFromFile(tadr);
    for y := 0 to BitMap.Height -1 do
    begin
      P := BitMap.ScanLine[y];
      for x := 0 to BitMap.Width -1 do
      begin
        GrS := round(0.299*(P[x].rgbtRed and $FF)
              +0.587*(P[x].rgbtGreen shr 8 and $FF)
              +0.114*(P[x].rgbtBlue shr 16 and $FF));
        if(GrS = Step) then
        begin
          P[x].rgbtBlue  := Grs; //255; //
          P[x].rgbtGreen := Grs; //255; //
          P[x].rgbtRed := Grs; //255; //
        end
        else
        begin
          P[x].rgbtBlue  := 255;
          P[x].rgbtGreen := 255;
          P[x].rgbtRed := 255;
        end;
      end;
    end;
  finally
    BitMap.SaveToFile(tadr);
    Result := BitMap;

  end;
end;

[саша40]

Кажись FreeMem освобождает память.

[Stilet]

BitMap создали, а осфобождается ли он где-то за пределами функции?

[саша40]

Сообщение от Stilet

BitMap создали, а осфобождается ли он где-то за пределами функции?

А разве локальные объектные переменные не уничтожаются автоматом?

P.S. Попробуй в конце функции после

Result:=BitMap;

добавить

FreeAndNil(BitMap);

[Stilet]

А разве локальные объектные переменные не уничтожаются автоматом?

Нет кончено )
И потом функция возвращает. Значит нужно для дальнейшей работы за ее пределами. А вот освобождение за ее пределами сделано или нет мы не знаем.

[Человек_Борща]

А разве локальные объектные переменные не уничтожаются автоматом?

Это вам не C# и не Java где есть сборщики мусора.

[Lamia]

Сообщение от саша40

А разве локальные объектные переменные не уничтожаются автоматом?

P.S. Попробуй в конце функции после

Result:=BitMap;

добавить

FreeAndNil(BitMap);

Простите, но эта функция вызывает такую же ошибку, как и Bitmap.Free: 'Access violation at adress ...'.

Сообщение от Stilet

BitMap создали, а осфобождается ли он где-то за пределами функции?

как освободить локальную переменную вне функции? к тому же эта функция вынесена в отдельный юнит.

[northener]

Сообщение от Lamia

как освободить локальную переменную вне функции? к тому же эта функция вынесена в отдельный юнит.

Локальную переменную освобождать ручками не надо. Она сама собой "освободится". Но ты в коде своём создал объект типа TBitmap, система выделила тебе память для него. Если тебе этот объект на каком-то этапе программы стал не нужным, то надо освободить память выделенную ему.

Сообщение от саша40

P.S. Попробуй в конце функции после

Result:=BitMap;

добавить

FreeAndNil(BitMap);

Саша40, ты когда-нибудь начнешь думать перед тем как отвечать?
Внутри функции создали объект класса TBitmap, ссылку на него присвоили неявной переменной Result и сразу после этого уничтожили этот объект. Что же тогда получила программа вызвавшая эту функцию?

[Stilet]

как освободить локальную переменную вне функции? к тому же эта функция вынесена в отдельный юнит.

А как ты используешь эту функцию?
Вообще для чего она тебе нужна и почему оформлена в функцию?

[Lamia]

Сообщение от northener

Локальную переменную освобождать ручками не надо. Она сама собой "освободится". Но ты в коде своём создал объект типа TBitmap, система выделила тебе память для него. Если тебе этот объект на каком-то этапе программы стал не нужным, то надо освободить память выделенную ему.

Не понимаю, ведь битмап объявлен переменной в самой функции и, следовательно, является локальной переменной, как мне вне функции тогда ее освободить?

Сообщение от Stilet

А как ты используешь эту функцию?
Вообще для чего она тебе нужна и почему оформлена в функцию?

Она выделяет пикселы определенного уровня серой градации на изображении. Я использовал функцию, так как много раз вызываю.
Переделал в процедуру, без создания нового битмапа, больше проблемы не возникает, спасибо.

procedure SGL(Image: TBitMap; Step: integer);
var
  x,y , GrS: Integer;
  P : PRGBArray;
begin
    for y := 0 to Image.Height -1 do
    begin
      P := image.ScanLine[y];
      for x := 0 to Image.Width -1 do
      begin
        GrS := round(0.299*(P[x].rgbtRed and $FF)
              +0.587*(P[x].rgbtGreen shr 8 and $FF)
              +0.114*(P[x].rgbtBlue shr 16 and $FF));
        if(GrS = Step) then
        begin
          P[x].rgbtBlue  := Grs; //255; //
          P[x].rgbtGreen := Grs; //255; //
          P[x].rgbtRed := Grs; //255; //
        end
        else
        begin
          P[x].rgbtBlue  := 255;
          P[x].rgbtGreen := 255;
          P[x].rgbtRed := 255;
        end;
      end;
    end;
  
end;

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