9.11 Unit LoadSave

{-------------------------------------------------------------------}

{ Routinen zum Laden und Speichern von Dateien }
unit LoadSave;

{-------------------------------------------------------------------}

interface

uses
  Glob;        { Globale Deklarationen }

procedure LoadFileI(var Wert : Wordarray; fn : string);
procedure SaveFileI(var Wert : Wordarray; fn : string);
procedure LoadFileR(var Wert : Realarray; fn : string);
procedure SaveFileR(var Wert : Realarray; fn : string);
procedure LoadDatFile;
procedure SaveDatFile;
procedure LoadGammaFile;
procedure SaveGammaFile;

{-------------------------------------------------------------------}

implementation

{-------------------------------------------------------------------}

{ Laden einer Integer-Messdaten-Datei }
procedure LoadFileI(var Wert : Wordarray; fn : string);

var
  i : word;
  f : Text;

begin
  Assign(f, fn);
  Reset(f);
  for i := 0 to nmax - 1 do ReadLn(f, Wert[i]);
  Close(f);
end; { LoadFileI }

{-------------------------------------------------------------------}

{ Speichern einer Integer-Messdaten-Datei }
procedure SaveFileI(var Wert : Wordarray; fn : string);

var
  i : word;
  f : Text;

begin
  Assign(f, fn);
  ReWrite(f);
  for i := 0 to nmax - 1 do WriteLn(f, Wert[i] : 4);
  Close(f);
end; { SaveFileI }

{-------------------------------------------------------------------}

{ Laden einer Real-Messdaten-Datei }
procedure LoadFileR(var Wert : Realarray; fn : string);

var
  i : word;
  f : Text;

begin
  Assign(f, fn);
  Reset(f);
  for i := 0 to nmax - 1 do ReadLn(f, Wert[i]);
  Close(f);
end; { LoadFileR }

{-------------------------------------------------------------------}

{ Speichern einer Real-Messdaten-Datei }
procedure SaveFileR(var Wert : Realarray; fn : string);

var
  i : word;
  f : Text;

begin
  Assign(f, fn);
  ReWrite(f);
  for i := 0 to nmax - 1 do WriteLn(f, Wert[i] : 9 : 3);
  Close(f);
end; { SaveFileR }

{-------------------------------------------------------------------}

{ Laden einer Protokoll-Datei }
procedure LoadDatFile;

var
  i : word;
  f : Text;

begin
  Assign(f, filename);
  Reset(f);
  ReadLn(f, Anzahldelta);
  ReadLn(f, AnzahlMessung);
  for i := 0 to Anzahldelta - 1 do
  begin
    ReadLn(f);
    ReadLn(f, df[i].dark);
    ReadLn(f, df[i].ref);
    ReadLn(f, df[i].obj);
    ReadLn(f, df[i].int);
    ReadLn(f, w[i].delta);
  end;
  Close(f);
end; { LoadDatFile }

{-------------------------------------------------------------------}

{ Speichern einer Protokoll-Datei }
procedure SaveDatFile;

var
  i : word;
  f : Text;

begin
  Assign(f, filename);
  ReWrite(f);
  WriteLn(f, Anzahldelta);
  WriteLn(f, AnzahlMessung);
  for i := 0 to Anzahldelta - 1 do
  begin
    WriteLn(f);
    WriteLn(f, df[i].dark);
    WriteLn(f, df[i].ref);
    WriteLn(f, df[i].obj);
    WriteLn(f, df[i].int);
    WriteLn(f, w[i].delta : 9 : 3);
  end;
  Close(f);
end; { SaveDatFile }

{-------------------------------------------------------------------}

{ Laden einer Ergebnis-Datei }
procedure LoadGammaFile;

var
  i : word;
  f : Text;

begin
  Assign(f, filename);
  Reset(f);
  ReadLn(f, deltac);
  ReadLn(f, deltacSAM);
  for i := 0 to Anzahldelta - 1 do
  begin
    ReadLn(f);
    ReadLn(f, w[i].delta);
    ReadLn(f, w[i].gamma);
    ReadLn(f, w[i].SAM);
  end;
  Close(f);
end; { LoadGammaFile }

{-------------------------------------------------------------------}

{ Speichern einer Ergebnis-Datei }
procedure SaveGammaFile;

var
  i : word;
  f : Text;

begin
  Assign(f, filename);
  ReWrite(f);
  WriteLn(f, deltac : 9 : 3);
  WriteLn(f, deltacSAM : 9 : 3);
  for i := 0 to Anzahldelta - 1 do
  begin
    WriteLn(f);
    WriteLn(f, w[i].delta : 9 : 3);
    WriteLn(f, w[i].gamma : 9 : 3);
    WriteLn(f, w[i].SAM : 9 : 3);
  end;
  Close(f);
end; { SaveGammaFile }

{-------------------------------------------------------------------}

end. { LoadSave }

{-------------------------------------------------------------------}