Работа с ini

← →
Луарвик © (2003-07-07 11:40) [0]

Плиз, напишите пару примеров работы с ini. Например запись инфи и считование. Буду очень признателен...

← →
Skier © (2003-07-07 11:42) [1]

У тебя уникальная клавиатура ? Без F1 ?

← →
Луарвик © (2003-07-07 11:48) [2]

Ваще-то с F1, но какая разница?! Работа с ini-файлами! Какая разница какая у меня клава?

← →
Skier © (2003-07-07 11:50) [3]

Нет слов...

← →
Anatoly Podgoretsky © (2003-07-07 11:50) [4]

Ну если нет клавиши F1, то можно обйтись и без нее, достаточного двойного удара мышкой (это даже без клавиатуры) по файлу справки.

← →
Луарвик © (2003-07-07 11:53) [5]

Не, ну вы меня не правильно понимаете! В ini-файлах храняться настройки та всякие... Формат файла "ini", понимаете?

← →
Skier © (2003-07-07 11:55) [6]

Ну,... просто "Орех" !

← →
Skier © (2003-07-07 11:56) [7]

>Луарвик © (07.07.03 11:53)
Ащё подсказка : обрати свой взор в сторону класса TIniFile :)

← →
Луарвик © (2003-07-07 11:56) [8]

Какой еще "Орех"?! Вот видете: из-за таких вот не серьезных людей мою тему в "потрепатьтся" перенесли!!!

← →
Anatoly Podgoretsky © (2003-07-07 12:01) [9]

Так значит другие виноваты?

← →
Palladin © (2003-07-07 12:01) [10]

почему ты решил что твоя тема достойна хотя бы общего форума, если все решается одной клавишей F1

← →
Луарвик © (2003-07-07 12:02) [11]

Я же сказал : "несколько ПРИМЕРОВ работы с ini файлами", а не подсказок!

← →
Anatoly Podgoretsky © (2003-07-07 12:04) [12]

Ищи F1

← →
Ihor Osov'yak © (2003-07-07 12:04) [13]

2 Луарвик

Ну чего кипятишся? По делу тебе говорят..

Зы - для особо одаренных - пошаговая инструкция

1. В любом месте редактора кода пишешь TIniFile, выделяешь и жмешь Ctrl+F1
2. Смотришь.. Жмешь на ссылку Methods, смотришь на названия методов.
3. Жмешь на метод, который вызывает определенные ассоциации, например ReadString
4. Снова смотришь на экран. И пытаешся заметить линк "Exsample"
5. Если заметил, жмешь, если нет - п4
6. Обращаем внимание на фрагмент кода ..

← →
Луарвик © (2003-07-07 12:05) [14]

Тоже мне форум! Трудно было написать пару примеров...

← →
Ihor Osov'yak © (2003-07-07 12:06) [15]

Exsample -> Example :-)

← →
Anatoly Podgoretsky © (2003-07-07 12:08) [16]

А ты ленивый Парамоша.
Я не халявщик, я партнер.

← →
Skier © (2003-07-07 12:10) [17]

>Луарвик © (07.07.03 12:05)
"Ах, Моська, знать она сильна..."

← →
Луарвик © (2003-07-07 12:11) [18]

Кто еще ленивый?! Просто я не знал и английский не очень хорошо изучил! А вот другим ничего не стоит пример написать...

← →
Фикус © (2003-07-07 12:12) [19]

бенефис :)

← →
Луарвик © (2003-07-07 12:13) [20]

Вот например: какой модуль подключить что б все работало?

← →
Anatoly Podgoretsky © (2003-07-07 12:14) [21]

Ищи F1

← →
Фикус © (2003-07-07 12:15) [22]

IniFiles

>Луарвик © (07.07.03 12:13)
"... по кругу, по кругу"
"Вальс начинается, дайте ж, сударыня, руку"
"И раз, два, три, раз, два, три, раз, два, три..."

Просто выдрал кусок. Устроит ?

procedure ReadWriteAppParams(opt: Char); // Обработка текущих параметров программы var pf: TIniFile; s: string; begin pf := TIniFile.Create(GetCurrentDir+"\LocPar.ini"); if opt="R" then begin s := pf.ReadString("INVOICE","PostID",""); if s>"" then CST.CST_ID := StrToInt(s) else CST.CST_ID := 0; s := pf.ReadString("INVOICE","DateStart",""); if s>"" then SQLDateS := StrToDate(s) else SQLDateS := NOW; s := pf.ReadString("INVOICE","DateEnd",""); if s>"" then SQLDateE := StrToDate(s) else SQLDateE := NOW; s := pf.ReadString("INVOICE","ShowNotClosed","0"); SQLNotClosed := StrToBool(s); end else begin s := ""; if CST.CST_ID>0 then s := IntToStr(CST.CST_ID); pf.WriteString("INVOICE","PostID",s); pf.WriteString("INVOICE","DateStart",DateToStr(SQLDateS)); pf.WriteString("INVOICE","DateEnd",DateToStr(SQLDateE)); pf.WriteString("INVOICE","ShowNotClosed",BoolToStr(SQLNotClosed)); end; pf.Free; end;

Не надо делать выписок из справки, поскольку она у него есть, достаточно указать тему. Не увеличивай трафик.

Да-а-а-а, не прошли ещё те времена, когда издевались над не опытными... и неопытность определяемая ленью...

2 IronHawk

Над неопытными - что-то не припоминаю. Над ленивыми, наглыми, не умеющими читать, етс - с удовольствием, и хоть сейчас :-)

В этом случае я всегда говорю своему начальнику(он у меня добрый :-) )- Вы тоже сразу писАли не стоя. Когда человек ламо, у него просто паника, а для того чтобы не отбивать охоту от программирования дали ему кость-пусть жуёт! А обсуждать незачем - все когда-то на горшок ходили, и тоже дурацкие вопросы задавали, что не так хотите сказать???

← →
AbrosimovA (2003-07-07 14:36) [30]

← →
AbrosimovA (2003-07-07 14:50) [31]

uses IniFiles; //Процедура записи настроек программы в ini-файл procedure WriteIni(ASection, AString, AValue : String); begin sIniFile := TIniFile.Create(sPath + "Name.ini"); sIniFile.WriteString(ASection, AString, AValue); sIniFile.Free; end; //Функция чтения настроек программы из ini-файла function ReadIni(ASection, AString : String) : String; const S = ""; { стандартная строка для выдачи ошибок чтения } begin sPath:=ExtractFilePath(Application.ExeName); sIniFile := TIniFile.Create(sPath + "Name.ini"); Result := sIniFile.ReadString(ASection, AString, S); sIniFile.Free; end; procedure TForm1.******** var Str: string; begin //Пример записи в ini-файл Str:="1" WriteIni("Setting","Hide",Str); end;

В файле эта запись будет выглядеть следующим образом:

[Setting]
Hide=1

procedure TForm1.******** var Str: string; begin //Пример чтения из ini-файла Str:=ReadIni("Setting","Hide");//После чтения Str равно 1 end;

Работа с ini Найти похожие ветки