Problem beim abspeichern in Datei

[empanyc]

@Lucky: ich hab mich ja vorher schon berichtigt bzw selber getadelt. :stupid:

[mercanery]

mal im ernst luckie...hast du vielleicht kummer?

das eine posting habbich angefangen zu schreiben, als du gerade rst genatwortet hattest und abgesendet, als schon viel mehr antworten da waren...die machten mein posting dann unsinnig...also habbichs geändert und das war nur EINMAL!!!


back to topic:

hab mir die hilfe durchgelsen und muss mich wundern...bei mir hat beides denselben Effekt.
in der datei steht immer nur das letzte wort und n paar steuerzeichen... :-(

[Brüggendiek]

Hallo!

Zitat:

Zitat von mercanery

in der datei steht immer nur das letzte wort und n paar steuerzeichen... :-(

Zunächt einmal: das sind keine Steuerzeichen. Du verwendest STRING[14] - d.h. 14 Zeichen und das Längenfeld davor. Das 1. Byte gibt die Länge an, dann kommen Deine Buchstaben und dahinter der Müll, der beim Anlegen der Variablen im Speicher stand.

Was das Überschreiben betrifft: Schau mal in der OH nach Seek - schließlich mußt Du die Position angeben, wo geschrieben wird!
Was Du verwendest, ist eine typisierte Datei. Die ist wie ein ARRAY auf der Platte organisiert - man muß schon angeben, was wohin kommt. Ohne Positionierung wird "aktuelle Position + 1" genommen - beim Öffnen ist es das vor dem 1. Element.

Desweiteren empfehle ich ein Tut zu typisierten Dateien!

Gruß

Dietmar Brüggendiek

[mercanery]

danke!
habs:

Delphi-Quellcode:

procedure TFrm_Hangman.speichern(a:Speichertyp);
var i:integer;
begin
assignfile(Datei,'woerter.txt');

if fileexists('woerter.txt')
  then reset(datei)
  else rewrite(datei);

i:=0;
while EoF(datei)=false do
begin
  seek(datei,i);
  i:=i+1;
end;

write(datei,a);
closefile(datei);
end;

Vielen Dank! :dp:
Jetz werd ich ma versuchen die dinger zufallsgesteuert wieder einzulesen... :)