access violation at address

[Ewgen81]

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

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

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

А можешь подсказать, как создать (уже в конструкторе его создал)? Может с методами или свойствами что-то намутил я.

[GunSmoker]

Подсказка: где у тебя стоит a:=Tchislo1.Create;?

Ну, в TChislo1.Create.

Хорошо, это значит "a" будет создана только тогда, когда вызовется TChislo1.Create.

А где у тебя вызывается TChislo1.Create?

... в самом TChislo1.Create! И больше нигде.

Откуда следует две вещи:

- TChislo1.Create не вызывается вообще. У тебя в коде нет пути выполнения, который привёл бы к вызову TChislo1.Create.

- Даже если ты вставишь куда-то вызов TChislo1.Create (скажем, в OnCreate формы), то это приведёт к вылету программы, потому что TChislo1.Create у тебя вызывает сам себя бесконечное число раз. Иными словами, при вызове TChislo1.Create он будет бесконечно вызывать сам себя, пока не исчерпает доступную память, после чего программа и вылетит.

[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;
    FChislo1: TEdit;
    FChislo2: TEdit;
    FOtvet: TEdit;
    FDeyst: TRadioGroup;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
end;

type
  TChislo = class // класс число
  strict protected
    FChislo1: Real;  // 1 число
    FChislo2: Real;  // 2 число
  public
    property Chislo1: Real read FChislo1 write FChislo1;
    property Chislo2: Real read FChislo2 write FChislo2;
end;

type
  TOtvet = class(TChislo) // класс ответ
  strict protected
    FOtvet: Real;  // Результат вычисления
  public
    property Otvet: Real read Fotvet write FOtvet;
end;

type
  TDeyst = class(TRadiogroup) // выбор действия
    strict protected
      FDeyst: integer;      // результат выбора
    public

end;

var
  Form1: TForm1;
  a,b,c:Real;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Fchislo1:Tchislo;
    Fchislo2:Tchislo;
    FOtvet:Totvet;
    x:Integer;

begin
Fchislo1:=Tchislo.Create;
Fchislo2:=Tchislo.Create;
Fotvet:=Totvet.Create;

 a:=FChislo1.Chislo1;
 b:=FChislo2.Chislo2;
 c:=0;

   x:=FDeyst.ItemIndex;
   case x of
    0: c :=a+b;
    1: c :=a-b;
    2: c :=a*b;
    3: if b<>0 then
          c:=a/b
          else showmessage ('На ноль делить нельзя');
  end;

 FOtvet.Otvet:=c;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Fchislo1.Clear;
  FChislo2.Clear;
  FOtvet.Clear;
end;

end.

Здесь то что не правильно? почему нет ответа?

Все, сам разобрался.



Объединил сообщения.
Модератор.