//String型配列のデータを保存する
procedure IniSaveStringArray(const Sec,Id:string; sArray: array of string);
var
Ini:TInifile;
i: Integer;
begin
try
Ini:=TInifile.Create(ChangeFileExt(ParamStr(0),'.ini'));
Ini.EraseSection(Sec); //データを初期化
//要素毎にIDにIndexを付加して書き込む
for i:= Low(sArray) to High(sArray) do
Ini.WriteString(Sec, Id + IntToStr(i), sArray[i]);
finally
ini.Free;
end;
end;
// Indexで指定したString型配列の要素のデータを読み出す
function IniReadStringArray(const Sec,Id:String; Index:Integer):String;
var
Ini:TInifile;
begin
try
Ini:= TInifile.Create(ChangeFileExt(ParamStr(0),'.ini'));
Result:= Ini.ReadString(Sec, Id + IntToStr(Index), '');
finally
ini.Free;
end;
end;
//String型配列に IniFileのデータをセットする
procedure IniSetStringArray(const Sec,Id:string; var sArray: array of string);
var
Ini:TInifile;
i: Integer;
begin
try
Ini:= TInifile.Create(ChangeFileExt(ParamStr(0),'.ini'));
for i:= Low(sArray) to High(sArray) do
sArray[i]:= Ini.ReadString(Sec, Id + IntToStr(i), '');
finally
ini.Free;
end;
end;