Typisierte Dateien (Delphi-Treff)

[Phiennes]

Hi,

ich versuche mit Hilfe des Tutorials von Delphi-Treff große Strings abzuspeichern.

Ich habe leider ein Problem mit der Lösch-Funktion.

Ich mach am besten mal ein Beispiel:

vor dem Löschen

• Datensatz - String
• 0 - Inhalt[0]
• 1 - Inhalt[1]
• 2 - Inhalt[2]
• 3 - Inhalt[3]
• 4 - Inhalt[4]
• 5 - Inhalt[5]

nach dem Löschen von nur DS[1]

• Datensatz - String
• 0 - Inhalt[0]
• 1 - Inhalt[2]
• 2 - Inhalt[4]
• 3 - Inhalt[5]
• 4 - Inhalt[5]

Das ist mein kaum veränderter Quelltext:

Delphi-Quellcode:

procedure TMainPart.HFdel();
var
  Buffer: array[0..BufferSize - 1] of Rdatensatz;  // erhöht Performance
  i: Integer;
  StartRecord, EndRecord, SatzPosition: Integer;
  Max: Integer;
begin
  // Datenzeiger wird VOR den akt. Datensatz gesetzt
  Seek(Datei, FilePos(Datei)-1);
  // Starten mit dem ersten Datensatz hinter dem zu löschenden
  StartRecord := FilePos(Datei) + 1;
  EndRecord := FileSize(Datei);
  SatzPosition:= FilePos(datei);

  while StartRecord < EndRecord do begin

    // max. BufferSize Datensätze lesen
    Max := BufferSize;
    if Max > EndRecord - StartRecord then
      Max := EndRecord - StartRecord;
    Seek(Datei, StartRecord);
    for i := 0 to Max - 1 do
      Read(Datei, Buffer[i]);

    // Datensätze zurückschreiben
    Seek(Datei, StartRecord - 1);
    for i := 0 to Max - 1 do
      Write(Datei, Buffer[i]);
    inc(StartRecord);
  end;

  // Datei ab hier abschneiden
  Truncate(Datei);
  Positionieren(SatzPosition);
end;

Ich hoffe ihr könnt mir weiter helfen, denn ich finde den Fehler einfach nicht.

lG Phiennes

[jaenicke]

Zitat von Phiennes:

Das ist mein kaum veränderter Quelltext:

Um genau zu sein hast du den Quelltext ja nur etwas langsamer gemacht.

Wie sieht denn dein Record aus? Benutzt du vielleicht Pointerdatentypen?

[Phiennes]

Die Variabel "SatzPosition" hab ich eingeführt, weil die Datensatzposition sonst immer auf den letzten Datensatz der Datei zeigte und das wollte ich nicht.

mein Record sieht so aus:

Delphi-Quellcode:

type
  Rdatensatz = record
    karteL1: string[255];
    karteL2: string[255];
    karteL3: string[255];
    karteL4: string[255];

    karteR1: string[255];
    karteR2: string[255];
    karteR3: string[255];
    karteR4: string[255];
  end;

const
  BufferSize = 250;

Ich hab ausserdem noch etwas an der neu-Methode verändert, weil die Standard-Inhalte sonst nicht richtig vergeben wurden:

Delphi-Quellcode:

procedure TMainPart.HFneu();
var
  Buffer: array[0..BufferSize - 1] of Rdatensatz;
  i, p: integer;
begin
  Seek(datei,0);
  p:=0;
  while not eof(datei) do begin //solange lesen, bis die Datei zu Ende ist
    Read(datei, Buffer[p]);
    inc(p); //entspr. p:=p+1
  end;
  CloseFile(datei); //Datei schließen...


  Buffer[p].karteL1:='DS '+IntToStr(p+1)+'-l-1; '; //Am Ende leeren Datensatz anhängen
  Buffer[p].karteL2:='DS '+IntToStr(p+1)+'-l-2; ';
  Buffer[p].karteL3:='DS '+IntToStr(p+1)+'-l-3; ';
  Buffer[p].karteL4:='DS '+IntToStr(p+1)+'-l-4; ';

  Buffer[p].karteR1:='DS '+IntToStr(p+1)+'-r-1; ';
  Buffer[p].karteR2:='DS '+IntToStr(p+1)+'-r-2; ';
  Buffer[p].karteR3:='DS '+IntToStr(p+1)+'-r-3; ';
  Buffer[p].karteR4:='DS '+IntToStr(p+1)+'-r-4; ';



  ReWrite(datei);  //... und neu anlegen
  for i:=0 to p do write(datei, Buffer[i]);
  //Datensätze (bis auf letzten) in Datei schreiben
  positionieren(FileSize(datei)-1);
  //Dateizeiger auf letzten Datensatz positionieren
  LsatzCount.Caption:='Dateigröße: '+IntToStr(FileSize(datei))+';';
end;

Eventuell liegt da der Fehler, aber das ist sehr unwahrscheinlich oder?

[jaenicke]

Ich nehme eher an der Fehler ist die Schleife. Ich verstehe nicht was die while-Schleife für einen Sinn haben soll beim Löschen.

Nimm die einmal einfach weg, ich würde sagen das reicht schon. Also das while und das end dazu. Das Inc vor dem end kann dann natürlich auch weg.

[Phiennes]

hehe, cool. es funktioniert. dann ist das tutorial falsch und vermutlich auch noch an zwei stellen, weil die "neu"-methode auch nicht richtig war.


vielen dank, jetzt hab ich endlich keine schlaflosen nächte mehr