I/O-Fehler-998

[Nicodius]

Delphi-Quellcode:

var
  FaDatei: file of TAlles;
  Buf: TAlles;
begin
if SaveDialog1.Execute then           { Dialog zum Speichern anzeigen }
begin
  AssignFile(FaDatei, SaveDialog1.FileName);
  Rewrite(FaDatei);   { Ausgabedatei öffnen }
  Write(FaDatei, Buf);
  CloseFile(FaDatei);
end;
 end;

und zum laden

Delphi-Quellcode:

var i,e, f : Integer;
  FaDatei1: file of TAlles;
  Alles1 : Talles;
begin

  if OpenDialog1.Execute then           { Dialog zum Öffnen anzeigen }
  begin
    AssignFile(FaDatei1, OpenDialog1.FileName);
    Reset(FaDatei1);   { Eingabedatei öffnen }
    Read(FaDatei1, Alles1);
    CloseFile(FaDatei1);
  end;
  for i := 0 to 29 do
    for e := 0 to 21 do
     Memo1.Lines.add(alles1.vert_ast[i][e]);

  for i := 0 to 30 do
       Memo1.Lines.add(IntToStr(alles1.vert_datum[i].vtjahr));
  for i := 0 to 30 do
    for e := 0 to 10 do
      Memo1.Lines.add( IntToStr(alles1.vert_datum[i].vtproz[e]));



  for i := 0 to 14 do
    Memo1.Lines.add( alles1.mod_[i].und_bez);
  for i := 0 to 14 do
    for e := 0 to 30 do
      Memo1.Lines.add( alles1.mod_[i].und_st[e].st_bez);
  for i := 0 to 14 do
    for e := 0 to 30 do
      for f := 0 to 10 do
         Memo1.Lines.add(IntToStr(alles1.mod_[i].und_st[e].st_jahr[f]));
  for i := 0 to 14 do
       Memo1.Lines.add(alles1.mod_[i].und_st[e].st_vert);
  for i := 0 to 14 do
    for e := 0 to 30 do
      for f := 0 to 10 do
       Memo1.Lines.add(IntToStr(alles1.mod_[i].und_st[e].st_aufk[f]));
   Label1.caption := IntToStr(Memo1.Lines.Count);