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.