通过串口不断获取数据.然后将这些数据保存在txt文件中.不通过类似Memo保存.
即是像ini文件一样去保存

解决方案 »

  1.   

    uses
    inifiles;
    .....
    var
    ini:Tinifile;
    begin
    dbgrideh1.Columns[0].Width:=24;
    ini:=Tinifile.Create('d:\日志.ini');
    ini.WriteString(保存区,保存地方1,数据1);
    end;
      

  2.   

    sLst:TStringList;sLst:=TStringList.create;
    循环开始
    sList.add(通过串口不断获取数据);
    循环结束
    sList.savetofile('d:\日志.txt');
    sList.free;
      

  3.   

    function  logWrite(filename:string;content:string):Boolean;
    var   
        TextFile:Text;
    begin
      try
        Assignfile(textfile,filename);
        try
          Append(textFile);
        except
          Rewrite(textFile);
        end;
        writeln(textFile,content);
        CloseFile(textfile);
      except
        logwrite:=false;
        Exit;
      end;
      logwrite:=true;
    end;