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;
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;