Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Typisierte Dateien (Delphi-Treff) (https://www.delphipraxis.net/134224-typisierte-dateien-delphi-treff.html)

Phiennes 18. Mai 2009 06:01


Typisierte Dateien (Delphi-Treff)
 
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 18. Mai 2009 06:16

Re: Typisierte Dateien (Delphi-Treff)
 
Zitat:

Zitat von Phiennes
Das ist mein kaum veränderter Quelltext:

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

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

Phiennes 18. Mai 2009 06:24

Re: Typisierte Dateien (Delphi-Treff)
 
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 18. Mai 2009 06:54

Re: Typisierte Dateien (Delphi-Treff)
 
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. :gruebel:

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 18. Mai 2009 08:50

Re: Typisierte Dateien (Delphi-Treff)
 
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 :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz