delphi - 如何在delphi中的备忘录框中显示REG文件条目

Question

我想显示导出的 .reg 文件，例如。 abc.例如；我想在备忘录框中显示其内容。我正在使用 Delphi 7。这是我使用过的代码:

         edit2.Text :=openDialog2.FileName;
         ShowMessage(edit2.Text) ;
        fileData2.LoadFromFile(edit2.Text);
         for i:=0 to fileData2.Count-1 do
         begin
              str:=fileData2[i];
              memo2.Lines.Append(str);
         end; 

此代码正确显示INI文件的内容。

我做错了什么？提前致谢

Answer 1

作为 Cosmin 答案的补充，我提供此版本的 Utf16 -> Ansi 转换:

function ReadUtf16TextFile(const FileName: string): string;
const
  WideCharSize = SizeOf(WideChar);
var
  Stream: TFileStream;
  Utf16: WideString;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  Try
    if Stream.Size>WideCharSize then begin
      SetLength(Utf16, (Stream.Size div WideCharSize)-1);
      Stream.Position := WideCharSize;//skip the BOM
      Stream.ReadBuffer(Utf16[1], Length(Utf16)*WideCharSize);
      Result := Utf16;
    end else begin
      Result := '';
    end;
  Finally
    Stream.Free;
  End;
end;

它在面对空文件和非空终止的文件时非常强大，这实际上是常态。 (Cosmin 现在可能已经修复了他的版本。)

你可以像这样使用它:

memo2.Lines.Text := ReadUtf16TextFile(edit2.Text);

如果你想变得更可爱，你可以在文件中查找 BOM，然后根据 BOM 决定加载 UTF-16、UTF-8 等。在此代码中，我假设该文件被编码为带有 BOM 的 UTF-16，就像您的文件一样。