Побайтовое чтение непонятные символы delphi xe6

[Alexandr17]

Вот код чтения

AssignFile(FileByte, FileName);
    WStr:='';
    reset(FileByte);
    while not Eof(FileByte) do begin
      Read(FileByte, sym);
      WStr:=WStr+chr(sym);
    end;

но в итоге вместо руского текста выходит черти что. Пробовал вместо WStr:=WStr+chr(sym);
WStr:=WStr+PChar(chr(sym));
или
WStr:=WStr+PAnsiChar(chr(sym));
Но такой метод приводит к системной ошибки.
Пожалуйста помагите. все варианты перепробывал даже сохранял файл в разных кодировках как в бокноте так и в notepad++
ничего не помагает. чтения должно быть побайтным
delphi xe6

[FaTaL]

Ну во первых давно уже пора использовать TFileStream вместо старого паскалевского кода. А во вторых стесняюсь спросить, файл точно текстовый? В FileName правильный путь к файлу находится?

[Stilet]

чтения должно быть побайтным

Если не секрет почему?

[StriderX]

Сообщение от Alexandr17

Вот код чтения
[CODE]...Но такой метод приводит к системной ошибки.
Пожалуйста помагите. все варианты перепробывал даже сохранял файл в разных кодировках как в бокноте так и в notepad++
ничего не помагает. чтения должно быть побайтным
delphi xe6

А можно по байтам прочитать в байтовый буфер и скормить его энкодеру? В общем случае нельзя без знания способа кодирования из байтов получить символ ибо последний может занимать произвольное число байт =-)
Если же уверен, что у нас 1 байт на символ, то можно перегнать и по байтам. Только PAnsiChar - это указатель на символ, сам символ - это AnsiChar. При этом вообще говоря энкодер всё равно сделает своё черное дело при приведении к String, если таковое будет (на основании опции ОС "использовать такую-то страницу\кодировку для не юникод программ").

[Alexandr17]

потомучто это быстрый способ темболее что обычное чтения может не дать всех симвлов и какието просто пропустить. Файл 100 % текстовой путь правильный. я делаю свой скрипт локализации прогамки. не охото для этого ini использовть.

[StriderX]

Сообщение от Alexandr17

потомучто это быстрый способ темболее что обычное чтения может не дать всех симвлов и какието просто пропустить. Файл 100 % текстовой путь правильный. я делаю свой скрипт локализации прогамки. не охото для этого ini использовть.

Способ не быстрый, а зависящий от платформы. Вот будет ОС производить некое упреждающее чтение\кэширование - будет всё летать. Передумает ОС этим заниматься - будет всё ползать.

[FaTaL]

И зачем Вы не хотите ИНИ для локализации? Помоему нормальное решение + каждый юзер всегда сам сможет перевести программу на свой язык изменив нужные параметры ИНИ файла.

[StriderX]

Сообщение от FaTaL

И зачем Вы не хотите ИНИ для локализации? Помоему нормальное решение + каждый юзер всегда сам сможет перевести программу на свой язык изменив нужные параметры ИНИ файла.

Ну, кстати да, от этому механизму уже несколько веков, практически не менялся. Сюда влепился MemIni, когда локализация отвалилась из-за превышения лимита в 64кб. Чуть позже влепился TDictionary и всё.
Энкодер юникодный в любой момент лепится и хоть в Китай.

function TTranslator.GetTranslation(key: string): string;
begin
        if (dictionary.TryGetValue(key, result) = false) then begin
                result := key;
        end;
end;

procedure TTranslator.LoadFromFile(filename: string);
var
        f : TMemIniFile;
        section_items : TStringList;
        i, s : string;
        p : Integer;
begin
        if (FileExists(filename)) then begin
                f := TMemIniFile.Create(filename, TEncoding.GetEncoding(1251));
                section_items := TStringList.Create();

                f.ReadSection(TRANSLATION_MAIN_SECTION, section_items);

                if (section_items.Count > 0) then
                for i in section_items do begin
                        s := f.ReadString(TRANSLATION_MAIN_SECTION, i, i);
                        if (dictionary.ContainsKey(i)) then begin
                                raise EListError.Create('Dublicate with key ' + i + ' in ' + filename);
                        end else begin
                                dictionary.Add(i, s);
                        end;
                end;

                section_items.Free();
                f.Free;
        end;
end;

[Alexandr17]

а что за тип TMemIniFile

[Stilet]

потомучто это быстрый способ

Побайтовое чтение самый медленный способ, чтоб ты знал.
а вот для 100%-вого текстовика StringList или TstringStream самое оно - быстрее некуда.