Jak zapisaćznak końca lini? Zamiast zapisywać kolejne linie niżej wstawia między nimi "znak kwadratu"
kod:
if SaveDialog1.Execute then
begin
AssignFile(plik, SaveDialog1.FileName);
rewrite(plik);
for k:=1 to i do
write(plik,tablica[k]+(chr(13))+'costam costam' + (chr(13)));
closefile(plik);
(gdzie tablica[k] to kolejne wiersze w Tmemo. polecenie "writeln" nie ma tu sensu gdyż tego tekstu jest dużo.
Z góry thx za rady ;-)
Windows to nie Unix albo MacOS - znakiem końca wiersza... są dwa znaki, mianowicie 13, 10. Dlaczego dwa? Bardzo stare dzieje, czasy gdy monitorów nie było - wyjście szło na drukarkę - jeden znak to powrót karetki, drugi zaś to wysunięcie linii. Microsoft się tego trzyma od czasów pierwszego DOSa... nie pytaj dlaczego Windows nie radzi sobie z kodowaniem typowym dla Unix'a - pojedynczy znak 10 lub typowym dla Mac'a - 13. Chociaż... co 'lepsiejsze' edytory tekstu potrafią obsłużyć co najmniej dwa pierwsze formaty.
p.s. z czasów gdy się jeszcze /z 5 lat temu/ VCL'em bawiłem pamiętam, że klasa TMemo posiadała metodę SaveToFile czy coś w tym stylu :-)
Dzięki, no przecież w PHP jest podobnie tez trzeba dawac dwa znaki, zapomnialem o tym .
jeszcze raz Dzięki.