一、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;
05-11 03:05