＋设为首页 ＋添加到收藏夹
一个INI文件，他的格式是下面这样：
[ABC]
a1=XXXXX
a2=YYYYY
a3=zzzzzz
……＝……
这样，关键字的最大值不确定，我用一个Edit来输入一个值，怎样检测那个值是不是INI文件中有的？如果有则执行相应的动作,没有则又执行相应的动作.
uses IniFiles;
procedure TForm1.Button1Click(Sender: TObject);
var
vValues: TStrings;
// I: Integer;
begin
vValues := TStringList.Create;
with TIniFile.Create(c:\temp.ini) do try
ReadSectionValues(ABC, vValues);
if vValues.IndexOf(Edit1.Text) >= 0 then
{ TODO : 有时，相应的动作 }
else { TODO : 没有时，相应的动作 };
// for I := 0 to vValues.Count - 1 do
finally
vValues.Free;
Free;
end;
end;
我又一段代码可以保证有效，但是我在网吧，不能发给你，请联系rock4342@163.com
关键值的最大值不会超过总行数，
你用
memo1.lines.loadfromfile(c:\dd.ini);
那么最大值不会超过memo1.lines.count
