1,594
社区成员




//uses 添加这个IniFiles
uses IniFiles;
//声明变量
var
PWDFile:TIniFile;
//注意filename 为路径+文件名
Filename:=ExtractFilePath(Paramstr(0))+'MSIC.INI';
//此时Filename为你的 可执行文件所在目录 + 'MSIC.INI'
PWDFile:=TIniFile.Create(Filename);
//下面是读[1]的NAME,IP,PORT,PHONE,其他的类似。
Edit1.Text:=PWDFile.ReadString('1','NAME','');
Edit2.Text:=PWDFile.ReadString('1','IP','');
Edit3.Text:=PWDFile.ReadString('1','PORT','');
Edit4.Text:=PWDFile.ReadString('1','PHONE','');
//下面是写[4]的NAME,IP,PORT,PHONE,其他的类似。
PWDFile.WriteString('4', 'NAME', '4');
PWDFile.WriteString('4', 'IP', '172.25.10.1');
PWDFile.WriteString('4', 'PORT', '3001');
PWDFile.WriteString('4', 'PHONE', '');