Pointer auf dynamisches Array initialisieren = SIGSEGV???

[RSE]

Hallo!

Da man in Klassen ja kein dynamisches Array benutzen darf (weil die Größe ja nicht fest ist), benutze ich jetzt einen Pointer auf ein dynamisches Array. Dabei gibt es allerdings einen komischen Effekt:

Code: Alles auswählen

type
  TBuffer = array of array of Word;
  TMyClass = class
    Buffer = ^TBuffer;
  ...
procedure TMyClass.MachWas;
  var
    buf: TBuffer;
  begin
    SetLength(buf,20,20); // kein Fehler
    SetLength(Buffer^,20,20); // SIGSEGV Fehler
  ...

Woran liegt das? Eigentlich müsste doch bei beiden Aufrufen genau das gleiche passieren?

P.S.: Ich progge momentan in der DOS-IDE GO32V2 im Compiler Modus ObjFPC.

[Christian]

Hast du dir auch mal durchgelesen was du da gebastet hast ?
wenn ich das richtig sehe versuchst du die grösse eines typen zu ändern ?!

[KOBOLD Messring GmbH]

Genau, Christian hat Recht: Du musst doch erst eine Variable von Deinem BufferPointer-Typ deklarieren:

Code: Alles auswählen

TBuffer = array of array of Word;
  TMyClass = class
    Buffer = ^TBuffer;
  ...
procedure TMyClass.MachWas;
  var
    buf: TBuffer;
    BufferPointer : Buffer; // VARIABLE VOM TYP ANLEGEN
  begin
    SetLength(buf,20,20); // kein Fehler
    SetLength(Buffer^,20,20); // SIGSEGV Fehler
    SetLength (BufferPointer^, 20, 20); // Wahrscheinlich kein Fehler mehr

Ich hab's nicht ausprobiert, aber sooo müsste das gehen

[mse]

Da man in Klassen ja kein dynamisches Array benutzen darf (weil die Größe ja nicht fest ist),

Dies ist möglicherweise ein Irrtum, was meinst du damit genau?

[mschnell]

Da man in Klassen ja kein dynamisches Array benutzen darf (weil die Größe ja nicht fest ist),

Stimmt nicht. Das dynamische Array wird automatisch so verwaltet (die Variable (in der Klasse oder auf dem Stack) ist ein Pointer, die Daten stehen auf dem Heap).

-Michael

[RSE]

Mist, da war natürlich wieder ein Schreibfehler drin... ich hab natürlich diesen Code:

Code: Alles auswählen

type
  TBuffer = array of array of Word;
  TMyClass = class
    Buffer: ^TBuffer;
  ...
procedure TMyClass.MachWas;
  var
    buf: TBuffer;
  begin
    SetLength(buf,20,20); // kein Fehler
    SetLength(Buffer^,20,20); // SIGSEGV Fehler
  ...

Und heute gibt´s selbst bei

Code: Alles auswählen

type
  TMyClass = class
    Buffer: array of array of Word;
  ...

keinen Fehler mehr. Also muss der Fehler gestern entweder bei FPC gelegen haben, oder ich hab vorher woanders im Speicher rumgeschrieben und damit was zerhauen oder ich hatte noch´n anderen Fehler drin. Jedenfalls hatte er gestern irgendwas von "Kann sowas nicht in einer Klasse verwenden, weil der Typ initialization und finalization benötigt", und zwar kam der Fehler auf der Deklaration der Klasse. Vielleicht ist um 4:00 Uhr morgens auch nicht ganz die optimale Zeit zum programmieren

Wie auch immer, vielen Dank für die Mühen! Beim nächsten unerklärlichen Fehler werd ich zuerst mal neu Starten, geht ja fix im Dos