Вниз
Скачать: CL | DM;

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

← →
Klopan ©   (2004-09-16 16:54) [0]


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 должны быть постоянными)


← →
Amoeba ©   (2004-09-16 16:57) [1]

function LoadConfig(const s: string): integer;
.....

procedure Saveconfig(const st: string; num: integer);
.....


← →
Klopan ©   (2004-09-16 17:02) [2]

мне нужно чтоб были переменными


← →
kukuikar ©   (2004-09-16 17:09) [3]

должны...
нужно...
Они у тебя будут перемнными при выполнении функции.
ты ее можешь выполнить несколько раз и каждый раз с разными файлами, КОТОРЫЕ ВНУТРИ ФУНКЦИИ БУДУТ КОНСТАНТАМИ!!!!!!!


← →
kukuikar ©   (2004-09-16 17:11) [4]

const знвчит что внутри функции они постоянные.
внутри функции они же у тебя не меняются.


← →
kukuikar ©   (2004-09-16 17:13) [5]

LoadConfig("config1.ini);
LoadConfig("config2.ini);
LoadConfig("config3.ini);
...
Saveconfig(config1; 0);
Saveconfig(config2; 1);
Saveconfig(config3; 2);
а внутри функции они постоянные!!!!!!!


← →
Klopan ©   (2004-09-16 17:27) [6]

проблема не в этом, а вот в чем


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.


← →
Amoeba ©   (2004-09-16 17:31) [7]

В огороде бузина, а в Киеве дядька.


> нужно чтоб когда в строке адреса вписываешь с параметром,
> это параметр считывался.
> например: адрес: http://site.ru?num/
> и из ini файла считается параметр num.

Считывается то, что считываешь...


← →
Klopan ©   (2004-09-16 17:34) [8]

оно не считывается т.к этот параметр - переменная


← →
Amoeba ©   (2004-09-16 17:40) [9]

LMD! Других слов уже нет.


← →
Klopan ©   (2004-09-16 17:47) [10]

короче это невозможно?


← →
kukuikar ©   (2004-09-16 17:52) [11]

чего-то я уже ничего непонимаю
тебе чего надо, чтобы считывался или чтобы ошибок не возникало?


← →
Klopan ©   (2004-09-16 17:58) [12]

чтобы считывался параметр который в адресе


← →
Amoeba ©   (2004-09-16 18:03) [13]


> Klopan ©   (16.09.04 17:58) [12]
> чтобы считывался параметр который в адресе

Так считав числовой параметр из ini преобразовывай его в строку и вставляй ее в адрес на место num.


← →
Klopan ©   (2004-09-16 18:11) [14]

вот другой пример:
на форме edit, label, button.

в edit вписанно "Value", при нажатии на кнопку, должен считаться параметр Value из ini файла и появиться на label


← →
Sergey Kaminski ©   (2004-09-16 20:03) [15]

Не твое это, брось...


← →
ssk ©   (2004-09-16 21:56) [16]

:-)


← →
SergP.   (2004-09-17 08:53) [17]


>  [14] Klopan ©   (16.09.04 18:11)
> вот другой пример:
> на форме edit, label, button.
>
> в edit вписанно "Value", при нажатии на кнопку, должен считаться
> параметр Value из ini файла и появиться на label


Параметр Value какой секции?

...
labe11.caption := Inifile.ReadString("MySection", edit1.text, 0);
...



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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.029 c
14-1095404479
Knight
2004-09-17 11:01
2004.10.03
К владельцам Win2003 Server...


4-1093249421
Li_
2004-08-23 12:23
2004.10.03
как hook ом отловить нажатие cntrl+q ?


3-1094043802
Zilog
2004-09-01 17:03
2004.10.03
В 14-значное поле записывается только 12....


4-1093878635
Дима
2004-08-30 19:10
2004.10.03
Как передать в программу нажатие ПРАВОГО Ctrl


14-1095418690
Gorlum
2004-09-17 14:58
2004.10.03
Платные дороги это ещё что, а вот...




   Наверх