Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

переходить на следующую строку

INCOGNITO © (2002-10-03 01:44:00)
Вопрос простейший, но ответа не могу найти.
Проблемма такая: я програмно создаю файл (текстовой) и происываю в него какой-то текст, но онвыходит водну строку. Я не знаю с помощю какого символа переходить на следующую строку.

Я так понимаю, это код из ASCII, но #20 не помогает :-(

han_malign (2002-10-03 10:23:00) [1]
\n:
#$0D#$0A - DOS
#$0A - Unix

Kacnep (2002-10-03 06:52:00) [2]
2 Incognito...

var
mz:string;
...
while eof(f)=false do
begin
Read(f,x);
case x of
"1" : mz:="s";
"2" : mz:="x";
"3" : mz:="c";
"4" : mz:="f";
!!! "*" : mz:=#10#13; !!! или #13#10 - точно не помню но на 99 % уверен что будет работать (давно не работал с текстовыми файлами просто....
end;
Write(f1,mz);
end;

MBo (2002-10-03 06:20:00) [3]
Writeln
Не помешает прочитать простейшую книжку по Паскалю

INCOGNITO (2002-10-03 03:12:00) [4]
Млин,попробовал - не работает :-(
...
var
x : char;
mz : char;
f, f1 : textfile;
...
...
while eof(f)=false do
begin
Read(f,x);
case x of
"1" : mz:="s";
"2" : mz:="x";
"3" : mz:="c";
"4" : mz:="f";
"*" : mz:=#10;
end;
Write(f1,mz);
end;
...
...

Вот в этом куске кода мне нужно, чтоб при встрече в файле f символа "*" в файле f1 вместоэтого происходил перевод строки

INCOGNITO (2002-10-03 01:54:00) [5]
Большое спасибо

Юрий Зотов (2002-10-03 01:51:00) [6]
А при чем здесь #20?

Перевод строки - #10 (LF - line feed)
Возврат каретки - #13 (CR - carriage return)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »