uses ...inifiles;
...
onformclose(sender:tobject);
var
i:tinifile;
begin
i ;= tinifile.create('sinpleexample.ini');
try
i.writeinteger('common','x',memo1.CaretPos.x);
i.writeinteger('common','y',memo1.CaretPos.y); finally
freeandnil(i);//i.free;i:=nil;
end;
onformactive(sender:tobject);
var
i:tinifile;
begin
i ;= tinifile.create('sinpleexample.ini');
try
memo1.CaretPos.x := i.readinteger('common','x',1);
memo1.CaretPos.y := i.readinteger('common','y',1);
finally
freeandnil(i);//i.free;i:=nil;
end;