Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

Ini files   Найти похожие ветки 

 
TrollXP   (2003-11-05 18:29) [0]

Привет, народ! Объясните, пожалуйста, как работать с ini файлами. Спасибо.


 
Владислав   (2003-11-05 18:32) [1]

А книги и хелп накой?!


 
Zew   (2003-11-05 18:35) [2]

Что то типо такого
var
IniFile: TIniFile;
IniPortItem: integer;
IniRTSChecked: boolean;
const
//значения по умолчанию
DefPortItem = 1;
DefRTSChecked = false;

procedure ReadIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+"\muk.ini";
IniFile:=TIniFile.Create(FileName);
IniPortItem:=IniFile.ReadInteger("Port","Number",DefPortItem);
IniRTSChecked:=IniFile.ReadBool("Port","RTS/CTS",DefRTSChecked);
IniFile.Free;
end;

procedure SaveIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+"\muk.ini";
IniFile:=TIniFile.Create(FileName);
IniFile.WriteInteger("Port","Number",IniPortItem);
IniFile.WriteBool("Port","RTS/CTS",IniRTSChecked);
IniFile.Free;
end;


 
Zacho   (2003-11-05 18:35) [3]

F1 - TIniFile
Там и примеры есть. А если что непонятно - спрашывай конкретно, что именно.


 
P0tia   (2003-11-05 18:35) [4]

procedure TForm1.FormDestroy(Sender: TObject);
var Ini: Tinifile; //необходимо создать объект, чтоб потом с ним работать
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+"MyIni.ini"); //создали файл в директории программы
Ini.WriteInteger("Size","Width",form1.width);
Ini.WriteInteger("Size","Height",form1.height);
Ini.WriteInteger("Position","X",form1.left);
Ini.WriteInteger("Position","Y",form1.top);
Ini.Free;
end;

А так вспоминать

procedure TForm1.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+"MyIni.ini"); //открываем файл
Form1.Width:=Ini.ReadInteger("Size","Width",100);
//последнее значение (100) это значение по умолчанию (default)
Form1.Height:=Ini.ReadInteger("Size","Height",100);
Form1.Left:=Ini.ReadInteger("Position","X",10);
Form1.Top:=Ini.WriteInteger("Position","Y",10);
Ini.Free;
end;


 
TrollXP   (2003-11-05 18:47) [5]

В принципе, с этим понятно. Спасибо. Но вот меня интересует, как в оболочках ауторана из ini файла читается, допустим, дескриптор программы, ее путь и т.п.


 
Владислав   (2003-11-05 18:54) [6]

Ну а почему бы их точно также не прочитать?


 
TUser   (2003-11-05 18:55) [7]

В корне любого диска, способного к ауторану пишется файл autorun.ini. А в нем [Open] и в опене open=твойПрограмм.EXE. Точнее - посмотри на любом авторанящемся диске.


 
TrollXP   (2003-11-05 18:59) [8]

2TUser
Ты меня не понял.
2Владислав
Ну, допустм
[PROGRAM]
TITLE = Такая-то
INSTALL = Такой-то файл
PATH = -//-
DESCRIPTION = -//-
И таких несколько. И как для определённой прогр. прочитать свое?


 
Плохиш_   (2003-11-05 19:05) [9]

[PROGRAM1]
[PROGRAM2]...

Когда думать-то начнёшь?


 
TrollXP   (2003-11-05 19:07) [10]

Утром :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
14-56825
Грустный такой
2003-10-27 21:17
2003.11.17
Оцените, плиз, грустный такой стишок...ну очень надо


1-56690
Zheks
2003-11-07 13:37
2003.11.17
Типы


4-56950
shuba
2003-09-22 16:21
2003.11.17
Запуск процедуры из чужой программы


1-56753
Максим
2003-11-06 16:43
2003.11.17
добавление TabControl(ов) в PageControl в runtime


3-56510
Ozone
2003-10-28 07:46
2003.11.17
TADOTable





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский