External: SIGSEGV

[DieGuteNudel]

Guten Tag,

beim Kompilieren meiner Klasse wird mir der allseitsbekannte SIGSEGV-Fehler in Zeile 49 bei "getAuge := auge;" angezeigt. Ich verstehe schlichtweg nicht, warum.

Code: Alles auswählen

unit UWuerfel;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  TWuerfel = class
 
  protected
    auge: string;
  public
    procedure setAuge;
    function getAuge: string;
    constructor create;
    destructor destroy;
  protected
    procedure init;
 
  end;
 
implementation
 
procedure TWuerfel.init;
begin
  auge := '?';
  randomize;
end;
 
constructor TWuerfel.create;
begin
  init;
end;
 
destructor TWuerfel.destroy;
begin
end;
 
procedure TWuerfel.setAuge;
begin
  auge := floattostr (random(6)+1);
end;
 
function TWuerfel.getAuge: string;
begin
  getAuge := auge;
end;
 
end.

Ich hoffe, mir kann jemand helfen.

[Mathias]

Irgendwo im restlich Code greifst du auf TWuerfel zu.

Steht dort irgendwo Wuerfel := TWuerfel.Create oder was ähnliches ?
Wen so etwas fehlt, dann wird ein SIGSEV ausgelöst.

Am besten Postest du den Code, wo Wuerfel verwendet wird.

[DieGuteNudel]

Irgendwo im restlich Code greifst du auf TWuerfel zu.

Steht dort irgendwo Wuerfel := TWuerfel.Create oder was ähnliches ?
Wen so etwas fehlt, dann wird ein SIGSEV ausgelöst.

Am besten Postest du den Code, wo Wuerfel verwendet wird.

Hab' den Fehler gefunden. In der gui hatte ich 3 Variablen vom Typ TWuerfel, habe aber nur bei einer davon den constructor aufgerufen.