Exception-Klasse >>External: SIGSEGV<<

[Fernsch]

Hatte ich ganz vergessen.
Hier der Rest des Codes mit der Deklaration.

Delphi-Quellcode:

unit uKlassenname1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;


type
  TRaum = class
   public
    Beschreibung : String;
    Norden, Sueden, Westen, Osten, Rauf, Runter: TRaum;

    procedure setAusgaenge (nord, ost, west, sued, up, down:TRaum);
  end;

implementation
 procedure TRaum.setAusgaenge(nord, ost, west, sued, up, down:TRaum);
           begin
             self.Norden :=nord;
             self.Osten :=ost;
             self.Westen :=west;
             self.Sueden :=sued;
             self.Rauf :=up;
             self.Runter :=down;
end;
      end.