delphi之读写文件的三种方式

一、Tstrings、Tstringlist

procedure TForm1.Button2Click(Sender: TObject);

var strlist: TStringList;

  path: string;

begin

  path := 'c:\test.txt';

  strlist := TStringList.Create;

  try

    strlist.Add('str=abcd');

    strlist.Insert(, 'int=123'); // key=value 类似键值对模式

    strlist.SaveToFile(path);

  finally

    strlist.Free; //释放

  end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var strlist: TStringList;

  path: string;

begin

  path := 'c:\test.txt';

  strlist := TStringList.Create;

  try

    strlist.LoadFromFile(path);

    mmo1.Lines.Add(strlist.Values['str']); //输出：abcd

    mmo1.lines.Add(strlist.ValueFromIndex[]);// 输出:123

    //strlist还有很多好用的功能，可以去查一下

  finally

    strlist.Free; //释放

  end;

end; 

二、直接读取

三、流  (注：不能使用string存储数据，string是指针存的是地址，写入文件的数据是无效的)

• TMemoryStream

•  procedure TForm1.Button2Click(Sender: TObject);
  
   var m: TMemoryStream;
  
     tr:tr_record;
  
     path:string;
  
   begin
  
     path:='c:\test.txt';
  
     m := TMemoryStream.Create;
  
     try
  
        tr.str:='abcd';
  
        tr.int:=;
  
        m.Write(tr,SizeOf(tr));// 将tr数据写入流
  
        m.SaveToFile(path);//流存入文本
  
        m.Clear; //清除流的数据
  
        FillChar(tr,SizeOf(tr),);//初始化结构体数据
  
        m.LoadFromFile(path);//从文本中读取数据，用内存流装
  
        m.Position:=; //将指针位置置为0（如果装载了多条数据，可以通过改变位置读取后面的，默认为0）
  
        m.Read(tr,SizeOf(tr));//把数据装到结构体里
  
        mmo1.Lines.Add(tr.str);//显示结果为:abcd
  
        //第二种方式
  
        Move(m.memory^,tr,SizeOf(tr));//跟positon没关系，结果相同
  
     finally
  
        m.Free;//释放内存流
  
     end;
  
   end;

• TFileStream

•  procedure TForm1.Button2Click(Sender: TObject);
  
   var m: TFileStream;
  
     tr: tr_record;
  
     path: string;
  
   begin
  
     path := 'c:\test.txt';
  
     m := TFileStream.Create(path, fmCreate);
  
     try
  
       tr.str := 'abcd';
  
       tr.int := ;
  
       m.Write(tr, SizeOf(tr)); // 将tr数据写入流
  
     finally
  
       m.Free; //释放内存流
  
     end;
  
   end;
  
   procedure TForm1.Button4Click(Sender: TObject);
  
   var m: TFileStream;
  
     tr: tr_record;
  
     path: string;
  
   begin
  
     path := 'c:\test.txt';
  
     m := TFileStream.Create(path, fmOpenRead);
  
     try
  
      m.Read(tr,SizeOf(tr));
  
      mmo1.Lines.Add(tr.str); //结果为：abcd
  
     finally
  
       m.Free; //释放内存流
  
     end;
  
   end;