Dynamische Arrays ... kleines Problem!

[DGL-luke]

Arrays speichern/laden? Nichts leichter als das:

Delphi-Quellcode:

type
  TMyTypeArray = array of TMyType; //TMyType durch fundamentalen typen ersetzen (z.B. Integer, oder ein record mit fudamentalen Typen)


procedure SaveToFile(Filename: string; Value: TMyTypeArray);
begin
  with TFilestream.Create(FileName, fmOpenRead) do
    try
      WriteBuffer(Value,length(Value) * sizeof(TMyType));
    finally
      Free;
    end;
end;

procedure SaveToFileAppend(Filename: string; Value: TMyTypeArray);
begin
  with TFilestream.Create(FileName, fmOpenWrite) do
    try
      Position := Size;
      WriteBuffer(Value,length(Value) * sizeof(TMyType));
    finally
      Free;
    end;
end;


procedure LoadFromFile(FileName: string; out Value: TMyTypeArray;Start: Integer = 0);
begin
  with TFilestream.Create(FileName, fmOpenRead) do
    try
      Position := Start;
      setlength(Value, Size-Position);
      ReadBuffer(Value,length(Value));
    finally
      Free;
    end;
end;

Was du jetzt tun musst:

1. Diesen Code in dein Programm kopieren
2. TMyType (alle Vorkommen!) durch SmallInt ersetzen (allerdings solltest du anstatt "SmallIntArray" evtl. "TSmallIntArray" erwägen, das ist so üblicher)
3. Deinen LoopBuffer als SmallInt deklarieren

Der dritte Schritt ist der wichtigste, der Compiler reisst dir sonst den Arsch auf!

Dann kannst du (gerne auch in SaveTheWave) einfach SaveToFileAppend aufrufen, um an deinen Header (für den du das Verfahren mit dem FileStream gerne übernehmen kannst, du könntest auch z.B. den zusätzlichen Parameter "Header" ins savetofile einfügen, und den zuerst schreiben).

Wenn dir with ... do und try ... finally ... end nichts sagen, solltest du in deine Delphi-Hilfe schauen, da müsste einiges drüber finden.