OdesitVadim

Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору scharhan Вот те пример. В uses добавляеш IniFiles Текст сохранения. Код: procedure SaveParam; var ini:TIniFile; begin ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда) ini.WriteString('section','paramname','paramvalue'); ini.writeinteger('Form1','Width',Form1.width); ini.free; end; | Чтение настроек Код: procedure LoadParam; var ini:TIniFile; s:string; begin ini:=TIniFile.Create(ChangeFileExt(Application.exename),'.ini');//Если указать просто имя ини файла без полного пути, то создаст в documents and Setting (Если новая винда) s:=ini.ReadString('section','paramname','paramdefaultvalue'); Form1.width:=ini.readinteger('Form1','Width',Form1.width); ini.free; end; | Также там есть много разных методов на чтение буленовских переменных, даты и прочего. Что бы цвет сохранить, пользуемся тем, что Color - Это тот же Cardinal, тоесть целое без знака. Недостаток этого способа - если в цикле сотню-другую параметров записать захочешь - тормоза будут. И ещё есть ограничение на 64кило. Но делфи тут ни причём - это всё особенности винды. Но если заменить TIniFile на TMemIniFile и не забыть перез ini.free после записи файла писать ini.update, то всё стаёт на места свои Добавлено: GreatOne Сносить подальше сей антивирь. Он ещё чудно место на дисках хавает, если там НТФС. А кнопочку ресет для него - это жесть! По поводу что лучше/хуже - в соответствующую ветку форума
---------- Press any key to continue or any other key to exit Пишите так, чтобы не было стыдно за нобелевскую премию. |
|