Textdatei speichern: Speicherort bestimmen.

[alex-91]

Delphi-Quellcode:

dateiname:='C:\Dokumente und Einstellungen\Alex.PC-ALEX\Desktop\Maturaprojekt\Kustodius\Berichte'+raum+datum+uhr+'.txt';


 Assignfile(Datei, dateiname);
 begin
  ReWrite(Datei);
  writeln(Datei, raum);
  writeln(Datei, datum);
  writeln(Datei, edit1.text);
  for i:=0 to memo1.Lines.Count do
   begin
    writeln(Datei, Memo1.Lines[i]);
   end;
  closefile(datei);
  showmessage('Problembericht wurde gespeichert!');
 end;

Hallo!
Ich will mit meinem mini-programm eine textfile speichern und den pfad angeben. Aber wenn ich das so wie oben macht. Speichert es nichts
ohne C:\Dokumente und Einstellungen\Alex.PC-ALEX\Desktop\Maturaprojekt\Kustodius\Berichte wird die Datei jedoch korrekt abgespeichert.

Wo liegt denn da der fehler bzw. gibt es auch andere Möglichkeiten, den Pfad festzulegen ??
lg

[himitsu]

Welches Betriebssystem und ist der Pfadname auch korrekt?

"Dokumente und Einstellungen" heißt z.B. in Windows Vista/7 intern ganz anders.

(im Explorer wird stattdessen ein deutscher lokalisierter Name angezeigt, aber beim Zugriff muß der Originalname angegeben werden)

[alex-91]

windows XP
pfad stimmt... ist kopiert ...

lg

[himitsu]

Zitat:

Speichert es nichts

Gibt es keine Fehlermeldung?
Wenn doch, wie heißt die und wenn nicht, ist die Fehlerprüfung für die Dateizugriffe deaktiviert?

Einfach so nichts machen und das ohne Fehlermeldung ist nicht gerade typisch für diese Funktionen.

[bassman]

Hallo Alex,

nach Berichte fehlt ein \ im Pfad...

Ach ja, geht auch kürzer:

Delphi-Quellcode:

dateiname:='C:\Dokumente und Einstellungen\Alex.PC-ALEX\Desktop\Maturaprojekt\Kustodius\Berichte\'+raum+datum+uhr+'.txt';

Memo1.Lines.SaveToFile(dateiname);

Gruss, Jörn

[himitsu]

Zitat von bassman:

nach Berichte fehlt ein \ im Pfad...

Selbst wenn, dann sollte aber dennoch eine Dateie erstellt werden, wenn auch in einem anderem Pfad (dem Übergeordneten) und mit etwas anderem Namen (mit dem Wort "Berichte" am Anfang).

[p80286]

@bassmann
dann hast Du aber

Delphi-Quellcode:

writeln(Datei, raum); 
  writeln(Datei, datum); 
  writeln(Datei, edit1.text);

unterschlagen.

@Himitsu
Da hat er aber nicht gesucht.

Gruß
K-H

[alex-91]

@ bassmann:

Danke für den hinweis genau das wars
problem gelöst *hihi*

danke lg alex

[Chemiker]

Hallo alex-91,

man sollte unbedingt IOResult einsetzen um evt. Fehler abzufangen. Zudem kannst Du auch ein SaveDialog einsetzen um den Dateiname zu speichern.

Bis bald Chemiker

[DeddyH]

Zitat von Chemiker:

man sollte unbedingt IOResult einsetzen um evt. Fehler abzufangen.

Oder man benutzt einfach Memo.Lines.SaveToFile in einem try-except-Block