Ошибка "External: SIGSEGV"

@Hope_2000 · Регистрация: 07.04.2020

Author24 — интернет-сервис помощи студентам

При нажатии на кнопки Button1 и Button2 возникает ошибка : "External: SIGSEGV" , которая выделяет строки
"If (Idx> PictFiles.Count-1) then Idx:=0; " и " If Idx<0 then Idx:=PictFiles.Count-1; ". Не могу понять, что не так

Помогите, пожалуйста

Полный код напишу ниже

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Menus, StdCtrls, ExtDlgs;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    MainMenu1: TMainMenu;
    mnAbout: TMenuItem;
    mnSave: TMenuItem;
    mnLoad: TMenuItem;
    mnPicture: TMenuItem;
    mnWork: TMenuItem;
    mnMashtab: TMenuItem;
    mnRazmer: TMenuItem;
    mnPlus: TMenuItem;
    mnMinus: TMenuItem;
    OpenDialog1: TOpenDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure mnAboutClick(Sender: TObject);
    procedure mnLoadClick(Sender: TObject);
    procedure mnPictureClick(Sender: TObject);
    procedure mnMinusClick(Sender: TObject);
    procedure mnPlusClick(Sender: TObject);
    procedure mnRazmerClick(Sender: TObject);
    procedure mnSaveClick(Sender: TObject);
     procedure CheckFolder(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  fn, PictDir    : string;
  jpg: TJpegImage;
  bmap: TBitmap;
  ji: TJpegImage;
  pic: TPicture;
  Prop, Stretch : Boolean;
  Idx:  integer;
  PictFiles:  TStringList;
implementation
uses Unit2, Unit4;
{$R *.lfm}
 
{ TForm1 }
 
procedure CheckFolder;
var
  k:      integer;
  sr:     TSearchRec;
  s, ext: string;
  ItsPict: Boolean;
  begin
  Idx:=-1;
  if PictFiles=nil then PictFiles:=TStringList.Create
  else PictFiles.Clear;
  PictDir:=ExtractFileDir(fn)+'\';
  k:=0;
  if FindFirst(PictDir+'*.*', faAnyFile, sr) = 0 then begin
    repeat
      s:=AnsiUpperCase(sr.Name);
      ext:=ExtractFileExt(s);
      ItsPict:=(ext='.BMP') or (ext='.JPG') or (ext='.ICO') or  (ext='.PNG')
      or  (ext='.TIF') or  (ext='.GIF');
    if ItsPict then begin
      PictFiles.Add(s);
      if (s=AnsiUpperCase(ExtractFileName(fn))) then Idx:=k;
      inc(k);
      end;
    until FindNext (sr) <> 0;
    FindClose(sr);
     end;
  end;
 
procedure TForm1.mnPictureClick(Sender: TObject);
begin
 
end;
 
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
if CheckBox1.Checked=false then
  Image1.Proportional:=False
  else Image1.Proportional:=True;
 
end;
 
procedure TForm1.Image2Click(Sender: TObject);
begin
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Idx=-1 then Exit;
  Inc(Idx);
   If (Idx> PictFiles.Count-1) then Idx:=0;
 
fn:=PictDir+PictFiles.Strings[Idx];
  Image1.Picture.LoadFromFile(fn);
 Caption:=fn;
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if Idx=-1 then Exit;
  Dec(Idx);
 
  If Idx<0 then Idx:=PictFiles.Count-1;
 
  fn:=PictDir+PictFiles.Strings[Idx];
  Image1.Picture.LoadFromFile(fn);
 
end;
 
 
procedure TForm1.mnAboutClick(Sender: TObject);
begin
   Unit4.Form4.Show
end;
 
 
procedure TForm1.mnLoadClick(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
    fn:=OpenDialog1.FileName;
    Image1.Picture.LoadFromFile(fn);
    Caption:=fn;
end;
 end;
 
procedure TForm1.mnMinusClick(Sender: TObject);
begin
Image1.Width:=Image1.Width-250;
 Image1.height:=Image1.Height-250;
 mnMinus.Clear;
end;
 
procedure TForm1.mnPlusClick(Sender: TObject);
begin
   Image1.Width:=Image1.Width+250;
   Image1.height:=Image1.Height+250;
   mnPlus.Clear;
end;
 
procedure TForm1.mnRazmerClick(Sender: TObject);
begin
  Unit2.Form2.Show
end;
 
procedure TForm1.mnSaveClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
    begin
      Image1.Picture.SaveToFile(SaveDialog1.FileName);
    end;
end;
 
procedure TForm1.CheckFolder(Sender: TObject);
begin
 
end;
 
end.

@volvo · 07.04.2020, 20:02

Где создается PictFiles? Нет, я понимаю, что в процедуре CheckFolder, но ведь эта процедура нигде не вызывается. Вот и попытка обращения к несуществующему объекту...

@Hope_2000 · 07.04.2020, 20:09 **[ТС]**

А где его нужно создать?
Я его прописала в var..
Не понимаю

@volvo · 07.04.2020, 20:54

Нужно где-то вызвать процедуру CheckFolder, чтобы создать список файлов в папке, заданной переменной fn...

Как и где это сделать - я не знаю, я не телепат, чтобы догадаться, как это должно было работать, что есть на форме, как переходить между папками вообще. Это должен знать автор программы.

@Hope_2000 · 07.04.2020, 21:17 **[ТС]**

В папке несколько изображений. Программа должна листать "вперёд" и "назад" (кнопки Button1 и Button2 соответственно) эти изображения из папки.
Дописала программу до этого момента и остановилась...

Не могу понять, где вызвать эту процедуру

@Joey · 08.04.2020, 09:14

Hope_2000, у Вас две процедуры CheckFolder, случайно или намеренно? (одна является методом формы Form1, другая самостоятельная процедура).

Добавлено через 5 минут
Для начала попытайтесь ясно представить себе, как работает Ваша программа:

Код

1) Запускается прога, создается форма
2) Программа ждет действий пользователя

То есть не совершено никаких приготовлений. Теперь смотрите

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

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Idx=-1 then Exit;
 Inc(Idx);
 If (Idx> PictFiles.Count-1) then Idx:=0;
fn:=PictDir+PictFiles.Strings[Idx];
 Image1.Picture.LoadFromFile(fn);
 Caption:=fn;
end;

Здесь Вы сразу же обращаетесь к PictFiles.Strings[Idx], хотя PictFiles - это объект, а объект сначала нужно проинициализировать, чтобы ему хотя бы была выделена память.

Добавлено через 1 минуту
Как сказал volvo, мы не знаем за Вас, как Вы хотите вызывать CheckFolder и когда. Могу предложить, например, при запуске программы (по вызову Form1Create)

@Hope_2000 · 08.04.2020, 10:59 **[ТС]**

Спасибо большое, я уже разобралась

Очень глупые ошибки были

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	07.04.2020, 20:02	2
	Где создается PictFiles? Нет, я понимаю, что в процедуре CheckFolder, но ведь эта процедура нигде не вызывается. Вот и попытка обращения к несуществующему объекту... 0

@Hope_2000 0 / 0 / 0 Регистрация: 07.04.2020 Сообщений: 30
	07.04.2020, 20:09 [ТС]	3
	А где его нужно создать? Я его прописала в var.. Не понимаю 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	07.04.2020, 20:54	4
	Нужно где-то вызвать процедуру CheckFolder, чтобы создать список файлов в папке, заданной переменной fn... Как и где это сделать - я не знаю, я не телепат, чтобы догадаться, как это должно было работать, что есть на форме, как переходить между папками вообще. Это должен знать автор программы. 0

@Hope_2000 0 / 0 / 0 Регистрация: 07.04.2020 Сообщений: 30
	07.04.2020, 21:17 [ТС]	5
	В папке несколько изображений. Программа должна листать "вперёд" и "назад" (кнопки Button1 и Button2 соответственно) эти изображения из папки. Дописала программу до этого момента и остановилась... Не могу понять, где вызвать эту процедуру 0

@Hope_2000 0 / 0 / 0 Регистрация: 07.04.2020 Сообщений: 30
	08.04.2020, 10:59 [ТС]	7
	Спасибо большое, я уже разобралась Очень глупые ошибки были 0

Ошибка "External: SIGSEGV"

Решение