Форум: "Потрепаться";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Вниз
Работа с 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
← →
Skier (2003-07-07 12:16) [23]>Луарвик © (07.07.03 12:13)
"... по кругу, по кругу"
"Вальс начинается, дайте ж, сударыня, руку"
"И раз, два, три, раз, два, три, раз, два, три..."
← →
MsGuns (2003-07-07 12:16) [24]Просто выдрал кусок. Устроит ?
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;
← →
app (2003-07-07 12:19) [25]Не надо делать выписок из справки, поскольку она у него есть, достаточно указать тему. Не увеличивай трафик.
← →
MsGuns (2003-07-07 12:21) [26]>app © (07.07.03 12:19)
СЛУШАЮСЬ И ПОВИНУЮСЬ !
← →
IronHawk (2003-07-07 12:40) [27]Да-а-а-а, не прошли ещё те времена, когда издевались над не опытными... и неопытность определяемая ленью...
← →
Ihor Osov'yak (2003-07-07 12:44) [28]2 IronHawk
Над неопытными - что-то не припоминаю. Над ленивыми, наглыми, не умеющими читать, етс - с удовольствием, и хоть сейчас :-)
← →
Zerg5 (2003-07-07 13:59) [29]В этом случае я всегда говорю своему начальнику(он у меня добрый :-) )- Вы тоже сразу писАли не стоя. Когда человек ламо, у него просто паника, а для того чтобы не отбивать охоту от программирования дали ему кость-пусть жуёт! А обсуждать незачем - все когда-то на горшок ходили, и тоже дурацкие вопросы задавали, что не так хотите сказать???
← →
AbrosimovA (2003-07-07 14:36) [30]
> Zerg5 © (07.07.03 13:59)
Полностью с тобой согласен.
← →
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;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.009 c
