Hi,
Ich habe ein kleines Problem mit dem Speichern meiner Daten. Und zwar handel es sich bei den Daten um zwei eindimensionale Arrays die ich in eine Datei schreiben möchte.
da ich bisher nur (und auch nur einmal) mit typisierten Dateien gearbeitet hab (was das speichern von Daten angeht) wollte ich das jetzt auch wieder so machen und hab mir mal ein bisschen was zusammengereimt. Allerdings erhalte ich beim Versuch die gespeicherten Daten wieder zu lesen einen Error

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EInOutError aufgetreten. Meldung: 'E/A-Fehler 103'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Jetzt weiss ich aber nicht ob der Fehler schon direkt beim speichern im Prinzip vorprogrammiert wird, oder ob beim laden wirklich etwas schief läuft.

zusammenfalten · markieren

Delphi-Quellcode:

//Speichern
procedure TForm1.Button1Click(Sender: TObject);
type TLoecher = record
  par: array [1..18] of Integer;
  hdcp: array [1..18] of Integer;
end;
var i: Integer;
    datei: file of TLoecher;
    datensatz: TLoecher;
    pfad: String;
begin
  if savedialog1.execute then begin
     pfad := savedialog1.filename;
     AssignFile (datei, pfad);
     if FileExists(pfad) then ReSet(datei)
     else ReWrite(datei);
     seek(datei,0);
     for i:=1 to 18 do begin
       datensatz.par[i]:=strtoint(TEdit(FindComponent('par'+inttostr(i))).Text);
       datensatz.hdcp[i]:=strtoint(TEdit(FindComponent('hdcp'+inttostr(i))).Text);
     end;
     write(datei,datensatz);

     CloseFile(datei);
  end;

end;

//Laden
procedure TForm1.Button2Click(Sender: TObject);
type TLoecher = record
  par: array [1..18] of Integer;
  hdcp: array [1..18] of Integer;
end;
var i: Integer;
    datei: file of TLoecher;
    datensatz: TLoecher;
    pfad: String;
begin
  if opendialog1.execute then begin
     pfad := opendialog1.filename;
     AssignFile (datei, pfad);
     seek(datei,0); // <-- Fehler
     Read(datei, datensatz);
     for i:= 1 to 18 do begin
       TEdit(FindComponent('par'+inttostr(i))).Text:=inttostr(datensatz.par[i]);
       TEdit(FindComponent('hdcp'+inttostr(i))).Text:=inttostr(datensatz.hdcp[i]);
     end;
     CloseFile(datei);
  end;
end;

Hat jemand spontan ne Idee?


schonmal danke im vorraus

muss man nicht reset(datei) ausführen ??

doch muss man
.
.
.


Ich danke dir