点击combobox的下拉列表读取指定的ini值(20)

感谢de410的回答===================使用那代码后 我读取不了我原先写入ini的内容如何点击ini的下拉列表后 实现读取ini ,这个ini不是具体的路径但是与程序在同一文件夹的ini 使用procedure SearchFile(Path: string); var SR: TSearchRec; begin if Path[Length(Path)] <> '/' then Path := Path + '/'; if FindFirst(Path + '*.ini', faAnyFile, SR) = 0 then begin repeat if (SR.Name <> '.') and (SR.Name <> '..') then ComboBox1.Items.Add(SR.Name); until FindNext(SR) <> 0; end; FindClose(SR); end; 实现了读取ini到列表 但是如何读取呢===========我是这样写的 readini:=Tinifile.Create(ExtractFilePath(Paramstr(0));//建立关联fom1.edit1.text := pzini.Readstring('ftp', 'dns','');//读取

readini:=Tinifile.Create(ExtractFilePath(Paramstr(0)+combobox1.text);//建立关联fom1.edit1.text := readini.Readstring('ftp', 'dns','');//读取

读取a.ini到edit.textreadini:tIniFilereadini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'a.ini'); fom1.edit1.text:=readini.ReadString('ftp', 'dns','');

de410 我上面说的读取的是一个不定的ini 不是指定的 呵呵 谢谢2楼的我在试验 谢谢

没有成功 期待楼下的帮忙了 我在自学delphi编程 感谢大家的帮忙

顶起 期待有人帮忙

读取名字为combobox1.text的ini到edit.text(前提,INI和程序在同一个目录下)var aini:string;begin aini:=trim(combobox1.text)+'.ini'; readini:tIniFile readini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'aini'); fom1.edit1.text:=readini.ReadString('ftp', 'dns','');end;

de410代码有点问题 改成readini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + aini); OK 谢谢你了 分给你

多人接受答案了。