I/O-Fehler-998

[Nicodius]

und da isses auch schon :)


die geladenen zahlen etc sind bsi auf ca 100 ausnahmen alles 0en :( was is da falsch gelaufen?
die zuweisung stimmt - ist alles auf nen wert der nicht 0 entspricht gesetzt aber beim laden kommt was falsches raus
lg nico

[himitsu]

Wie speichest/lädst das denn nun jetzt?

nicht das dort z.B. nur der Zeiger auf die Daten gespeichert wrd, sondern die Daten selber.

[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);

[himitsu]

ach ja, sagt dein compiler eigentlich nichts dazu?

Delphi-Quellcode:

for i := 0 to 14 do 
     Memo1.Lines.add(alles1.mod_[i].und_st[e].st_vert);

e ist nicht definiert :zwinker:
und beim befüllen des Records ebenfalls nicht.


also hier funktioniert es :gruebel:

[Nicodius]

hm irgendwas is bei dir anders :) aber es funktioniert jetzt :D vielen vielen dank

wenns mal zufällig in graz sein solltest lad ich dich auf ein getränk ein :wink:


lg Nico

[himitsu]

Problem gefunden:

Delphi-Quellcode:

Write(FaDatei, Buf);

du hattest ja Buf mit nichts gefüllt.

[Nicodius]

danke habs dann später sleber rausgefunden :)
danke für deine zeit und nerven :D

bleibt mal wiedern ur zu sagen :dp:


lg Nico