Вобщем так, TstringList - это список строк, наподобие <Имя>=<Строка>, и имя и строка - это, ессно, string;
Как вариант можно сделать примерно вот так:
Оффтоп
delphi Код:
Base:TStringList;
.......................................
Base :=TStringList.Create;
.......................................
procedure SetValueBase(ValName: string; Value: string);
begin
Base.Values[ValName]:=Value;
end;
function GetValueBase(ValName: string): string;
begin
result:=Base.Values[ValName];
end;
........................................
ну и гдето в теле скрипта уже работаешь со списком:
(например ведем базу ников+оид+координаты этого перса)
if fromserver and (pck=charinfo) then begin
NameX:=ReadD(a);
NameY:=ReadD(b);
NameZ:=ReadD(c);
NameOID:=ReadD(y);// порядок считывания на память написан, может неверно быть
Name:=ReadS(x);
SetValue(Name,inttostr(NameOID));
SetValue(Name+'_cX',inttostr(NameX));
SetValue(Name+'_cY',inttostr(NameY));
SetValue(Name+'_cZ',inttostr(NameZ));
end;
...........................................................
когда понадобится считывание то читаешь со списка так:
Name:='Ник';
NameOID:=strtoint(GetValue(name));
NameX:=strtoint(GetValue(name+'_cX'));
NameY:=strtoint(GetValue(name+'_cY'));
NameZ:=strtoint(GetValue(name+'_cZ'));
Будет вестись одна база, со строками вида
Ник=ОИД
Ник_сХ=(координатаХ)
Ник_сY=(координатаY)
Ник_сZ=(координатаZ)
Пример - гипотетический, вести подобного рода бд будет удобнее не через ник, как написано выше, а через ОИД персов.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 16.12.2010 в 21:45.
|