为什么乘法时会抛出异常？

Question

我想要平方，但我不记得怎么做，因为我乘法是一个变量，但抛出异常，我不知道为什么。请帮助我不知道还能做什么

  program Project1;
uses crt;
type TSquare=class
             len:integer;
             place:integer;
      function Perimetr:integer;
      function Area:integer;
      function Verify():boolean;
      procedure Show(P,S:real);
constructor Create(P,l:integer);
end;
 function TSquare.Perimetr:integer;
 var P:integer;
begin
       P:=len*4;
  end;
function TSquare.Area:integer;
var S:integer;
begin
       S:=len*len;
  end;
function TSquare.Verify:boolean;
begin

  end;
  procedure TSquare.Show(P,S:real);
  begin
         write('Площидь=',S,'Перимитр=',P);
    end;
constructor TSquare.Create(p,l:integer);
begin
       len:=l;
       place:=p;
end;
var r: TSquare;
    a,b:integer;
  begin
    r.Create(1,5);
    r.Show(r.Perimetr(),r.Area());
  end.

Answer 1

SIGSEGV表示访问无效内存。这里你没有正确创建 TSquare 对象。

r := TSquare.Create(1,5); 是创建对象实例的正确方法。

为什么乘法时会抛出异常？

Why throw an exception when multiplying?

pascal

lazarus

freepascal