1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Konvertieren(var text:TStrings);
var i,j:integer;
zeile:string;
unicodetext:Array[0..8192] of PChar;
begin
  for i:=0 to text.count-1 do
  begin
    zeile:=a1[i];
    for j:=0 to length(zeile) do unicodetext:=unicodetext+PChar(zeile[i]);
    zeile:=WideCharToString(unicodezeile);
    a1[i]:=zeile;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function ReadFileToWideString(const Filename: string): WideString;
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
  try
    SetLength(Result, Stream.Size div SizeOf(WideChar));
    Stream.Read(Result[1], Stream.Size);
  finally
    Stream.Free;
  end;
end;                    

1:

StringList.Text := ReadFileToWideString('C:\Test.txt');                    

1:

??????????????????????‰??????????????????????????????????????????????4????????????????????????????????=????????????????????????????????????????????????????????????????????????????????????????????????????????????†?????†?Z?????????????????????????????????†??????????????????????????????????????????????????????????????????????????????????????????????????????????????....