DELPHI中UTF8保存,读取

procedure TForm1.btn1Click(Sender: TObject);
var
  AfileStream:TFileStream;
  Autf8Bytes:string ;
  s:string;
begin
  AfileStream:=TFileStream.Create('c:\abc.txt',fmCreate);
  try
    Autf8Bytes:=UTF8Encode('我爱你中国');
    S := #$EF#$BB#$BF;
    AfileStream.Write(s[1],Length(s));
    AfileStream.Write(Autf8Bytes[1],Length(Autf8Bytes));
  finally
    AfileStream.Free;
  end;
end;


procedure TForm1.btn2Click(Sender: TObject);
var
  AfileStream:TFileStream;
  Autf8Bytes:string;
begin
  AfileStream:=TFileStream.Create('c:\abc.txt',fmOpenRead);
  try
    SetLength(Autf8Bytes,AfileStream.Size);
    AfileStream.Read(Autf8Bytes[1],Length(Autf8Bytes));
    ShowMessage(UTF8Decode(Copy(Autf8Bytes,4,MaxInt)));
  finally
    AfileStream.Free;
  end;
end;