readln

← →
RomaIzDurdoma (2003-02-08 21:50) [0]

Читаю построчно файл readln(f1,s1)
но у s1 пропадают начальные пробелы.
Можно ли это исправить? (файл текстовый, в DOS кодировке)

← →
Palladin (2003-02-08 21:53) [1]

такого не может быть

код сюда
и кусок файла (небольшой с пробелами)

← →
RomaIzDurdoma (2003-02-08 22:11) [2]

> код сюда

AssignFile(Vf1,opendialog1.FileName); Reset(Vf1); while not SeekEof(Vf1) do begin Readln(Vf1,ss); oemtochar(pchar(ss),pchar(ss)); ... end;

> и кусок файла (небольшой с пробелами)

на мыло что-ли?

← →
Palladin (2003-02-08 22:21) [3]

нет не надо

а как определил что пробелы пропадают?

← →
RomaIzDurdoma (2003-02-08 22:39) [4]

Точку останова поставил на oemtochar и просмотрел ss

← →
Palladin (2003-02-08 22:51) [5]

сразу после readln напиши
Application.MessageBox(PChar("""+ss+"""),"!");
и посмотри что выведется. будут пробелы или нет.

← →
RomaIzDurdoma (2003-02-08 23:29) [6]

Пробелов нет.

← →
Palladin (2003-02-08 23:38) [7]

ты уверен что в файле они есть?

← →
RomaIzDurdoma (2003-02-08 23:40) [8]

> ты уверен что в файле они есть?

давай я вышлю файлик?

readln Найти похожие ветки