Главная страница
    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.048 c
4-1093514021
dms_main
2004-08-26 13:53
2004.10.03
Меню


1-1095182505
Сергей
2004-09-14 21:21
2004.10.03
Текстуру на форму.


14-1095085359
Soft
2004-09-13 18:22
2004.10.03
Найден философский камень информатики.


1-1095162604
Sem
2004-09-14 15:50
2004.10.03
Определение кодировки


14-1095248996
NewDelpher
2004-09-15 15:49
2004.10.03
Перестала запускаться DELPHI





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