怎样将串口中读到的信息写到一个文件中？

Question

从串口中读到的信息是不是一段一段的文件流？怎样将这些信息写到一个文件中？就是读一段写一段（累加填入）。

Answer 1

function   WriteLog(const logstr,fname:string):integer;
var f:Text;
begin
   Assignfile(f,fname);
   Try
    if FileExists(Fname) then append(f) else rewrite(f);
    WriteLn(F,LogStr);
   Except
   end;    Closefile(f);
end;

Answer 2

djmdjmdjm(狄惊梦)   就用WRITELN写入文本文件。读出的数据可能不是文本，不能用这种方法！zhuangjx(zhuangjx) ，你这个方法好想也不行啊，WriteLn也是用来处理普通文件的，我这个文件是2进制的。

Answer 3

如果是串口中收到的全是ACSII的话那你就可以定义一个文本文件写到这个文件中就可以了
var
FileName :Textfile;//
begin
  Assignfile(FileName ,fname);
  Try
   if FileExists(Fname) then append(FileName) else rewrite(FileName);
   WriteLn(FileName,TempStr);  //TempStr 是你收到的那个串
  Except
  end;
  Closefile(FileName);
end;