[DELPHI] Laatste enter uit tekst bestand

[Verwijderd]

Ik heb een programma wat gegevens uit een memo haalt en in een tekst bestand stopt.
In de memo zit aan het einde geen enter maar in de tekst file wel en dat mag absoluut niet.

Ook al open ik de tekst file weer in delphi en haal ik laatste regel weg dan nog blijft die enter terug keren....

Wie kan mij hier een (het liefst een simpele) oplossing voor geven?

[Verwijderd]

misschien ff richedit gebruiken ipv memo, en als dat ook niet lukt iets schrijven wat de laatste twee bytes verwijdert (enter is 2 bytes!)..

[The-Source]

Op vrijdag 28 juni 2002 17:44 schreef FD-man het volgende:
misschien ff richedit gebruiken ipv memo, en als dat ook niet lukt iets schrijven wat de laatste twee bytes verwijdert (enter is 2 bytes!)..

jups #10#13 om wel te verstaan
[edit]
Eerst je bestand via een filestream controleren op tekens die je er niet in wilt hebben en dan je gewijzigde filestream in je memo/ richedit dumpen.

[Verwijderd]

lijkt me handiger die hele #10#13 er nooit in te gooien..

ik weet niet hoe je het nu opslaat, maar ik kan me voorstellen dat daar iets van

code:

WriteLn(F,memo1.text)

Maak daarvan

code:

WriteLn(F,copy(memo1.text,0,Length(memo1.text)-2)

of, als je het in regels wegschrijft (gebruik makend van de lines property)

code:

nLinesCount:=nMemo1.Lines.Count;
For nLus:=0 to nLinesCount-2 writeln(F,Memo1.lines[nlus]);
WriteLn(F,Copy(Memo1.lines[nLinesCount-1)],0,Length(Memo1.lines[nLinesCount-1)-2);