access violation at address

[UnChanter]

ВСЁ.... проблема решена.... у меня был массив
koor : array[1..26] of TPoint;

а я пытался сделать так:

for i:=1 to 27 do
    begin
     koor[i].x:=F.ReadInteger(intToStr(i),'X',0);
     koor[i].y:=F.ReadInteger(intToStr(i),'Y',0);
    end;

и после этого кода обращение к Form1 переставало работать...

А delphi не должно случаем оповещать о таких нарушениях???, может какие опции выключены?

подскажите пожалуйста, что надо включить?

[_Engine_]

Project - Options - Compiler - Range Checking - поставить галочку

[UnChanter]

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

Project - Options - Compiler - Range Checking - поставить галочку

Спасибо!!!

[Jeni]

А еще лучше или задавать верхнюю границу массива в виде константы (типа const KoorCount = 26) и потом применять везде эту константу или использовать в циклах функцию High.

[UnChanter]

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

или использовать в циклах функцию High.

привидите пожалуйста пример!

[_Engine_]

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

А еще лучше или задавать верхнюю границу массива в виде константы (типа const KoorCount = 26) и потом применять везде эту константу или использовать в циклах функцию High.

Почему только верхнюю? Тогда уж и нижнюю границу тоже надо задавать или пользовать

Low

[Jeni]

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

Почему только верхнюю?..

Да это понятно. Просто обычно проблемы возникают именно с верхней границей, т.е. путаются с количеством элементов.

[s.Creator]

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

привидите пожалуйста пример!

for i:=Low(koor) to High(koor) do
//...

[Ewgen81]

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Edit1:  TEdit;
    Edit2:  TEdit;
    Edit3:  TEdit;
    Radiogroup1: TRadiogroup;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
end;

type
  TChislo1 = class//(TMemo) // класс число1
  strict protected

    FChislo1: Real;  // 1 число
      function GetChislo: Real;  virtual;
      procedure SetChislo(Value: Real);  virtual;
  public
    property Chislo1: Real read GetChislo write SetChislo;
    constructor Create ();
    destructor Destroy (); override;
end;

type
  TChislo2 = class(TChislo1) // класс число2
  strict protected
    FChislo2: Real;  // 2 число
      function GetChislo: Real; Override;  // Замена абстрактного метода
      procedure SetChislo(Value: Real); Override;
   public
    property Chislo2: Real read GetChislo write SetChislo;
    //constructor Create (Index: Real);
end;

type
  TOtvet = class(TChislo2) // класс ответ
  strict protected
    FOtvet: Real;  // Результат вычисления
   //   function GetChislo: Real; Override;  // Замена абстрактного метода
  public
    property Otvet: Real read GetChislo;
  //  constructor Create (Index: Real);
end;

type
  TDeyst = class(TRadiogroup)
    strict protected
      FDeyst: real;
      function GetDeyst: Real;
      procedure SetDeyst(Value: Real);
    public
      property ItemIndex;
     // property S: real read GetDeyst write SetDeyst;
     // property V: real read GetDeyst write SetDeyst;
     // property U: real read GetDeyst write SetDeyst;
     // property D: real read GetDeyst write SetDeyst;
      //property Deyst[Index: Integer]: Integer read GetDeyst write SetDeyst;
end;

var
  Form1: TForm1;
  Edit1: TChislo1;
  Edit2: TChislo2;
  Edit3: TOtvet;
  //Radiogroup1: TDeyst;
  a,b,c:TChislo1;
 //x: Real;
  implementation

{$R *.dfm}

constructor TChislo1.Create();
begin
  Inherited Create();
   a:=Tchislo1.Create;
   b:=Tchislo2.Create;
   c:=TOtvet.Create;
   //FChislo1:=TChislo1.Create;
end;

//constructor TChislo2.Create;
//begin
//  FChislo2:=TChislo1.Create;
//  GetChislo;
//  SetChislo;
//end;

//constructor TOtvet.Create;
//begin
//  FOtvet:=TOtvet.Create;
//  GetChislo;
// SetChislo;
//end;

destructor TChislo1.Destroy;
begin
// clear();
 Form1.Free;
 inherited;
end;

function TChislo1.GetChislo: Real;
begin
  Result:=FChislo1;
end;

procedure TChislo1.SetChislo(Value: Real);
begin
  FChislo1:=Value;
end;

function TChislo2.GetChislo: Real;
begin
  Result:=FChislo2;
end;

procedure TChislo2.SetChislo(Value: Real);
begin
  FChislo2:=Value;
end;


function TDeyst.GetDeyst: Real;
begin
result:=Fdeyst;
//   case Index of
//    1:  x:=a.Chislo1+b.Chislo1;
//    2:  x:=a.FChislo1-b.FChislo1;
//    3:  x:=a.Chislo1*b.Chislo1;
//    4:  if b.Chislo1<>0 then
//          x:=a.Chislo1/b.Chislo1
//          else showmessage ('На ноль делить нельзя');
//  end;
end;


procedure TDeyst.SetDeyst(Value: Real);
begin
  Fdeyst:= Value;
end;



procedure TForm1.Button1Click(Sender: TObject);
var FDeyst:TDeyst;
z: real;
begin
  //z:=Tdeyst.Create;
  case Fdeyst.ItemIndex of
    0: z:=a.Chislo1+b.Chislo1;
    1: z :=a.Chislo1-b.Chislo1;
    2: z :=a.Chislo1*b.Chislo1;
    3: if b.Chislo1<>0 then
          z:=a.Chislo1/b.Chislo1
          else showmessage ('На ноль делить нельзя');
  end;


//  z.S:=a.Chislo1+b.Chislo1;
//  z.V :=a.FChislo1-b.FChislo1;
//  z.U :=a.Chislo1*b.Chislo1;
//  z.D := if b.Chislo1<>0 then
//          x:=a.Chislo1/b.Chislo1
//          else showmessage ('На ноль делить нельзя');
  Edit3.text:=FloatToStr(z);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

end.

после запуска приложения компилятор выкидывает ошибку:
access violation at address 004b8fa5 на шаге "0: z:=a.Chislo1+b.Chislo1;" (163 строка). Помогите что делаю не так?

[GunSmoker]

Не создаёшь объект a.

P.S. Ну ты и намутил...