Fehler bei REWRITE

[Chrissi91]

Das Problem ist, ich weiß nicht ganz genau, was er da macht

Z.B.: Was bedeutet das:

Zitat von Sharky:

filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';

Edit: Aber geht auch mein zuletzt erstellter Code? Auch wenn die Datei leer ist, oder gar nicht existiert?

[devnull]

Es sollte doch so sein, oder?

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  datei2: textfile;
  filename : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2,filename);
  if not fileexists(filename) then
     rewrite(datei2)
  end
  else
     reset(datei2);
  
  closefile (datei2);  

  append(datei2);
  writeln(datei2, edit1.Text + ' ' + edit2.Text);
  closefile(datei2);
end;

[Luckie]

Dann schlag die unbekannten Befehle / Funktionen doch mal in der Hilfe nach. In Delphi brauchst du da nur den Cursor in das Wort zu stellen und F1 drücken. Also etwas Eigeninitiative schadet bestimmt nicht. Wir helfen bei Problmen hie rim Forum, sind aber kein Ersatz für die Delphi Hilfe.

@devnull:

Delphi-Quellcode:

closefile (datei2);  

  append(datei2);

Viel Spass beim Schreiben in eine schon geschlossenen Datei. Und ohne Auswertung der Fehler(codes) noch mehr Spass bei der Fehlersuche beim Kunden.

[devnull]

@Luckie: Append öffnet eine Datei an letzter Stelle...

Delphi-Hilfe:

Beschreibung
Mit Append können Sie sicherstellen, dass eine Datei schreibgeschützt geöffnet und der Dateizeiger auf das Ende der Datei gesetzt wird. F ist eine Textdateivariable und muss zuvor mit AssignFile einer externen Datei zugeordnet werden. Ist die Datei mit dem angegebenen Namen nicht vorhanden, tritt ein Fehler auf. Wenn F bereits offen ist, wird sie geschlossen und anschließend erneut geöffnet. Die aktuelle Dateiposition wird dann auf das Dateiende gesetzt.

^^Deshalb ist es wohl auch egal, ob man ein Closefile schreibt oder nicht

[Chrissi91]

Schön, aber wie ihr sehen könnt, bin ich 14 Jahre alt

Die Delphi - Hilfe ist Englisch. Zwr bin ich in der 9.Klasse auf dem Gymnasium und habe jedes Halbjahr eine 1 oder 2 auf dem Zeugnis *angeb* , aber ich verstehe keine spezifischen Ausdrücke, die z.T. noch nicht einmal im Langenscheidt Lexikon stehen

Edit:

Geht das auch?

Delphi-Quellcode:

var 
datei, datei2: textfile; 
begin 
if fileexists('Eintrage.txt') then 
begin 
  assignfile(datei2,'Eintrage.txt'); //Das ist die Index-Datei 
  append(datei2); 
  writeln(datei2, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei2); 
end 
else 
begin 
  assignfile(datei,'Eintrage.txt'); //Das ist die Index-Datei 
  rewrite(datei); 
  writeln(datei, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei); 
end; 
end;

[Luckie]

Zitat von devnull:

@Luckie: Append öffnet eine Datei an letzter Stelle...

Delphi-Hilfe:

Beschreibung
Mit Append können Sie sicherstellen, dass eine Datei schreibgeschützt geöffnet und der Dateizeiger auf das Ende der Datei gesetzt wird. F ist eine Textdateivariable und muss zuvor mit AssignFile einer externen Datei zugeordnet werden. Ist die Datei mit dem angegebenen Namen nicht vorhanden, tritt ein Fehler auf. Wenn F bereits offen ist, wird sie geschlossen und anschließend erneut geöffnet. Die aktuelle Dateiposition wird dann auf das Dateiende gesetzt.

Das

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  datei2       : textfile;
  filename     : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2, filename);
  closefile(datei2);
  append(datei2);
end;

Bringt bei mir:

Zitat:

103 File not open Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

Ist ja auch logisch, du hast mit CloseFile ja die Dateivariable datei2 schon in den Müll geworfen, willst sie aber bei Append noch benutzen. Es kann also gar nicht gehen!

[marabu]

Luckie, da war ursprünglich ein openfile (Rewrite / reset) zwischen AssignFile und CloseFile ...

Grüße vom marabu

[Luckie]

Aber nicht bei devnull:

Zitat von devnull:

Es sollte doch so sein, oder?

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  datei2: textfile;
  filename : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2,filename);
  if not fileexists(filename) then
     rewrite(datei2)
  end
  else
     reset(datei2);
  
  closefile (datei2);  

  append(datei2);
  writeln(datei2, edit1.Text + ' ' + edit2.Text);
  closefile(datei2);
end;

[Sharky]

Zitat von Chrissi91:

Schön, aber wie ihr sehen könnt, bin ich 14 Jahre alt

Kein Problem. War ich auch mal

Zitat:

Die Delphi - Hilfe ist Englisch.

Damit habe ich auch meine Probleme. Also werde ich mal den Code von mir etwas kommentieren.
filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt'; In ParamStr stehen die Parameter die deinem Programm übergeben werden.
Wenn Du zum Beispiel dein Programm so aufrufst Programm.exe /blubb steht in PraramStr(1) ein "blubb".
Eine Besonderheit ist ParamStr(0). In diesem "Parameter" seht immer der komplette Pfad und Dateiname des Programmes.
Zum Beispiel "c:\Programme\Sharky\Test.exe".

Die Funktion ExtractFilePath extrahiert aus diesem String nun den Pfad zu dem Programm inkl. des letzten Backslash.
In dem Beispiel würde also

Code:

ExtractFilePath(ParamStr(0))

den String "c:\Programme\Sharky\" ergeben. An diesen String hänge ich jetzt einfach mit dem + den Namen der Datei.
Also ergibt

Code:

filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';

"c:\Programme\Sharky\Eintrag.txt".

Warum das ganze? Wenn Du nur den Namen der Datei angibst und keinen Pfad wird diese immer im aktuellen Verzeichniss erstellt/geöffnet. Dies ist aber nicht zwingend das Verzeichniss deiner Anwendung. Noch schlimmer: Das aktuelle Verzeichniss kann sich jederzeit (auch während dein Programm läuft) ändern!!

Code:

assignfile(datei2,filename);

hier wird der Variable datei2 der Dateiname inkl. Pfad zugewiesen. Da Du dies in jedem fall brauchst reicht es dies einmal im Code zu machen.

Delphi-Quellcode:

if not fileexists(filename) then //Wenn die Datei nicht Vorhanden ist dann:
  begin 
    rewrite(datei2); // erzeuge sie
  end 
  else // ansonsten
  begin 
    reset(datei2); // öffne sie nur
  end; 
  append(datei2); // Zum leten "Eintrag in der Datei" springen
  writeln(datei2, edit1.Text + ' ' + edit2.Text); // Etwas in die Datei schreiben
  closefile(datei2); // die Datei schliessen.
end;

Ich hoffe jetzt siehst Du etwas mehr Licht im dunklen.

[Chrissi91]

Grrr ... Geht dieser Code nun bei existierenen Dateien, die entweder leer oder nicht leer sind (mit Text ) und auch, wenn die Datei nicht existiert?

Delphi-Quellcode:

var 
datei, datei2: textfile; 
begin 
if fileexists('Eintrage.txt') then 
begin 
  assignfile(datei2,'Eintrage.txt'); //Das ist die Index-Datei 
  append(datei2); 
  writeln(datei2, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei2); 
end 
else 
begin 
  assignfile(datei,'Eintrage.txt'); //Das ist die Index-Datei 
  rewrite(datei); 
  writeln(datei, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei); 
end; 
end;