下記のようにコーディングしています。
var
i: Integer;
inif: TIniFile;
sKeyAry: TStrings;
begin
if FileExists(TimeIniFile) then begin
inif := TIniFile.Create(TimeIniFile);
sKeyAry := TStringList.Create;
try
inif.ReadSection(IniSection, sKeyAry);
for i:=0 to sKeyAry.Count-1 do begin
MessageDlg(sKeyAry.Names[i], mtWarning, [mbOk], 0);
inif.ReadSectionの部分で正しくsKeyAryにキー名が入ってきません。
確認でMessageDlgに出力しても文字列が表示されません。
どの部分が間違えているのでしょうか?
よろしくお願いします。
ReadSection → ReadSectionValues かな。
早速のレスをありがとうございます。
解決しました。
ツイート | ![]() |