var
S:UTF8String;
with TMemoryStream.Create do
try
LoadFromFile(ExtractFilePath(ParamStr(0))+'01C82Write.xml');
SetLength(S, Size);
Read(S[1], Length(S));
s := Utf8ToAnsi(Copy(S, 1, MaxInt));
finally
Free;
end;
showmessage( s);
========以上的可以=============================================================
with TMemoryStream.Create do
try
LoadFromFile(ExtractFilePath(ParamStr(0))+'01C82Write.xml');
SetLength(S, Size);
Read(S[1], Length(S));
s := Utf8ToAnsi(Copy(S, 1, MaxInt));
finally
Free;
end;
showmessage( s);