Record-Datei verlängern

[USchoch]

Hallo
Ich erstelle in einem Lazarusprogramm eine Datei .mit einer Anzahl Records von 32 Byte Länge. Irgend wann will ich an diese Datei
eitere Records anhängen.

Das wollte ich mit dieser Sequenz machen:

AssignFile(DatFile,EdDatFN.Text); { Vorhandenes File }
ReWrite(DatFile);
fs:=FileSize(DatFile);
rs:=SizeOf(TMesswerte);
AnzRec:=fs div rs;
Seek(DatFile,AnzRec);

Dann ein paar mal : Write(DatFile,AktmessWerte); { einige Records anhängen }

Das funktioniert nicht. Wenn ich das bestehende File im Explorer ansehe, ist es 95 kB lang. Nach dem AssignFile immer noch,
nach dem Rewrite ist es 0 kB.
Was mach ich falsch?

Gruss
Uli

[shokwave]

Ich glaube was du brauchst ist Append, da, wie du schon festgestellt hast, ReWrite die Datei überschreibt.

Ich hoffe das hilft weiter.

[Niesi]

Das muss so sein - ReWrite löscht die bisherige Datei und öffnet sie zum Schreiben.

Wenn Du den bisherigen Inhalt erhalten willst, dann musst Du den erst einmal einlesen ...

https://www.freepascal.org/docs-html/rt ... write.html

[USchoch]

Hallo Ingo

In einer Lazarus-Beschreibung heisst es, dass Append nur bei Textfiles funktioniert. Wenn ich Append(DatFile), also das File mit den Records, schreibe, reklamiert der Compiler.
Also keine Lösung

Gruss
Uli

[wp_xyz]

Reset statt Append (https://wiki.freepascal.org/binary_file ... f%C3%BCgen)

Aber vielleicht solltest du mal daran denken, statt der klassischen Datei-Prozeduren die vielseitigeren Streams zu verwenden:

Code: Alles auswählen

// Neue Messdaten in die Datei schreiben
var
  stream: TFileStream;
  data: array of TMessWert;
  anzMesswerte: Integer;
begin
  if not FileExists(EdDatFN.Text) then
  begin
    stream := TFileStream.Create(EdDatFN.Text, fmCreate);
    anzMessWerte := 0;
  end else
  begin
    stream := TFileStream.Create(EdDatFN.Text, fmOpenRead);
    stream.Read(anzMesswerte, SizeOf(anzMesswerte));
  end;
  // Stream an den Anfang setzen und neue Anzahl der Messwerte eintragen
  anzMesswerte := anzMesswerte + Length(data);
  stream.Position := 0;
  stream.Write(anzMessWerte, SizeOf(anzMesswerte));
  // ans Stream-Ende gehen und die neuen Messwerte schreiben
  stream.Seek(0, soFromEnd);
  // oder: stream.Position := stream.Size;
    for i := 0 to High(data) do
      stream.Write(data[i], SizeOf(TMesswert));
  // stream schließen - damit wird die Datei geschrieben
  stream.Free;
end;

[kirchfritz]

AssignFile(DatFile,EdDatFN.Text); { Vorhandenes File }
ReWrite(DatFile);
fs:=FileSize(DatFile);
rs:=SizeOf(TMesswerte);
AnzRec:=fs div rs;
Seek(DatFile,AnzRec);

Dann ein paar mal : Write(DatFile,AktmessWerte); { einige Records anhängen }

Das funktioniert nicht.

Wenn ich mir das so anschaue, dann fehlt mir nach den Write-Befehlen das abschließende CloseFile(DatFile);

[af0815]

Code: Alles auswählen

var
DatFile: File of TMesswerte;

....
rs:=SizeOf(TMesswerte);
AssignFile(DatFile,EdDatFN.Text); { Vorhandenes File }
ReWrite(DatFile,rs); // Size of a Record
AnzRec:=FileSize(DatFile);
Seek(DatFile,AnzRec);
Write(DatFile,AktmessWerte); { einige Records anhängen }
Write(DatFile,AktmessWerte); { einige Records anhängen }
CloseFile(DatFile);

Wenn man mit Record arbeiten will beim Seek, dann sollte man die Größe beim ReWrite mit angeben, ansonsten wird laut Doku https://www.freepascal.org/docs-html/rt ... write.html mit 128 Bytes gearbeitet.

IMHO besser ist die Version die wp gepostet hat, auch vom ganzen Errorhandling her.

Was mit fehlt, wie ist DatFile definiert !! Siehe auch https://www.freepascal.org/docs-html/rt ... esize.html wo es schon bei der Definition wichtig ist, das richtige auszuwählen. Weil, wenn du bereits dort die TMesswerte angegeben hast, so sagt dir bereits Filesize wieviele Recodes du hat. Ansonsten geht auch filesize von 128Bytes Records aus.

[kirchfritz]

Code: Alles auswählen

var
DatFile: File of TMesswerte;

....
rs:=SizeOf(TMesswerte);
AssignFile(DatFile,EdDatFN.Text); { Vorhandenes File }
ReWrite(DatFile,rs); // Size of a Record
AnzRec:=FileSize(DatFile);
Seek(DatFile,AnzRec);
Write(DatFile,AktmessWerte); { einige Records anhängen }
Write(DatFile,AktmessWerte); { einige Records anhängen }
CloseFile(DatFile);

Nach meiner Erkenntnis wird mit ReWrite(Datfile,rs) eine neue leere Datei erstellt!
Das anschließende

Code: Alles auswählen

AnzRec:=FileSize(DatFile);

liefert also für AnzRec := 0,
Das nochmals anschließende

Code: Alles auswählen

Seek(DatFile,AnzRec);

müsste folglich sinnlos sein, weil "man" steht sowieso am Anfang einer leeren Datei.

[USchoch]

Hallo

Ich habe in der Sequenz meiner ersten Anfrage das Rewrite durch Reset ersetzt, dann funktionierts! Problem gelöst!

Gruss
Uli

[af0815]

Hallo

Ich habe in der Sequenz meiner ersten Anfrage das Rewrite durch Reset ersetzt, dann funktionierts! Problem gelöst!

Gruss
Uli

Es steht ja auch im Kleingedruckten in der Beschreibung von ReWrite ja drinnen (Habe ich auch überlesen):

if Rewrite finds a file with the same name as F, this file is truncated to length 0. If it doesn't find such a file, a new file is created.

Aber Achtung, die Datei muss für Reset existieren! Und du solltest immer mit IOResult arbeiten umzu sehen ob alles geklappt hat.

[USchoch]

Ich kontrolliere schon, ob die Datei existiert und IOResult frage ich auch ab.
Gruus
Uli