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

Вниз

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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.036 c
4-1092083186
B4rr4cuda
2004-08-10 00:26
2004.10.03
BitMap пункты в TPopUpMenu, а точнее их прорисовка...


1-1095459217
ГС ТОФ
2004-09-18 02:13
2004.10.03
прибить процесс


3-1093960141
stud
2004-08-31 17:49
2004.10.03
кто работал с master view от квантума


14-1095161073
X9
2004-09-14 15:24
2004.10.03
Покупать или нет? MSND .Net 3 CD


9-1086382702
Vin_Ghost
2004-06-05 00:58
2004.10.03
перемещение по миникарте





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский