06/09/13 21:21:06
>>134
iniファイル読み書きの習作をつくってみました
普通にファイルの読み書きするより簡単かもしれない
ちょっと感動！！
procedure TForm1.Button1Click(Sender: TObject);
var
iniFile: TInifile;
begin
iniFile:=TIniFile.Create('ook.ini');
try
count:=iniFile.ReadInteger('CounterApp', 'Count', 0);
Inc(count);
iniFile.WriteInteger('CounterApp', 'Count', count);
finally
iniFile.Free;
end;
ShowMessage(IntToStr(count));
end;