чтение из файла

← →
Rustam (2008-06-12 14:49) [0]

добрый день..у меня есть файл(допустим g.txt) с кодировкой unicode.
соответственно когда я читаю его, выходят непонятные символы..
как прочитать его должным образом?

← →
Smile (2008-06-12 15:15) [1]

> когда я читаю его

Переведи (в смысле куда-то отображаешь?)

← →
Тын-Дын © (2008-06-12 15:22) [2]

> Rustam (12.06.08 14:49)

Читаешь как?

← →
Rustam (2008-06-12 15:32) [3]

ну блин...
var s:widestring;
f:textfile;
assign(f,"g.txt");
read(f,s);
и в переменной s там всякие кадябры.
поставим вопрос по другому: как перекодировать юникод в анси?

← →
Правильный_Вася (2008-06-12 15:37) [4]

> как перекодировать юникод в анси?

в общем случае никак
в частных возможны варианты

← →
Rustam (2008-06-12 15:51) [5]

а можно привести пример частного случая? -.-

← →
Тын-Дын © (2008-06-12 15:58) [6]

> поставим вопрос по другому: как перекодировать юникод в
> анси?

Сразу бы и говорил, что нужно.

procedure TForm11.Button1Click(Sender: TObject); var fs: TFileStream; ws: WideString; s: String; begin fs := TFIleSTream.Create("c:\11.reg",fmOpenRead); try SetLength(ws,fs.Size-2); fs.Position := 2; fs.Read(ws[1],fs.Size-2); s := ws; SetLength(s,(Length(ws)) div 2); Memo1.Text := s; finally fs.Free; end;

← →
Тын-Дын © (2008-06-12 15:59) [7]

> Правильный_Вася (12.06.08 15:37) [4]
> > как перекодировать юникод в анси?в общем случае никакв
> частных возможны варианты

Поясни, что ты имеешь ввиду под частными случаями, а что под общим?

← →
Rustam (2008-06-12 16:03) [8]

спасибо, Тын-Дын ©.

← →
Правильный_Вася (2008-06-12 16:14) [9]

> что ты имеешь ввиду под частными случаями, а что под общим?

не все символы юникода имеют соответствия в анси или в конкретной кодовой странице
поэтому частный случай - это когда соответствия есть

← →
Anatoly Podgoretsky © (2008-06-12 16:51) [10]

> Rustam (12.06.2008 15:32:03) [3]

В общем случае это не считается текстовым файлом Паскаля.

← →
Тын-Дын © (2008-06-12 16:55) [11]

> не все символы юникода имеют соответствия в анси или в конкретной
> кодовой странице

И что? Самое плохое в этом то, что символ неотображаемый. И не более.
однако алгоритм от этого не изменится.

> Anatoly Podgoretsky © (12.06.08 16:51) [10]
> > Rustam (12.06.2008 15:32:03) [3]В общем случае это не
> считается текстовым файлом Паскаля.

А при чем здесь Паскаль и текстовые файлы?

← →
Правильный_Вася (2008-06-12 17:11) [12]

> Самое плохое в этом то, что символ неотображаемый. И не
> более.однако алгоритм от этого не изменится.

не бывает неотображаемых символов
символ и есть отображение кода
если же код невозможно отобразить, то символа нет

> А при чем здесь Паскаль и текстовые файлы?

а при том, что
> f:textfile;assign(f,"g.txt");

> Тын-Дын © (12.06.08 16:55) [11]
> И что? Самое плохое в этом то, что символ неотображаемый.
> И не более.

Как ты легко всю кириллицу в неотображаемые символы слил...

> Как ты легко всю кириллицу в неотображаемые символы слил.
> ..

С чего это ты взял? С потолка?

> Правильный_Вася (12.06.08 17:11) [12]
> > Самое плохое в этом то, что символ неотображаемый. И не
> > более.однако алгоритм от этого не изменится.не бывает
> неотображаемых символовсимвол и есть отображение кодаесли
> же код невозможно отобразить, то символа нет

Ну и? Дальше-то что? Чему это мешает?

> а при том, что > f:textfile;assign(f,"g.txt");

А-а. Ну это автор неправильно читает.
Заодно поймёт, что Unicode так нельзя читать.

> Тын-Дын (12.06.2008 16:55:11) [11]

При том, вот цитата

> f:textfile;

чтение из файла Найти похожие ветки