Lazarus TJpegImage вызывает экскепшн в линуксе

[BLACK_RAIN]

Здравствуйте.
Написал код:

  ext := lowercase(extractfileext(imgfilename));
  if (ext='.bmp') then
  begin
    if bmp<>nil then
    begin
      bmp.Free;
      bmp := nil;
    end;
    bmp := tbitmap.Create;
    bmp.LoadFromFile(imgfilename);
  end else
  if (ext='.jpg') or (ext='.jpeg') then
  begin
    if jpg<>nil then
    begin
      jpg.Free;
      jpg := nil;
    end;
    jpg := tjpegimage.Create;
    jpg.LoadFromFile(imgfilename);
    if bmp<>nil then
    begin
      bmp.Free;
      bmp := nil;
    end;
    bmp := tbitmap.Create;
    bmp.Assign(jpg);
    jpg.Free;
  end;

Когда он выполняется второй раз, то на строчке jpg.free на линуксе (Kubuntu 14.04) вылетает ошибка:

На винде работает ок.

[Аватар]

В самом конце jpg в nil не сбрасывается.
А вообще есть FreeAndNil в делфи, возможно и лазарус имеет

[Stilet]

if jpg<>nil then
begin
jpg.Free;
jpg := nil;
end;

Второй раз как это условие отрабатывает?
Я бы на твоем месте его убрал, и вообще не пересоздавал компонент.

[WinCoder]

Думаю ошибка не в строке jpg.free, а в предыдущей bmp.Assign(jpg);

try
bmp.Assign(jpg);
except
ShowMessage('Ошибка в копировании');
end;

[Аватар]

if jpg<>nil then
begin
jpg.Free; -- ошибка здесь, поскольку jpg убит, но не nil при 2-ом входе

[BLACK_RAIN]

Сообщение от Аватар

В самом конце jpg в nil не сбрасывается.

упс, точно. Теперь работает.

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

Второй раз как это условие отрабатывает?

проверяет if jpg<>nil и срабатывает, если jpg не nil.

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

Я бы на твоем месте его убрал, и вообще не пересоздавал компонент.

Я пробовал, но так палевно слишком. Глюки всякие получаются.

[Stilet]

проверяет if jpg<>nil и срабатывает, если jpg не nil.

Аватар за тебя дал ответ. Проверяй.

[BLACK_RAIN]

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

Аватар за тебя дал ответ. Проверяй.

Дык он сразу всё правильно сказал, что я забыл jpg:=nil присвоить.