TFileStream的用法

Question

如何将磁盘中文件读到TFileStream中？
如何在磁盘中创建文件并将TFileStream中的数据写入文件？谢谢

Answer 1

这是我写过的程序里的一段代码。。供参考。。当然
void TForm1::DataSave(void)
{
    int         pos;
    AnsiString  FileName;    FileName = OpenDataDlg->Files->Strings[CurFile];
    pos = FileName.LastDelimiter("\\");
    FileName.Insert(AnsiString("F"), (pos+1));    int         i;
    TFileStream *File;
    AnsiString  tmp;    File = new TFileStream(FileName, fmCreate);
    for( i = 0; i < CListBox->Items->Count; i++ )
    {
        if( CListBox->Checked[i] )
        {
            tmp = CListBox->Items->Strings[i]+"\r\n";
            File->Write(tmp.c_str(), tmp.Length());
        }
    }    delete File;
}

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  fs:TFileStream;
begin
  fs:=TfileStream.Create('c:\goomoo.dat',fmcreate or fmshareexclusive);//创建文件
  try
    //....
  finally
    fs.Free;
  end;end;procedure TForm1.Button2Click(Sender: TObject);
var
  fs:TFileStream;
begin
  fs := tfileStream.Create('c:\autoexec.bat',fmopenread or fmsharedenynone);  //读取
  try
    memo1.Lines.LoadFromStream(fs);
  finally
    fs.Free;
  end;
end;

Answer 3

TFileStream.loadfromfile 导入文件
TFileStream.savetofile   保存文件

Answer 4

TFileStream.loadfromfile 导入文件
TFileStream.savetofile   保存文件这个不是TFileStream的属性````