Fehler beim Laden einer Typdatei

[Angelus]

Hei Leute!!

Hab zwei Methoden geschrieben und zwar speichern und laden. Jeweils wird eine Typdatei gespeichert und dann wird die selbe geladen!!
Aber anscheinend funktioniert das laden nicht ... aber ich weis nicht warum ... bitte anschaun und helfen wenns wer weis

Code:

procedure TVerwaltung.speichern;
var
  datei: file of TVideo;
  i: integer;
begin
  assignfile(datei, '.\save.vds');
  rewrite(datei);
  for i := 0 to count-1 do
  begin
    write(datei, videos[i]);
  end;
  closefile(datei);
end;

procedure TVerwaltung.laden(var _help: TVideo);
var
  datei: file of TVideo;
  i: integer;
  help: TVideo;
begin
  assignfile(datei, '.\save.vds');
  reset(datei);

  for i := 0 to count - 1 do
    videos[i].Destroy;

  Videos := nil;
  while not eof(datei) do
  begin
    read(datei, help);
    self.setVideo(help);
  end;

  _help := help;
  
  closefile(datei);
end;

bitte und danke
thx angelus *g*

[mickmack]

ich weiss nicht, ob es 100% wichtig ist aber probier doch mal am Anfang deiner Funktionen "Speichern" und "Laden" den Dateizeiger auf den Anfang der Datei zu setzen.

seek(datei,1);

[mickmack]

Zitat von mickmack:

ich weiss nicht, ob es 100% wichtig ist aber probier doch mal am Anfang deiner Funktionen "Speichern" und "Laden" den Dateizeiger auf den Anfang der Datei zu setzen.

seek(datei,1);

ups aber doppelt hält bekanntlich ja besser

[Angelus]

na leida ..... funzt no imma net ... verflixt *g*
muss weiter probiern

danke trotzdem

thx angelus

[Luckie]

Zitat von Angelus:

Aber anscheinend funktioniert das laden nicht

Zitat von Angelus:

na leida ..... funzt no imma net ...

Geht das etwas genauer? Ansonsten schon mal mit Einzelschritten durchgegangen?

Ach und du bist der Meinung, er findet die Datei mit der '.\save.vds' Pfadangabe auch immer hundertprozentig? Also ich würde mich nicht darauf verlassen.

[Angelus]

hast recht sorry!! also:

das mit den einzelschritten hab ich probiert ... und bei meiner speichern prozedur müsste alles richtig gespeichert werden.

nur wenn ich beim laden dann probiere die einträge aus der datei zu lesen lese ich entweder irgendwie falsch ein, oder fehlerhafte daten (dann wurde anscheinend doch nicht richtig gespeichert) ein. und dann wenn zb fehlerhafte daten probiert werden auf zb eine bool'sche variable zu schreiben bekomm ich eine access violation ... das ist mein problem .. irgendwas stimmt mit der datei dann nicht....
mehr fand ich auch noch nicht heraus

thx angelus

[Angelus]

vielleicht hilft auch mal das prog ....

hier isas .. .angelus

[Luckie]

ansionsten gibt es bei mir eien Klasse zum Arbeiten mit typisierten dateien, ist schon alles drin, was das Herz begehrt.
http://www.luckie-online.de/downloads/ -> TypedFilesClass.zip