VPF::не могу прочитать файл - Форум программистов

try123

Дата 27.9.2010, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.9.2010

Репутация: нет
Всего: нет

Не могу понять в чем проблема.
Есть файл, читаю его паскалевским способом, но получаю одни пустые строки.
Не пойму в чем подвох...

Цитата

var f:textfile;s:string;
t:char;
begin
   AssignFile(f, 'c:\123.txt');
   ReSet(f);
   while not eof(f) do
    begin
     Readln(f,s);
     Showmessage(s);
    end;
   Closefile(f);
end;

Присоединённый файл ( Кол-во скачиваний: 15 )

123.txt 0,16 Kb

Данкинг

Дата 27.9.2010, 23:57 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Не знаю, что за косяк такой с текстом, с юникодом проблемы какие-то (в Memo он тоже, кстати, не грузится). Тот же текст пересохранил в новом файле - размер уменьшился вдвое, и читается нормально.

Присоединённый файл ( Кол-во скачиваний: 3 )

321.txt 0,08 Kb

--------------------

There's nothing left but silent epitaphs.

Xenag

Дата 28.9.2010, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 51
Регистрация: 6.3.2010

Репутация: нет
Всего: нет

Это обычный юникодный файл.
А "стандартный паскалевский способ" расчитан на ANSI.
Юникод он кушать не умеет...
Нужно перекодировать ручками, либо использовать кодировщики от Delphi 2009+, либо переделать файл в анси кодировку.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »