如何把读取的文件路径存放到INI文件中，下次再从中读出来？

Question

我用SHELLTREEVIEW选择路径，用EDIT显示所选的路径，怎么保存到INI文件，下一次再从中读取显示在EDIT中。
懒得看书了呵呵，给点提示吧：）

Answer 1

uses inifile;
var
   inifiles:Tinifile;
begin
   inifiles:=TInifile.create(文件路径）;
   inifiles.writestring(扇区名，字段名，写入的值）；//写ini
   edit.text:=inifiles.readstring(扇区名，字段名，预设值）；//读ini
end;
读写写到一起的，自己修改一下就可以了

Answer 2

IniFile:=tinifile.Create(datamodule2.GetIniFilePath);
 inifile.WriteString('ftp_sever','ftp_ip',trim(ftpaddress.Text));
 //重新连接数据库
  ser_ip:=IniFile.ReadString('sever_ip', 'sever', '');
  user_name:=inifile.readstring('user_name','default_name','');
  user_pw:=inifile.readstring('user_pw','default_pw','');
  dbname:=inifile.readstring('dbname','database','');
  ftp_ip:=inifile.readstring('ftp_sever','ftp_ip','');
inifile.free;

Answer 3

Delphi中的INI文件编程整理编辑：China ASP　---- INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构：;注释[小节名]关键字=值...---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。---- 注释以分号“;”开头。二、定义---- 1、在Interface的Uses节增加IniFiles；---- 2、在Var变量定义部分增加一行：myinifile:Tinifile;---- 然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。三、打开INI文件myinifile:=Tinifile.create('program.ini');--- 上面这一行语句将会为变量myinifile与具体的文件 program.ini建立联系，然后，就可以通过变量myinifile，来读写program.ini文件中的关键字的值了。---- 值得注意的是，如果括号中的文件名没有指明路径的话，那么这个Program.ini文件会存储在Windows目录中,把Program.ini文件存储在应用程序当前目录中的方法是：为其指定完整的路径及文件名。下面的两条语句可以完成这个功能：Filename:=ExtractFilePath(Paramstr(0))+'program.ini';myinifile:=Tinifile.Create(filename);四、读取关键字的值--- 针对INI文件支持的字符串、整型数值、布尔值三种数据类型，TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。--- 假设已定义变量vs、vi、vb分别为string、 integer、boolean类型。vs:=myinifile.Readstring('小节名','关键字',缺省值);vi:=myinifile.Readinteger('小节名','关键字',缺省值);vb:=myinifile.Readbool('小节名','关键字',缺省值);--- 其中缺省值为该INI文件不存在该关键字时返回的缺省值。五、写入INI文件---- 同样的，TInifile类也提供了三种不同的对象方法，向INI文件写入字符串、整型数及布尔类型的关键字。myinifile.writestring('小节名','关键字',变量或字符串值);myinifile.writeinteger('小节名','关键字',变量或整型数值);myinifile.writebool('小节名','关键字',变量或True或False);---- 当这个INI文件不存在时，上面的语句还会自动创建该INI文件。六、删除关键字---- 除了可用写入方法增加一个关键字，Tinifile类还提供了一个删除关键字的对象方法：myinifile.DeleteKey('小节名','关键字');七、小节操作--- 增加一个小节可用写入的方法来完成，删除一个小节可用下面的对象方法：myinifile.EraseSection('小节名');--- 另外Tinifile类还提供了三种对象方法来对小节进行操作：--- myinifile.readsection('小节名',TStrings变量);可将指定小节中的所有关键字名读取至一个字符串列表变量中；--- myinifile.readsections(TStrings变量);可将INI文件中所有小节名读取至一个字符串列表变量中去。---- myinifile.readsectionvalues('小节名',TStrings变量);可将INI文件中指定小节的所有行（包括关键字、=、值）读取至一个字符串列表变量中去。八、释放在适当的位置用下面的语句释放myinifile：myinifile.distory;九、一个实例---- 下面用一个简单的例子(如图)，演示了建立、读取、存贮INI文件的方法。myini.ini文件中包含有“程序参数”小节，和用户名称（字符串）、是否正式用户（布尔值）和已运行时间（整型值）三个关键字。程序在窗体建立读取这些数据，并在窗体释放时写myini.ini文件。--- 附源程序清单unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,inifiles,StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Edit1: TEdit;CheckBox1: TCheckBox;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Timer1: TTimer;Label3: TLabel;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementationvarmyinifile:TInifile;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);varfilename:string;beginfilename:=ExtractFilePath(paramstr(0))+'myini.ini';myinifile:=TInifile.Create(filename);edit1.Text:= myinifile.readstring('程序参数','用户名称','缺省的用户名称');edit2.text:= inttostr(myinifile.readinteger('程序参数','已运行时间',0));checkbox1.Checked:= myinifile.readbool('程序参数','是否正式用户',False);end;procedure TForm1.FormDestroy(Sender: TObject);beginmyinifile.writestring('程序参数','用户名称',edit1.Text);myinifile.writeinteger('程序参数','已运行时间',strtoint(edit2.text));myinifile.writebool('程序参数','是否正式用户',checkbox1.Checked);myinifile.Destroy;end;procedure TForm1.Timer1Timer(Sender: TObject);beginedit2.Text:=inttostr(strtoint(edit2.text)+1);end;end.

Answer 4

IORILI(眼镜@_@) 变猩猩了吗恭喜：）
tanqth(青蛙) 谢谢你的资料我会仔细看看

Answer 5

This example reads the Transfer section of the myapp.ini file into a memo and changes one of the strings in the INI file when Button1 is clicked.  When Button2 is clicked, the myapp.ini file is restored to its initial state, using the values stored in the memo.
Before you run this example, you must add the IniFiles unit to the uses clause of your unit.Warning: Do not click button2 before you have clicked button1!procedure TForm1.Button1Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;procedure TForm1.Button2Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin  MyIniFile := TIniFile.Create('myapp.ini');  { if the entry wasn抰 there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;

Answer 6

huojiehai(海天子) 也来了啊！谢谢！
有个问题，这个INI文件是自动创建的吗？只要程序运行后执行
procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
begin
  filename:=ExtractFilePath(paramstr(0))+'myini.ini'; 
  myinifile:=TInifile.Create(filename);
end;
这个后myini.ini就会自动生成吗？
如果是的话，在什么地方？是程序文件夹吗？

Answer 7

http://218.56.11.178:8020/web/index.aspx-> 下载基地->例程-经典应用->INI文件的使用将路径存成STRING就可以了