Lazarus und OOP: SIGSEGV-Fehler

[Matthias V. (Gast)]

Guten Abend,

meine Programmierkenntnisse aus dem Studium sind lange her, jetzt wollte 
ich mit Lazarus mal versuchen zu reaktivieren, was noch da ist, und 
scheitere relativ schnell:
Ich möchte mir einen eigenen Sudoku-Solver bauen. Klappt grundsätzlich 
rein prozedural ganz gut, aber selbst in diesem Miniprojekt wirds doch 
schnell unübersichtlich. Also die Idee, nochmal neu mit OOP aufzusetzen.

Eine Klasse TSudoku geschaffen, und im Hauptprogramm eine entsprechende 
Variable angelegt (var meinSudoku: TSudoku;).
Dann meinSudoku.Create() aufgerufen, und anschließend 
meinSudoku.Ausgeben(). Bei letzterem wird die Fehlermeldung "External: 
SIGSEGV" ausgelöst.

Ich habe die vage Vermutung, dass der Zugriff auf das interne Array 
innerhalb der Klasse nicht zulässig ist, was aber nicht abhängt von der 
Sichtbarkeit nach außen (private vs. public). Ist das Array hier mit 
static zu deklarieren? Falls ja, wie?/Ich erhalte immer die Meldung, an 
dieser und jener Stelle sei das Schlüsselwort static nicht zulässig.
Oder ist die Ursache für die Fehlermeldung eine andere?
Die Fehlermeldung ist unabhängig vom "self.", write an sich 
funktioniert.

Vielen Dank!

unit USudoku;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,Crt;

type
  TSudoku = class
    private
      sudokumatrix: array[1..9] of array[1..9] of String;
    public
      procedure Ausgeben();
      constructor Create();
  end;

implementation

  constructor TSudoku.Create();
  var
    x,y: integer;
  begin
    for x:=1 to 9 do begin
      for y:=1 to 9 do begin
        sudokumatrix[x][y]:='123456789';
      end;
    end;
  end;

  procedure TSudoku.Ausgeben();
  var
    x,y: integer;
    inhalt: String;
  begin
    for x:=1 to 9 do begin
      for y:=1 to 9 do begin
        // die folgende Zeile löst SIGSEGV aus
        Write(self.sudokumatrix[x][y]:10);
      end;
      writeln;
    end;
  end;
end.

[Jim M. (turboj)]

Dein String hat 9 Zeichen und nicht 10.

Sollte das hier

Write(self.sudokumatrix[x][y]:10);

nicht einen Compiler Error auswerfen?

Ich hätte da eher

Write(sudokumatrix[x][y], length(sudokumatrix[x][y]));

geschrieben.

[Matthias V. (Gast)]

Nein, daran liegt es nicht. Die :10 sind ja nur eine Formatanweisung, 
kürzere Strings werden aufgefüllt mit Leerzeichen für eine bündige 
Ausrichtung.

Selbst wenn ich das weglasse, oder statt write eine Zuweisung an eine 
Variable vornehme, bleibt der Fehler beim Versuch, auf das Array 
zuzugreifen.

[René H. (Gast)]

Häng mal das Projekt als .zip an bitte.

Grüsse,
René

[Uwe (Gast)]

Wie sieht der Aufruf im Hauptprogramm aus?

[Maier (Gast)]

Matthias V. schrieb im Beitrag #558251
> Dann meinSudoku.Create() aufgerufen,
Hier liegt der Fehler, richtig muss es heissen:
meinSudoku:= TSudoku.Create;

Ist eine echte Falle, in die ich auch schon oefters getappt bin...

[Matthias V. (Gast)]

@Maier: Vielen Dank, das war der entscheidende Hinweis.

(Und ich wäre da nicht von alleine drauf gekommen...!)

Danke!

@Uwe: Das Hauptprogramm als solches existiert noch nicht, ich hatte den 
OO-Ansatz als Neuanfang umgesetzt und im Hauptprogramm existieren 
wirklich nur der Create-Aufruf und der Aufruf meinSudoku.Ausgeben().

@René H.: Bei Interesse gerne, wenn der Fortschritt etwas größer ist ;-)