Typisierte Datei Datensatz löschen geht nicht

bfelix · Verfasst: So 20.02.11 18:55

Hallo Community,
in einem Programm will ich mit

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

SetLength(buffer, FileSize(userfile)-userid1);
   for i:=(userid1+1) to (FileSize(userfile)-1) do begin
   Seek(userfile, userid1);
   Read(userfile, buffer[i]);
   end;
   for u:=(userid1+1) to (FileSize(userfile)-1)do begin
   Seek(userfile, u-1);
   Write(userfile, buffer[u]);
   end;

einen Datensatz aus einer typisierten Datei entfernen. Allerdings existiert der Datensatz danach auch noch. Woran liegt da das Problem?

LG und Danke,
BFelix

TomasB · Hält's aus hier Beiträge: 5 Win98SE Delphi5 Standard

Hallo,

ich weiss nicht, ob die folgende Überlegung hilft, es hilft, aber mir ist die Bedeutung von userid1 nicht ganz klar. Ist es

- die Datensatznummer? Dann müsste es beim Aufruf von Setlength mit der Größe des Datensatzes multipliziert werden (ich gehe davon aus, daß alle Datensätze die gleiche Größe haben)

- oder ist es die Adresse eines Bytes in der Datei? Dann müsste im Aufruf von Seek mit der Datensatzgröße multipliziert werden, wenn es sich um eine untipysierte Datei handelt (bei echten typisierten Dateien macht das Delphi automatisch)

Wird die Datei richtig geöffnet? Wenn man keine Datensatzgröße angibt, wird bei einigen Dateitypen ein Defaultwert von 256(?) angenommen (siehe Hilfe zu Rewrite und Reset). Kann es im Moment nicht selbst nachsehen.

Sicher, daß die Datei völlig unverändert ist? Ich denke, es fehlt ein Stück, nur woanders. Wichtig wäre auch zu wissen, wie die Datei vereinbart und geöffnet wird.

Gruß
Tomas

Moderiert von Narses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme