如何将纪录直接读写到INI文件中？？？

Question

WritePrivateProfileString('t' ,'t' ,Pchar(Format('%d,%d,%d,%d',[t.i,t.j,t.k,t.l])) ,'t.ini') ;

Answer 1

INI文件是文本文件，对blockwrite()不支持

Answer 2

直接用TiniFile比 liujc的方法简单些

Answer 3

WritePrivateProfileString('t' ,'t' ,Pchar(Format('%d,%d,%d,%d',[t.i,t.j,t.k,t.l])) ,'t.ini') ;

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var
mFile:file of T;
mt:T;
begin
    mt.i:=1;
    mt.j:=2;
    mt.k:=3;
    mt.l:=4;
    Assignfile(mFile,'d:\my.ini');
    ReWrite(PersonFile);
    try
        write(Personfile,Person);
    finally
      Closefile(Personfile);
    end;
end;
但是写进去的内容是有格式的，按照记录格式写的，不能用Notepad看！

Answer 5

如何将ini文件中一个section（如[T]）中的内容读到相应record型的变量T中