|
Mr.XRAYさん、いつもお世話になります。
Delphi2010もお使いの様なのですが、つい最近自動バージョンアップ
をしたのですが、下記のコードでFEFFと書き込まれると思うのですが
書き込みがF2F8となってしまいます、Delphi7ではFEFFとなります。
これってバグでしょうか。
procedure TForm1.BitBtn1Click(Sender: TObject);
var DataPath:String;
begin
DataPath:='D:\test.dat';
with TFileStream.Create(DataPath, fmCreate or fmShareDenyNone) do try
Write(#$fe#$ff, 2);
finally
free;
end;
end;
|