| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TInifiles
Klopan © (2004-09-16 16:54:00)
function LoadConfig(s: string): integer;
var
inifile : TIniFile;
begin
result:= 0;
IniFile := TIniFile.Create(cfgfile);
try
with inifile do begin
result := ReadInteger('Main', s, 0);
end;
finally
inifile.Free;
end;
end;
procedure Saveconfig(st: string; num: integer);
var
inifile : TIniFile;
begin
IniFile := TIniFile.Create(cfgfile);
try
with inifile do begin
WriteInteger('Main', st, num);
end;
finally
inifile.Free;
end;
end;
надо чтоб это работало (появляется ошибка мол s и st должны быть постоянными)
SergP. (2004-09-17 08:53:00) [1]
> [14] Klopan © (16.09.04 18:11)
> вот другой пример:
> на форме edit, label, button.
>
> в edit вписанно "Value", при нажатии на кнопку, должен считаться
> параметр Value из ini файла и появиться на label
Параметр Value какой секции?
...
labe11.caption := Inifile.ReadString('MySection', edit1.text, 0);
...
ssk (2004-09-16 21:56:00) [2]:-)
Sergey Kaminski (2004-09-16 20:03:00) [3]Не твое это, брось...
Klopan (2004-09-16 18:11:00) [4]вот другой пример:
на форме edit, label, button.
в edit вписанно "Value", при нажатии на кнопку, должен считаться параметр Value из ini файла и появиться на label
Amoeba (2004-09-16 18:03:00) [5]
> Klopan © (16.09.04 17:58) [12]
> чтобы считывался параметр который в адресе
Так считав числовой параметр из ini преобразовывай его в строку и вставляй ее в адрес на место num.
Klopan (2004-09-16 17:58:00) [6]чтобы считывался параметр который в адресе
kukuikar (2004-09-16 17:52:00) [7]чего-то я уже ничего непонимаю
тебе чего надо, чтобы считывался или чтобы ошибок не возникало?
Klopan (2004-09-16 17:47:00) [8]короче это невозможно?
Amoeba (2004-09-16 17:40:00) [9]LMD! Других слов уже нет.
Klopan (2004-09-16 17:34:00) [10]оно не считывается т.к этот параметр - переменная
Amoeba (2004-09-16 17:31:00) [11]В огороде бузина, а в Киеве дядька.
> нужно чтоб когда в строке адреса вписываешь с параметром,
> это параметр считывался.
> например: адрес: http://site.ru?num/
> и из ini файла считается параметр num.
Считывается то, что считываешь...
Klopan (2004-09-16 17:27:00) [12]проблема не в этом, а вот в чем
const cfgfile = 'c:\cfg.ini';
var count: integer;
...
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
count:= LoadConfig(request.Query);
inc(count, 1);
SaveConfig(request.Query, count);
end;
нужно чтоб когда в строке адреса вписываешь с параметром, это параметр считывался.
например: адрес: http://site.ru?num/
и из ini файла считается параметр num.
kukuikar (2004-09-16 17:13:00) [13]LoadConfig('config1.ini);
LoadConfig('config2.ini);
LoadConfig('config3.ini);
...
Saveconfig(config1; 0);
Saveconfig(config2; 1);
Saveconfig(config3; 2);
а внутри функции они постоянные!!!!!!!
kukuikar (2004-09-16 17:11:00) [14]const знвчит что внутри функции они постоянные.
внутри функции они же у тебя не меняются.
kukuikar (2004-09-16 17:09:00) [15]должны...
нужно...
Они у тебя будут перемнными при выполнении функции.
ты ее можешь выполнить несколько раз и каждый раз с разными файлами, КОТОРЫЕ ВНУТРИ ФУНКЦИИ БУДУТ КОНСТАНТАМИ!!!!!!!
Klopan (2004-09-16 17:02:00) [16]мне нужно чтоб были переменными
Amoeba (2004-09-16 16:57:00) [17]function LoadConfig( consts: string): integer;
.....
procedure Saveconfig( constst: string; num: integer);
.....
| |
