我读入一个文件，但是我不知道怎样读出这个文件(100分)

phosphor · 2002-05-25

代码:

我用Delphi写了一个文件
var
   f: TFileStream;
   fl : double;
   i,ii : Integer;
begin
   ii : =0;
   inc(ii);
   for  i :=0 to 100 do
   begin
     fl :=ii; 
     f := TFileStream.Create( 'file.js', fmCreate);
     f.Write(fl, sizeof(fl));
     f.Free;
   end;
end
文件写进去了，但是我怎么读出来呢？
var
   f: TFileStream;
   fl : double;
begin
   f := TFileStream.Create( 'file.js', fmOpenRead);
   f.Read(fl, sizeof(fl));
   这里我想付到一个Memo中 应该怎么写呢？  
   f.Free;
end;

还有一个问题，我怎样能预留8位呢？ 而且每次取十位
向vc里的 
1、 _lread(hCheakFile,buf,3);  /* 程序预留8位， 这里的_Lread相当于Delphi 中
的什么命令呢?
 2、long double  d; /* 应给是什么类型呢？ 是 double型吗？ 还有这个类型的长度是多少呢？
 3、_lread(hCheakFile,&amp;d,10); $d 应该在Delphi中怎么写呢？

[

][

]

TYZhang · 2002-05-25

var
f: TFileStream;
fl : double;
i,ii : Integer;
begin
ii : =0;
f := TFileStream.Create( 'file.js', fmCreate);
for i :=0 to 100 do
begin
inc(ii);
fl :=ii;
f.Write(fl, sizeof(fl));
end;
f.Free;
end
文件写进去了，但是我怎么读出来呢？
var
f: TFileStream;
fl : double;
begin
f := TFileStream.Create( 'file.js', fmOpenRead);
f.Read(fl, sizeof(fl));
这里我想付到一个Memo中应该怎么写呢？
Memo1.Lines.Append(Format('%f',[f1]));
f.Free;
end;

xiaohewanwan · 2002-05-25

嘿嘿，借花南佛：）
procedure TForm1.Button1Click(Sender: TObject);

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer;
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer));
end;
finally
FreeMem(Buffer);
end;
end;
end;

fs_best · 2002-05-28

var
f: file of Double;
i, ii: integer;
fl: Double;
begin
Assign(f, 'c:/file.js');
Rewrite(f);
ii:= 0;
fl:= ii;
for i:= 1 to 100 do begin
Write(f, fl);
end;
CloseFile(f);
end;

我读入一个文件，但是我不知道怎样读出这个文件(100分)

phosphor

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

xiaohewanwan

Unregistered / Unconfirmed

fs_best

Unregistered / Unconfirmed

Similar threads