FastMM4 - Verbuggt?

**Snaeng**

Hallo erstmal.

Das ist meine erste Frage in diesem Forum, also bitte nicht gleich lynchen wenn ich in der falschen Area gepostet habe (dies scheint die richtige zu sein für diese Frage).

Also und zwar möchte ich eine Klasse schreiben, die ein Spielfeld speichert. Diese soll jeweils einen Wert pro Feld speichern. Dies möchte ich direkt im Speicher realisieren und nicht als verkettete Liste. Da es sich um eine Schulaufgabe handelt und wir leider ein paar dämliche restriktionen haben, dürfen wir dynamische Arrays nicht benutzen.

Nun ja, soweit läuft die Klasse auch. Die größe lässt sich mit der ChangeSize Prozedur problemlos verändern. Allerdings macht die AddRow Prozedur Probleme, die eine neue Zeile an beliebiger Stelle einfügen soll. Wenn ich diese Prozedur ausführe, gibt mir FastMM (und Delphi) eine Fehlermeldung bei dem Befehl FreeMem(Data); im Destruktor. FastMM sagt "The block footer has been corrupted." und Delphi wirft die Exception EInvalidPointer mit der Nachricht 'Ungültige Zeigeroperation.'. Delphi wirft allerdings keine Exception wenn ich FastMM nicht mit in das Programm kompiliere.

Nun frage ich mich ob dies ein Problem mit FastMM ist (da ohne keine Exception auftritt), oder ob wirklich was mit dem Code nicht stimmt.

Hier ist der gesamte Code der Unit:

markieren

Code:

			unit UMemMap;

interface

uses SysUtils, Graphics;

type PFType      = ^TFType;

     TFType      = (

                     ftFree,

                     ftWater,

                     ftUndestroyable,

                     ftDestroyable

                   );

     TMapData    = record

                     Name      : String;

                     Fieldsize : Word;

                     BgColor   : TColor;

                     Images    : array [ftWater..ftDestroyable] of String;

                   end;

     TMemMap     = class

                     private

                       Data  : Pointer;

                       Rows,

                       Cols  : Word;

                     public

                       destructor Destroy; override;

                       procedure AddRow(PrevRow : Word);

                       procedure ChangeSize(NewRows, NewCols : Word);

                       procedure UpdateField(Row, Col : Word; FType : TFType);

                       procedure Echo;

                   end;

implementation

destructor TMemMap.Destroy;

begin

  FreeMem(Data);

  inherited

end;

procedure TMemMap.AddRow(PrevRow : Word);

var NewData : Pointer;

    Row,

    Col     : Integer;

begin

  GetMem(NewData, (Rows + 1) * Cols * SizeOf(TFType));

  for Row := 0 to PrevRow - 1 do

    for Col := 0 to Cols do

      PFType(Integer(NewData) + (Row * Cols + Col) * SizeOf(TFType))^ :=

        PFType(Integer(Data) + (Row * Cols + Col) * SizeOf(TFType))^;

  for Col := 0 to Cols do

    PFType(Integer(NewData) + (PrevRow * Cols + Col) * SizeOf(TFType))^ := ftFree;

  for Row := PrevRow + 1 to Rows do

    for Col := 0 to Cols do

      PFType(Integer(NewData) + (Row * Cols + Col) * SizeOf(TFType))^ :=

        PFType(Integer(Data) + ((Row - 1) * Cols + Col) * SizeOf(TFType))^;

  FreeMem(Data);

  Inc(Rows);

  Data := NewData

end;

procedure TMemMap.ChangeSize(NewRows, NewCols : Word);

var NewData : Pointer;

    Row,

    Col     : Integer;

begin

  if (NewRows = 0) or (NewCols = 0) then

    NewData := nil

  else

  begin

    GetMem(NewData, NewRows * NewCols * SizeOf(TFType));

    for Row := 0 to NewRows - 1 do

    begin

      for Col := 0 to NewCols - 1 do

        if (Col > Cols - 1) or (Row > Rows - 1) then

          PFType(Integer(NewData) + (Row * NewCols + Col) * SizeOf(TFType))^ := ftFree

        else

          PFType(Integer(NewData) + (Row * NewCols + Col) * SizeOf(TFType))^ :=

            PFType(Integer(data) + (Row * Cols + Col) * SizeOf(TFtype))^

    end

  end;

  FreeMem(Data);

  Rows := NewRows;

  Cols := NewCols;

  Data := NewData

end;

procedure TMemMap.UpdateField(Row, Col : Word; FType : TFType);

begin

  PFType(Integer(Data) + ((Row - 1) * Cols + (Col - 1)) * SizeOf(TFType))^ := FType

end;

procedure TMemMap.Echo;

var Row, Col : Integer;

begin

  writeln('Ausagbe: ', Cols, 'x', Rows);

  for Row := 0 to Rows - 1 do

  begin

    for Col := 0 to Cols - 1 do

      write(Word(PFType(Integer(Data) + (Row * Cols + Col) * SizeOf(TFType))^), ' ');

    writeln

  end;

  writeln

end;

end.

Kann mir jemand vielleicht helfen?

Sollte es wirklich an FastMM liegen: Gibt es noch gute Alternativen um Speicherlecks festzustellen?

Mit freundlichen Grüßen
Snaeng

Edit: Es handelt sich übrigens um die Version 4.90 von FastMM.

FastMM4 - Verbuggt?

FastMM4 - Verbuggt?

Forumregeln