Hallo erst mal an alle,
ich möchte Werte an ein selbst erstelltes Objekt über eine Procedure übergeben.
eigene Klasse:
Delphi-Quellcode:
type
TRoom = class
Description: String;
Norden, Osten, Sueden, Westen: TRoom;
procedure SetAusgaenge (norden, osten, sueden, westen: TRoom);
end;
aufrufen der Procedure:
Delphi-Quellcode:
procedure TForm1.CreateComputerRoom;
begin
Computerraum:= TRoom.Create;
Computerraum.Description:= ('Du stehst im Computerraum!');
Computerraum.SetAusgaenge(Kueche, nil, nil, nil);
end;
Procedure:
Delphi-Quellcode:
procedure TRoom.SetAusgaenge(norden, osten, sueden, westen: TRoom);
begin
self.Norden:= norden;
self.Osten:= osten;
self.Sueden:= sueden;
self.Westen:= westen;
end;
Das Problem ist folgendes, dass in diesem Fall Computerraum.Norden = nil ist obwohl er eigendlich = Kueche sein sollte. Habe schon mal gestern eine Stunde versucht, einen Fehler zu finden und heute einfach nochmal den Quelltext neu getippt, aber ohne Erfolg.
Kann jemand einen Fehler von mir erkennen?
Vielen Dank schon mal, Martin.Ghosts