我怎样写一个文件呢？

Question

var
   f: TFileStream;
   fl : real;
begin
   fl := 90.123;
   f := TFileStream.Create( 'file.js', fmCreate);
   f.Write(fl, 4);
   f.Free;
end;

Answer 1

但是没有转换成二进制文件呀！ 你这样和用chr有什么区别呢？
还有双精度浮点类型是这个吗？ 我怎么定义他呢？ 例如fdlx:双精度浮点类型(应该怎么写呢？)请解释一下 谢谢！

Answer 2

var
  hFile: Handle;
begin
   if FileExists('file.js') then
      hFile := FileOpen('file.js', fmOpenRead or fmOpenWrite or fmShareDenyNone)
   else
      hFile := FileCreate('file.js');
   FileWrite(hFile, AVaule, SizeOf(Double));
   FileClose(hFile);
end;

Answer 3

var
   f: TFileStream;
   fl : double;
begin
   fl := 90.123;
   f := TFileStream.Create( 'file.js', fmCreate);
   f.Write(fl, sizeof(fl));
   f.Free;
end;

Answer 4

var
   f: TFileStream;
   fl : double;
begin
   fl := 90.123;
   f := TFileStream.Create( 'file.js', fmCreate);
   f.Write(fl, sizeof(fl));
   f.Free;
end;

Answer 5

var
   file: TFileStream;
   fl : double;
begin
   fl := 90.123;
   file := TFileStream.Create( 'file.js', fmCreate);
   file.Write(fl, sizeof(fl));
   file.Free;
end;
直接写二进制。

Answer 6

To  qjwei :
  你怎么不先试验一下？

Answer 7

我正在实验，但是用chr转换后我不知道怎样可以读出来，
请教怎样读出来呢?

Answer 8

var
   f: TFileStream;
   fl : double;
begin
   f := TFileStream.Create( 'file.js', fmOpenRead);
   f.Read(fl, sizeof(fl));
   f.Free;
end;

Answer 9

to windindance(风舞轻扬)     我读出后怎么显示到一个memo中呢？

Answer 10

Memo.Lines.Add(FLoatToStr(fl));请多看帮助。