Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > не могу прочитать файл

Автор: try123 27.9.2010, 20:48

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

Цитата

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;

Автор: Данкинг 27.9.2010, 23:57

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

Автор: Xenag 28.9.2010, 00:21

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