примитивно и вкратце:
в ини файле строки
one=1000
two=2000
в скрипте считываеш:
const_ini.loadfromfile('xxxx.ini');
var_one:=vartoint(const_ini.values('one'));
var_two:=vartoint(const_ini.values('two'));
Все в том же скрипте на заточку имеется.
Немного изменив считывание и сделав запись - можно упростить, и получать сразу наборы констант для разных клиентов из инишек формата
'имя перса 1'='набор констант для 1'
'имя перса 2'='набор констант для 2'
у меня примерно так бд велась:
Оффтоп
delphi Код:
запись:
//на входе: x,y,z,oid,class,name
//на выходе: хекс строка в бд
x,y,z,oid,class:integer;
name:string;
...........
_buf:=buf;
buf:='';WriteD(x);WriteD(y);WriteD(z);WriteD(class);WriteS(name);
CharInfo.Values(inttostr(oid)):=buf;
buf:=_buf;
и чтение:
//на входе oid перса
//на выходе:набор переменных
_pck:=pck;j:=1;
pck:=CharInfo.Values(inttostr(oid));
x:=ReadD(j);y:=ReadD(j);z:=ReadD(j);class:=ReadD(j);name:=ReadS(j);
pck:=_pck;
.............
в итоге - 1 перс = 1 запись, без лишних телодвижений с перебиранием строк.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 31.05.2011 в 09:09.
|