Dynam. Array Speichern,bzw. Laden

[marabu]

Hallo Thomas,

dein Programm musst du selbst anpassen, aber hier zwei Routinen, die ein dynamisches Byte-Array aus einer Datei laden und in eine Datei speichern. Vielleicht hilft es dir zu verstehen:

Delphi-Quellcode:

uses
  Types;

procedure ArrayLoad(var bda: TByteDynArray; fn: TFileName);
begin
  with TFileStream.Create(fn, fmOpenRead + fmShareDenyWrite) do
  begin
    SetLength(bda, Size);
    ReadBuffer(bda[0], Length(bda));
    Free;
  end;
end;

procedure ArraySave(bda: TByteDynArray; fn: TFileName);
begin
  with TFileStream.Create(fn, fmCreate) do
  begin
    WriteBuffer(bda[0], Length(bda));
    Free;
  end;
end;

Freundliche Grüße vom marabu