[Решено] Текстовый файл (cp1251) в Memo.

[GAMER]

Никак не получается считать текстовый файл в кодировке 1251 в мемо. Вместо кирилицы - вопросики.

Код: Выделить всё

procedure TFrmHistory.Obnov;
Var F: Text;
    S: WideString;
begin
  AssignFile(F,'History'); Reset(F);
  while not EOF(F) do
  begin
   Readln(F,S);
   Memo1.Append(AnsiToUtf8(S));
  end;
end;     

Один из вариантов, который пробовал. Другие, тоже не годятся.

[Odyssey]

Либо

Код: Выделить всё

S: String;
...
Memo1.Append(AnsiToUtf8(S));

, либо

Код: Выделить всё

S: WideString;
...
Memo1.Append(Utf8Encode(S));

[GAMER]

Не помогло.
Версии паскаля и Лазаруса - последние свн.

[SSerge]

Функции работы с utf8 должны быть из lazutf8, а не из других модулей.

А уж WideString, кхе-кхе вообще не должно работать, ибо не настали времена.

И нельзя аргументом функции, требующей string или ansistring подставлять WideString, это вам не дельфи. Скрытые преобразования должны НЕ работать, поскольку официально заявлено что "...текущие версии RTL free pascal - unicode не поддерживают"

[GAMER]

И как это дело таки реализовать?

[SSerge]

Var s:string;

Остальное то же, что было.

[GAMER]

Код: Выделить всё

procedure TFrmHistory.Obnov;
Var F: Text;
    S: String;
begin
  AssignFile(F,'History'); Reset(F);
  Memo1.Clear;
  while not EOF(F) do
  begin
   Readln(F,S);
   Memo1.Append(AnsiToUtf8(S));
  end;
end;   

Вопросики остались.

[SSerge]

uses lazutf8 есть?

Функции работы с utf8 должны быть из lazutf8, а не из других модулей.

[GAMER]

uses lazutf8 есть?

Да.

[Vadim]

GAMER
У меня Ваш вариант кода полностью рабочий. Считываю файл в кодировке 1251. lazutf8 в строке USES отсутствует.
FreePascal 2.6.0
Lazarus 32520.

[GAMER]

Значит либо что-то поломано в свн-версиях, либо где-то еще бага сидит.

PS. Таки проблема в свн-версии паскаля. В 2.6.0 - нормально.

Используя свн-версию знаю, на что иду.

Всем спасибо.

Добавлено спустя 25 минут 13 секунд:
Вообще говоря, Ansi, как-то не сильно хочеться использовать. Ведь может быть ситуация, что нужно конвертировать с другой однобайтовой кодировки в УТФ8, и эта однобайтовая кодировка не системная. Как тогда быть?

[SSerge]

Меня натурально вштырило.

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
Var F,F1: Text;
    S: AnsiString;
begin
  AssignFile(F,'History'); Reset(F);
  AssignFile(F1,'Result'); Rewrite(F1);
  Memo1.Clear;
  Memo1.Append('Тест');
  while not EOF(F) do
  begin
   Readln(F,S);
   Writeln(F1,ConsoleToUTF8(s));
   Memo1.Append(ConsoleToUtf8(S));
  end;
  CloseFile(F);
  CloseFile(F1);
end;                       


Исходный файл в cp866. Как думаете, что оказалось в файле Result?

Строки, правильно перекодированные в cp1251!

CodeTyphon 2.40.

Так что, все проеброзования utf8-ansi-oem поломаны.
Соответственно SysToUtf8 вообще никакого действия на строку не оказывает.
Есть повод... отказаться... (от чего, подумали? Правильно!) от использования файлов не в UTF8.

padre_mortius: Аккуратней с выражениями. Нарушаете пункт 2 правил

[GAMER]

2 SSerge. Версия FPC какая?

[SSerge]

2.7.1 | 0.9.31

Исходники не рыл, но похоже все из за того, что локаль в RTL не инициализирована.

[Brainenjii]

Код: Выделить всё


Unit Unit1;

{$mode objfpc}{$H+}

Interface

Uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    LConvEncoding; <- Тадам

Type

  { TForm1 }

  TForm1 = Class(TForm)
    Memo1: TMemo;
    Procedure FormCreate(Sender: TObject);
  Private
    { private declarations }
  Public
    { public declarations }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.lfm}

{ TForm1 }

Procedure TForm1.FormCreate(Sender: TObject);
Var F,F1: Text;
    S: AnsiString;
begin
  AssignFile(F,'History'); Reset(F);
  AssignFile(F1,'Result'); Rewrite(F1);
  Memo1.Clear;
  Memo1.Append('Тест');
  while not EOF(F) do
  begin
   Readln(F,S);
   Writeln(F1,UTF8ToCP1251(CP866ToUTF8(s)));
   Memo1.Append(CP866ToUTF8(S));
  end;
  CloseFile(F);
  CloseFile(F1);
end;

End.


padre_mortius: Аккуратней с выражениями