WriteLN + Zeilenumbruch

[Pandax3]

Erstmal Danke an euch beide

TextLaden lädt den Text nur noch mal ins Memo. Daran liegt das nicht, das habe ich auch schon auskommentiert und nach dem Speichern in die Textdatei geschaut und die Zeilenbrüche waren auch vorhanden.

Mhm zum 2. Punkt von himitsu: Selbst wenn ich

Delphi-Quellcode:

for i := 0 to memo1.Lines.Count+10 do
    WriteLn(f,memo1.Lines[i]);

schreibe kommt keine Fehlermeldung, sondern Delphi schreibt nur leere Zeilen , aber das hat ja nichts mit den Zeilenbrüchen zu tun.

Zitat:

Delphi-Quellcode:

{$I-}
Rewrite(f);
{$I+}
if IOResult<>0 then showmessage('Fehler beim Speichern.');
 ...

gute Kritik, aber bis jetzt hatte ich noch keinen Fehler.


zu HiWieGehts:
woher kommen denn die "#10#13" und wie kann ich das verhindern bzw. umgehen?

[Pandax3]

HiWieGehts hatte Recht.

wenn ich vor dem Speichern dies davor setze:
if pos(#13#10,Edit1.Text) <> 0 then showmessage('vorhanden'); bekomme ich die Meldung 'vorhanden'.

Jetzt frag ich mich halt nur woher das kommt? Oder wie kann ich das rauslöschen? Das ist noch nicht normal das an ein Edit "#13#10" gesetzt wird, oder?

Danke schon mal

[himitsu]

Zitat von Pandax3:

woher kommen denn die "#10#13" und wie kann ich das verhindern bzw. umgehen?

Rate mal, warum ich nach der Einlesefunktion gefragt hab?

Zitat von Pandax3:

gute Kritik, aber bis jetzt hatte ich noch keinen Fehler.

Gib mal einen falschen Pfad an (nichtexistierendes Verzeichnis) oder ein Verzeichnis, bzw. eine Datei, wo für das Programm keine Schreibrechte existieren.

Wobei es auch unpraktisch ist, den eigentlichen Fehlergrund zu verschleiern, denn dann weiß man zwar daß etwas nicht geht, aber nicht warum.

Delphi-Quellcode:

if IOResult = 0 then begin
  ... hier die Dateizugriffe
end else
  ShowMessage('Fehler beim Speichern.' + sLineBreak + SysErrorMessage(IOResult));

Was man nun vermutlich erfahren würde.


Die Steuerzeichen #13 und #10 sind in einem Edit schon erlaubt, nur daß sie dort nicht als Zeilenumbruch/Steuerzeichen, sondern als stinknormale Zeichen interpretiert werden.
(so wie ein Texteditor <B> als Text behandelt, was ein Webbrowser nicht macht, sobald er den Text als HTML interpretiert)

[Pandax3]

ok du hattest Recht
ich habe beim Auslesen der Textdatei einen Fehler gemacht und habe die Zeilenbrüche mit ausgelesen, habe jetzt überall 2 Zeichen abgezogen und er liest die Zeilenbrüche nicht mehr ein

Danke für eure Hilfe

Habe jedoch noch schnell 2 Fragen:

ShowMessage('Fehler beim Speichern.' + sLineBreak + SysErrorMessage(IOResult)); Hat sLinebreak diesselbe Bedeutung wie "#13#10" ?

wieso tritt bei

Delphi-Quellcode:

for i := 0 to memo1.Lines.Count+10 do
    WriteLn(f,memo1.Lines[i]);

kein Fehler auf?

[himitsu]

OK, EM_GETLINE ignoriert nichtexistierende Zeilen und gibt einen Leerstring zurück. (hätte erwartet, daß dieses geprüft wird)
Versuch das aber mal bei einer TStringList oder einer anderen Liste, wie TList und Co.
Bei dynamischen Arrays vergessen viele probehalber mal die Bereichsprüfung in den Projektoptionen zu aktivieren, was oftmals in Zugriffsverletzungen oder gar in einem Bufferoverrun resultiert.

sLineBreak ist unter Windows #13#10 (CRLF), was dort den Standardzeilenumbruch darstellt.
Kompiliert man eine Linux-Anwendung, ist es eine #10 und für MAC ist es eine #13. (Kylix oder XE2)
Es paßt sich also ans Zielsystem an.

[edit]
Ohh, wieso gibt's das nicht in der OH?

[Sir Rufo]

Man ist eigentlich gut beraten sich für das Speichern von Daten, die man später auch wieder einlesen und verarbeiten möchte, ein möglichst einfach zu lesendes Format zu verwenden.

Ein Human-Readable-Format ist für ein Programm meistens schlecht/umständlich zu verarbeiten - und auch umgekehrt.

Speicher die Daten in 2 Dateien ... eine im Human-Readable-Format (nur zum lesen) und in einem weiteren Format, welches sich auch wieder einfach auslesen lässt.
In diesem Fall könnte dir z.B. auch eine schnöde Ini-Datei helfen TIniFile

[Pandax3]

@himitsu danke für die erklärung

@Sir Rufo, kann schon sein, dass das mit einer .ini einfacher geht, aber jetzt läufts ja Merk ich mir fürs nächste Mal

[p80286]

Zitat von Pandax3:

ok du hattest Recht
ich habe beim Auslesen der Textdatei einen Fehler gemacht und habe die Zeilenbrüche mit ausgelesen, habe jetzt überall 2 Zeichen abgezogen und er liest die Zeilenbrüche nicht mehr ein

??
Im Prinzip ist das mit den 2Zeichen schon ganz richtig, aber warum verwendest Du nicht readln oder TStrings.LoadfromFile?
Diese Möglichkeoten eine Textdatei zu lesen sind recht ausgereift, und jahrelang erprobt.
Damit könntest du Dir einiges an Ärger ersparen.

Gruß
K-H