Einzelnen Beitrag anzeigen

Kanne_Kaffe

Registriert seit: 10. Okt 2005
25 Beiträge
 
#17

Re: Speicherfehler beim Schreiben & Lesen von Records

  Alt 10. Okt 2005, 18:35
Und schon stehe ich vor einem anderen Problem. Da es immer noch das selbe Thema ist denke ich diesen Thread fortzusetzten. Also ich habe jetzt meine Schreib-Procedure entsrechend angepasst um die datei nimt immer neu anzulegen sonder hineinzuschrieben. Leider geht es mit
Reset(F) nicht, da die Datei trotzdem neuangleget wird, bzw überschrieben wird.

Delphi-Quellcode:
procedure SchreibeDatei(Filename, Name, Adresse: String; Count: Cardinal);
begin
  New(FileInfo);
  FileInfo.Name := Name;
  FileInfo.Adresse := Adresse;
  FileInfo.Count := Count;

  { neuanlegen }
  if not FileExists(Filename) then begin
    AssignFile(F, Filename);
    ReWrite(F);
    write(F, FileInfo^);
    Closefile(F);
    end else begin {bzw. anhängen}
      AssignFile(F, Filename);
      // Append(F); // <- geht nicht
      Reset(F); // <- Datei wird hier trozdem neu angelegt.
      write(F, FileInfo^);
      Closefile(F);
      end;

  Dispose(FileInfo);
end;
Welche Möglichkeiten habe ich noch ausser Append (geht ohnehin nicht) und Reset?

Wenn jemand Datenbanken-Typen kennt die solche DatenMengen verarbeiten können bitte mal Posten. Weiteres Auswahlpunkt ist man muss sie auch ohne weitere Treiber betreiben können. 1 DLL etc. im Programpath / %systemroot% lasse ich mir auch noch gefallen. Aber eine Aufwendige Installation nicht. Das hast schon seine Gründe.
  Mit Zitat antworten Zitat