Ошибка доступа к памяти

@fadeinmad · Регистрация: 25.11.2012

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

Я только учусь работать с Lazarus. Объясните, пожалуйста, причину возникновения и (или) решение этой проблемы.
Поймал ошибку "External: SIGSEGV".
При попытке дойти до места, где ошибка возникла, нашел это: "FSubTreeCount = Cannot access memory at address 0x84".
Эта ошибка была в стандартной функции "TTreeNode.GetAbsoluteIndex: Integer" в файле treeview.inc.

Вот код моего модуля:

Кликните здесь для просмотра всего текста

Delphi

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, ExtCtrls, Spin, MaskEdit;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    cbArmy: TCheckBox;
    cbInsure: TCheckBox;
    cgAttributes: TCheckGroup;
    cbGraduate: TComboBox;
    cbSpeciality: TComboBox;
    ilImages: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    leLastName: TLabeledEdit;
    leFirstName: TLabeledEdit;
    leMiddleName: TLabeledEdit;
    mInfo: TMemo;
    meTelephone: TMaskEdit;
    pcTabs: TPageControl;
    rbFemale: TRadioButton;
    rbNotMarried: TRadioButton;
    rbMarried: TRadioButton;
    rbDivorsed: TRadioButton;
    rbMale: TRadioButton;
    rbWidow: TRadioButton;
    rgMarital: TRadioGroup;
    rgSex: TRadioGroup;
    sbStatus: TStatusBar;
    seLoyality: TSpinEdit;
    seBirthYear: TSpinEdit;
    tsCompany: TTabSheet;
    tsHuman: TTabSheet;
    tvCompany: TTreeView;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FillFields();
    procedure DataWasChanged(Sender: TObject);
    procedure SaveToFile();
    procedure tvCompanySelectionChanged(Sender: TObject);
    procedure WriteInMemo(number : integer);
    procedure LoadPeopleToEdit(number : integer);
    procedure CheckMaritalStatus(number : integer);
    procedure LoadChangesToRecords(number : integer);
    function GetGraduate(number : integer) : string;
    function GetSpeciality(number : integer) : string;
    function GetMaritalStatus(number : integer; sex : boolean) : string;
    function GetMaritalStatusNumber() : integer;
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  pathToFile : string = 'D:\\persons.txt';
  lastChecked : integer = 1;
 
{Запись (структура) ЧЕЛОВЕК}
type TPerson = record
            lastName : string[30];     //фамилия
            firstName : string[30];    //имя
            middleName : string[30];   //отчество
            birthYear : integer;       //год рождения
            sex : boolean;             //пол
            maritalStatus : integer;   //семейное положение
            // 0 - холост/не замужем
            // 1 - женат/замужем
            // 2 - разведен/разведена
            // 3 - вдовец/вдова
            army : boolean;            //военнообязанный
            insure : boolean;          //страховка
            loyality : integer;        //лояльность (от 0 до 100)
            graduate : integer;        //образование
            speciality : integer;      //специальность
            telephone : string[20];    //телефон
end;
var
  sync : array [0..12] of integer = (-1,0,1,2,3,-1,4,5,6,7,-1,8,9);
  buffer : string;
  file1 : file of TPerson;
  persons : array [0..9] of TPerson;
  defaultPersons : array [0..9] of TPerson = ({Директор}
                                             (lastName : 'Иванов';
                                              firstName : 'Семен';
                                              middleName : 'Викторович';
                                              birthYear : 1980;
                                              sex : True;
                                              maritalStatus : 1;
                                              army : False;
                                              insure : True;
                                              loyality : 100;
                                              graduate : 3;
                                              speciality : 0;
                                              telephone : '+7 (953) 111-11-11';),
                                              {Зам.директора по технич. части}
                                              (lastName : 'Петров';
                                              firstName : 'Василий';
                                              middleName : 'Иннокентиевич';
                                              birthYear : 1985;
                                              sex : True;
                                              maritalStatus : 0;
                                              army : False;
                                              insure : True;
                                              loyality : 85;
                                              graduate : 3;
                                              speciality : 1;
                                              telephone : '+7 (953) 222-22-22';),
                                              {Зам.директора по кадрам}
                                              (lastName : 'Станицын';
                                              firstName : 'Петр';
                                              middleName : 'Васильевич';
                                              birthYear : 1983;
                                              sex : True;
                                              maritalStatus : 1;
                                              army : False;
                                              insure : False;
                                              loyality : 87;
                                              graduate : 3;
                                              speciality : 1;
                                              telephone : '+7 (953) 333-33-33';),
                                              {Зам.директора по работе с населением}
                                              (lastName : 'Крылова';
                                              firstName : 'Валентина';
                                              middleName : 'Сергеевна';
                                              birthYear : 1990;
                                              sex : False;
                                              maritalStatus : 0;
                                              army : False;
                                              insure : True;
                                              loyality : 82;
                                              graduate : 3;
                                              speciality : 1;
                                              telephone : '+7 (953) 444-44-44';),
                                              {Главный бухгалтер}
                                              (lastName : 'Степанов';
                                              firstName : 'Алексей';
                                              middleName : 'Вениаминович';
                                              birthYear : 1975;
                                              sex : True;
                                              maritalStatus : 2;
                                              army : False;
                                              insure : True;
                                              loyality : 88;
                                              graduate : 3;
                                              speciality : 2;
                                              telephone : '+7 (953) 555-55-55';),
                                              {Бухгалтер по учету материальных ценностей}
                                              (lastName : 'Германн';
                                              firstName : 'Екатерина';
                                              middleName : 'Викторовна';
                                              birthYear : 1984;
                                              sex : False;
                                              maritalStatus : 2;
                                              army : False;
                                              insure : True;
                                              loyality : 78;
                                              graduate : 3;
                                              speciality : 2;
                                              telephone : '+7 (953) 666-66-66';),
                                              {Бухгалтер по выплатам}
                                              (lastName : 'Белый';
                                              firstName : 'Павел';
                                              middleName : 'Валерьевич';
                                              birthYear : 1987;
                                              sex : True;
                                              maritalStatus : 0;
                                              army : False;
                                              insure : True;
                                              loyality : 80;
                                              graduate : 3;
                                              speciality : 2;
                                              telephone : '+7 (953) 777-77-77';),
                                              {Бухгалтер по производству}
                                              (lastName : 'Веселов';
                                              firstName : 'Карл';
                                              middleName : 'Петрович';
                                              birthYear : 1973;
                                              sex : True;
                                              maritalStatus : 3;
                                              army : False;
                                              insure : True;
                                              loyality : 88;
                                              graduate : 3;
                                              speciality : 2;
                                              telephone : '+7 (953) 888-88-88';),
                                              {Системный администратор}
                                              (lastName : 'Комаров';
                                              firstName : 'Валерий';
                                              middleName : 'Викторович';
                                              birthYear : 1979;
                                              sex : True;
                                              maritalStatus : 1;
                                              army : False;
                                              insure : True;
                                              loyality : 70;
                                              graduate : 3;
                                              speciality : 3;
                                              telephone : '+7 (953) 999-99-99';),
                                              {Программист}
                                              (lastName : 'Савельева';
                                              firstName : 'Алиса';
                                              middleName : 'Авдеевна';
                                              birthYear : 1988;
                                              sex : False;
                                              maritalStatus : 1;
                                              army : False;
                                              insure : False;
                                              loyality : 82;
                                              graduate : 3;
                                              speciality : 4;
                                              telephone : '+7 (953) 123-45-67';));
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  pcTabs.ActivePage:=tsCompany;
  tvCompany.FullExpand;
  tvCompany.Items[1].Selected:=true;
  if(FileExists(pathToFile)=true) then
      begin
       Form1.FillFields();
      end
  else
      begin
       AssignFile(file1,pathToFile);
       Rewrite(file1);
       Write(file1,defaultPersons[0],defaultPersons[1],defaultPersons[2],defaultPersons[3],
               defaultPersons[4],defaultPersons[5],defaultPersons[6],defaultPersons[7],
               defaultPersons[8],defaultPersons[9]);
       CloseFile(file1);
       Form1.FillFields();
      end;
  WriteInMemo(sync[tvCompany.Selected.AbsoluteIndex]);
  LoadPeopleToEdit(sync[tvCompany.Selected.AbsoluteIndex]);
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
   Form1.SaveToFile();
end;
 
procedure TForm1.FillFields();
begin
    AssignFile(file1,pathToFile);
    Reset(file1);
    Read(file1,persons[0],persons[1],persons[2],persons[3],
               persons[4],persons[5],persons[6],persons[7],
               persons[8],persons[9]);
    CloseFile(file1);
end;
 
//ошибка стала появляться после того, как добавил это событие (на него ссылаются все элементы ввода, при изменении данных в них)
procedure TForm1.DataWasChanged(Sender: TObject);
begin
     if(pcTabs.ActivePage=tsHuman) then
     LoadChangesToRecords(sync[tvCompany.Selected.AbsoluteIndex]);
end;
 
procedure TForm1.SaveToFile();
begin
     AssignFile(file1,pathToFile);
     Rewrite(file1);
     Write(file1,persons[0],persons[1],persons[2],persons[3],
               persons[4],persons[5],persons[6],persons[7],
               persons[8],persons[9]);
     CloseFile(file1);
end;
 
procedure TForm1.tvCompanySelectionChanged(Sender: TObject);
begin
  WriteInMemo(sync[tvCompany.Selected.AbsoluteIndex]);
  LoadPeopleToEdit(sync[tvCompany.Selected.AbsoluteIndex]);
  if NOT(sync[tvCompany.Selected.AbsoluteIndex] = -1)
  then lastChecked := sync[tvCompany.Selected.AbsoluteIndex];
end;
 
procedure TForm1.WriteInMemo(number : integer);
begin
     if(number=-1) then
     begin
          mInfo.Lines.Clear;
          mInfo.Lines.Add('Выберите сотрудника для просмотра подробной информации!');
     end
     else
     begin
          mInfo.Lines.Clear;
          mInfo.Lines.Add('Фамилия: '+ persons[number].lastName);
          mInfo.Lines.Add('Имя: '+ persons[number].firstName);
          mInfo.Lines.Add('Отчество: '+ persons[number].middleName);
          mInfo.Lines.Add('Год рождения: '+ IntToStr(persons[number].birthYear));
          if(persons[number].sex) then buffer:='Мужской' else buffer:='Женский';
          mInfo.Lines.Add('Пол: '+ buffer);
          mInfo.Lines.Add('Образование: '+ GetGraduate(persons[number].graduate));
          mInfo.Lines.Add('Специальность: '+ GetSpeciality(persons[number].speciality));
          mInfo.Lines.Add('Семейное положение: '+ GetMaritalStatus(persons[number].maritalStatus, persons[number].sex));
          mInfo.Lines.Add('Телефон: '+ persons[number].telephone);
          if(persons[number].army) then buffer:='Да' else buffer:='Нет';
          mInfo.Lines.Add('Военнообязанный: '+ buffer);
          if(persons[number].insure) then buffer:='Да' else buffer:='Нет';
          mInfo.Lines.Add('Страховка: '+ buffer);
          mInfo.Lines.Add('Лояльность: '+ IntToStr(persons[number].loyality));
     end;
end;
 
function TForm1.GetGraduate(number : integer) : string;
begin
     case(number) of
            0: result:='Среднее (полное) общее';
            1: result:='Начальное профессиональное';
            2: result:='Среднее профессиональное';
            3: result:='Высшее профессиональное';
            4: result:='Кандидат наук';
            5: result:='Доктор наук';
     end;
end;
 
function TForm1.GetSpeciality(number : integer) : string;
begin
      case(number) of
            0: result:='Коммерческий директор';
            1: result:='Экономист';
            2: result:='Бухгалтер';
            3: result:='Инженер-системотехник';
            4: result:='Кандидат наук';
            5: result:='Инженер-программист';
      end;
end;
 
 
function TForm1.GetMaritalStatus(number : integer; sex : boolean) : string;
begin
     case(number) of
            0: if(sex) then result:='Не женат' else result:='Не замужем';
            1: if(sex) then result:='Женат' else result:='Замужем';
            2: if(sex) then result:='Разведен' else result:='Разведена';
            3: if(sex) then result:='Вдовец' else result:='Вдова';
     end;
end;
 
function TForm1.GetMaritalStatusNumber() : integer;
begin
     if(rbNotMarried.Checked) then result:=0;
     if(rbMarried.Checked) then result:=1;
     if(rbDivorsed.Checked) then result:=2;
     if(rbWidow.Checked) then result:=3;
end;
 
procedure TForm1.LoadPeopleToEdit(number : integer);
begin
     if NOT(number = -1)
     then
     begin
          leLastName.Text := persons[number].lastName;
          leFirstName.Text := persons[number].firstName;
          leMiddleName.Text := persons[number].middleName;
          seBirthYear.Value := persons[number].birthYear;
          if(persons[number].sex)
          then
          begin
               rbMale.Checked := True;
               rbFemale.Checked := False;
          end
          else
          begin
               rbMale.Checked := False;
               rbFemale.Checked := True;
          end;
          cbGraduate.ItemIndex := persons[number].graduate;
          cbSpeciality.ItemIndex := persons[number].speciality;
          CheckMaritalStatus(persons[number].maritalStatus);
          meTelephone.Text := persons[number].telephone;
          cbArmy.Checked := persons[number].army;
          cbInsure.Checked := persons[number].insure;
          seLoyality.Value := persons[number].loyality;
     end;
end;
 
procedure TForm1.LoadChangesToRecords(number : integer);
var
  numberToRecord : integer;
begin
     if (number = -1)
     then numberToRecord := lastChecked
     else numberToRecord := number;
     persons[numberToRecord].lastName := leLastName.Text;
     persons[numberToRecord].firstName := leFirstName.Text;
     persons[numberToRecord].middleName := leMiddleName.Text;
     persons[numberToRecord].birthYear := seBirthYear.Value;
     if(rbMale.Checked)
     then persons[numberToRecord].sex := True
     else persons[numberToRecord].sex := False;
     persons[numberToRecord].graduate := cbGraduate.ItemIndex;
     persons[numberToRecord].speciality := cbSpeciality.ItemIndex;
     persons[numberToRecord].maritalStatus := GetMaritalStatusNumber();
     persons[numberToRecord].telephone := meTelephone.Text;
     persons[numberToRecord].army := cbArmy.Checked;
     persons[numberToRecord].insure := cbInsure.Checked;
     persons[numberToRecord].loyality := seLoyality.Value;
end;
 
procedure TForm1.CheckMaritalStatus(number : integer);
begin
     case(number) of
            0:
              begin
                   rbNotMarried.Checked := True;
                   rbMarried.Checked := False;
                   rbDivorsed.Checked := False;
                   rbWidow.Checked := False;
              end;
            1:
              begin
                   rbNotMarried.Checked := False;
                   rbMarried.Checked := True;
                   rbDivorsed.Checked := False;
                   rbWidow.Checked := False;
              end;
            2:
              begin
                   rbNotMarried.Checked := False;
                   rbMarried.Checked := False;
                   rbDivorsed.Checked := True;
                   rbWidow.Checked := False;
              end;
            3:
              begin
                   rbNotMarried.Checked := False;
                   rbMarried.Checked := False;
                   rbDivorsed.Checked := False;
                   rbWidow.Checked := True;
              end;
     end;
end;
 
end.

Также привожу вышеуказанную стандартную функцию:

Кликните здесь для просмотра всего текста

Delphi

function TTreeNode.GetAbsoluteIndex: Integer;
// - first node has index 0
// - the first child of a node has an index one bigger than its parent
// - a node without children has an index one bigger than its previous brother
var
  ANode: TTreeNode;
begin
  Result:=-1;
  ANode:=Self;
  repeat
    inc(Result);
    while ANode.FPrevBrother<>nil do begin
      ANode:=ANode.FPrevBrother;
      inc(Result,ANode.FSubTreeCount); //ошибка возникает здесь
    end;
    ANode:=ANode.Parent;
  until ANode=nil;
end;

Ну и, на всякий случай, прикрепляю архив со своим проектом =)

@volvo · 09.10.2013, 18:23

Что надо делать, чтобы воспроизвести ошибку? Интересует именно последовательность действий, приводящая к вылету... Потому что мне не удалось получить вышеуказанной ошибки...

@fadeinmad · 09.10.2013, 19:07 **[ТС]**

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

Интересует именно последовательность действий, приводящая к вылету... Потому что мне не удалось получить вышеуказанной ошибки...

Ошибка вылетала при запуске программы. Компиляция проходила успешно, но сама форма не появлялась, вместо нее вылетала ошибка.

@volvo · 09.10.2013, 19:46

Не знаю, пересобрал EXE-шник (чужие исполняемые файлы не запускаю), запустил, все нормально показывается:

@fadeinmad · 09.10.2013, 20:01 **[ТС]**

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

Не знаю, пересобрал EXE-шник (чужие исполняемые файлы не запускаю), запустил, все нормально показывается:

Правильно, что не запускаешь, уважаю =) Сам попадался на такое.
Странно, что программа работает. Значит, получается, проблема не в моем коде?
Знаю, что SIGSEGV - ошибка в UNIX наподобие Access Violation в Windows. Lazarus часто "путается" =)
Единственное, что я не понимаю - что именно у меня не так.

@volvo · 09.10.2013, 20:05

Возможно - версия Лазаруса не самая новая, уже были прецеденты, когда только обновление решало проблему (мало ли, в старой сборке был баг, в новой - пофиксили). А, да... Я сейчас под 32-битной системой, поэтому, разумеется, собирал под 32-бита. Возможно, что-то с 64-битным компилятором не клеится, но это уже я сейчас не смогу проверить...

@fadeinmad · 09.10.2013, 20:52 **[ТС]**

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

Возможно, что-то с 64-битным компилятором не клеится, но это уже я сейчас не смогу проверить...

Я компилирую под х64. Возможно, что именно в это проблема. Обновление, вроде, последнее. Но я проверю.

Добавлено через 33 минуты
Проблема решена.
Решение, правда, кривое, но какое есть. Так как ошибка вылетала при запуске программы, я решил, что это из-за того, что метод LoadChangesToRecords вызывается тогда, когда форма еще не достроена или не завершена какая-то другая работа с данными.
Поэтому я создал новую переменную programIsRunning : boolean = False.
Я добавил ее в условие вызова вышеуказанного метода, а True переменная получала в конце обработки FormCreate. Таким образом, метод вызывается только тогда, когда форма уже готова к работе.

Код события FormCreate:

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  pcTabs.ActivePage:=tsCompany;
  tvCompany.FullExpand;
  tvCompany.Items[1].Selected:=true;
  if(FileExists(pathToFile)=true) then
      begin
       Form1.FillFields();
      end
  else
      begin
       AssignFile(file1,pathToFile);
       Rewrite(file1);
       Write(file1,defaultPersons[0],defaultPersons[1],defaultPersons[2],defaultPersons[3],
               defaultPersons[4],defaultPersons[5],defaultPersons[6],defaultPersons[7],
               defaultPersons[8],defaultPersons[9]);
       CloseFile(file1);
       Form1.FillFields();
      end;
  WriteInMemo(sync[tvCompany.Selected.AbsoluteIndex]);
  LoadPeopleToEdit(sync[tvCompany.Selected.AbsoluteIndex]);
  programIsRunning := True;
end;

Код события DataWasChanged:

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.DataWasChanged(Sender: TObject);
begin
     if(programIsRunning AND (pcTabs.ActivePage=tsHuman)) then
         begin
              LoadChangesToRecords(sync[tvCompany.Selected.AbsoluteIndex]);
              WriteInMemo(sync[tvCompany.Selected.AbsoluteIndex]);
         end;
end;

@volvo Супер-модератор 32950 / 21270 / 8166 Регистрация: 22.10.2011 Сообщений: 36,538 Записей в блоге: 8
	09.10.2013, 18:23	2
	Что надо делать, чтобы воспроизвести ошибку? Интересует именно последовательность действий, приводящая к вылету... Потому что мне не удалось получить вышеуказанной ошибки... 1

@fadeinmad 9 / 9 / 2 Регистрация: 25.11.2012 Сообщений: 115
	09.10.2013, 19:07 [ТС]	3
	Сообщение от UI Интересует именно последовательность действий, приводящая к вылету... Потому что мне не удалось получить вышеуказанной ошибки... Ошибка вылетала при запуске программы. Компиляция проходила успешно, но сама форма не появлялась, вместо нее вылетала ошибка. 0

@volvo Супер-модератор 32950 / 21270 / 8166 Регистрация: 22.10.2011 Сообщений: 36,538 Записей в блоге: 8
	09.10.2013, 19:46	4
	Не знаю, пересобрал EXE-шник (чужие исполняемые файлы не запускаю), запустил, все нормально показывается: Миниатюры 1

@fadeinmad 9 / 9 / 2 Регистрация: 25.11.2012 Сообщений: 115
	09.10.2013, 20:01 [ТС]	5
	Сообщение от UI Не знаю, пересобрал EXE-шник (чужие исполняемые файлы не запускаю), запустил, все нормально показывается: Правильно, что не запускаешь, уважаю =) Сам попадался на такое. Странно, что программа работает. Значит, получается, проблема не в моем коде? Знаю, что SIGSEGV - ошибка в UNIX наподобие Access Violation в Windows. Lazarus часто "путается" =) Единственное, что я не понимаю - что именно у меня не так. 0

@volvo Супер-модератор 32950 / 21270 / 8166 Регистрация: 22.10.2011 Сообщений: 36,538 Записей в блоге: 8
	09.10.2013, 20:05	6
	Возможно - версия Лазаруса не самая новая, уже были прецеденты, когда только обновление решало проблему (мало ли, в старой сборке был баг, в новой - пофиксили). А, да... Я сейчас под 32-битной системой, поэтому, разумеется, собирал под 32-бита. Возможно, что-то с 64-битным компилятором не клеится, но это уже я сейчас не смогу проверить... 1

	09.10.2013, 20:52