[inndim]

Помогите Пожалуйста кто знает.
Я экспортировал из реестра в файл zum.reg ключ, но не могу занести строки из него в RichEdit, выдаёт пару символов и кучу пустых строк. Я так понимаю всё дело в кодировке, так как похоже что reg файл в Unicode, но как это добро перекодировать в понятный для RichEdit формат. Если можно, то напишите пример. Заранее спасибо. Я собственно пытался прочитать полученыый reg файл способом написанным ниже, но увы ничего не выходит.

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
f: TextFile;
s: WideString;
Begin
AssignFile(F, 'zum.reg');
Reset(F);
While not Eof(F) Do
Begin
ReadLn(F, s); 
RichEdit1.Lines.Add(AnsiString(s));
End;
closefile(f); 
end;

[Winny]

Используем тег [сode]..[/code]!

[san-46]

А почему нельзя прочитать ключ из реестра непосредственно в RichEdit не используя файл? Или так задача поставлена?

[Thrasher]

2 Варианта решения данной проблемы:

1. Поставить значение свойства PlainText true.
2. Читать файл построчно и добавлять их - RichEdit.Lines.Add(Stroka);

Просто при обыкновенном считывании строк из reg-файла компонент RichEdit интерпретирует слэши как команды форматирования

[inndim]

Сообщение от san-46

А почему нельзя прочитать ключ из реестра непосредственно в RichEdit не используя файл? Или так задача поставлена?

Мне увы нужно именно из файла.

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

2 Варианта решения данной проблемы:

1. Поставить значение свойства PlainText true.
2. Читать файл построчно и добавлять их - RichEdit.Lines.Add(Stroka);

Просто при обыкновенном считывании строк из reg-файла компонент RichEdit интерпретирует слэши как команды форматирования

Первый вариант не помогает, а вариант номер два я и так использовал в приведённом примере.

[san-46]

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  F : File;
  Sz : Integer;
  Str : WideString;
begin
  AssignFile(F, 'zum.reg');
  Reset(F, 1);
  Sz := FileSize(F);
  setLength(Str, Sz+2);
  BlockRead(F, Str[1], Sz);
  CloseFile(F);
  Memo1.Lines.Add(Str)
end;

Этот код работает, разделяя прочитанные данные на две части, "выжимая" Ansistring. "Выжатая" часть нормально отображается Delphi в первой половине текста (в Memo или RichEdit). Другая часть отображается в ввиде "??????".
Наверное, эту часть легко отбросить. ИМХО, это лучше, чем многочисленные советы в форумах, где предпочтение отдается сканированию считанной строки unicode в цикле и формированию Ansistring.