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.