我应该怎么读出这写文件内容呢？

Question

procedure TForm2.SpeedButton1Click(Sender: TObject);
var tmplist:TStringList;
    tmpstream:TFileStream;
begin
  tmplist:=TStringList.Create ;
  if OpenDialog1.Execute then
     begin
     tmpstream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
     tmpstream.Position:=0;
     tmplist.LoadFromStream(tmpstream);
     showmessage(inttostr(tmplist.Count ));
     end;
  tmplist.Free ;
  tmpstream.Free ;
end;
//将tmplist换成memo1,试试

Answer 1

怎么读呢？
里边存的是双精度浮点数
F :=TFileStream.Ceare('c:\sj.sj',fmread)
f.seek(8,fmbeging)
f.read()
后边应该怎么写呢！最后的出的数要要写到MEMO中的

Answer 2

var cc:double;
F :=TFileStream.Ceare('c:\sj.sj',fmread);
f.seek(8,fmbeging);
f.read(cc,8);
memo1.lines.add(floattostr(cc));

Answer 3

可不可以先看看你的TXT文件内容

Answer 4

好的，请把你的email留下或者qq号
我的是11060381