delphi之读写文件的三种方式

一、Tstrings、Tstringlist

procedure TForm1.Button2Click(Sender: TObject);
var strlist: TStringList;
  path: string;
begin
  path := 'c:	est.txt';
  strlist := TStringList.Create;
  try
    strlist.Add('str=abcd');
    strlist.Insert(1, '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:	est.txt';
  strlist := TStringList.Create;
  try
    strlist.LoadFromFile(path);
    mmo1.Lines.Add(strlist.Values['str']); //输出：abcd
    mmo1.lines.Add(strlist.ValueFromIndex[1]);// 输出: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:	est.txt';
    m := TMemoryStream.Create;
    try
       tr.str:='abcd';
       tr.int:=10;
       m.Write(tr,SizeOf(tr));// 将tr数据写入流
       m.SaveToFile(path);//流存入文本
       m.Clear; //清除流的数据
       FillChar(tr,SizeOf(tr),0);//初始化结构体数据
  
       m.LoadFromFile(path);//从文本中读取数据，用内存流装
       m.Position:=0; //将指针位置置为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:	est.txt';
    m := TFileStream.Create(path, fmCreate);
    try
      tr.str := 'abcd';
      tr.int := 10;
  
      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:	est.txt';
    m := TFileStream.Create(path, fmOpenRead);
    try
     m.Read(tr,SizeOf(tr));
     mmo1.Lines.Add(tr.str); //结果为：abcd
    finally
      m.Free; //释放内存流
    end;
  end;