Ну используй не один, а два списка, в одном Name=OID в другом Name=X
Оффтоп
delphi Код:
var
i,j,k:integer;
NameOID: TStringList;
NameX: TStringList;
procedure Init; //Вызывается при включении скрипта
begin
NameOID :=TStringList.Create;
NameX :=TStringList.Create;
for i:=1 to 10 do begin
j:=10-i;
k:=10*i;
SetValueOID(inttostr(i),inttostr(j)); //для примера - в один список сохраняю i=j (строки)
SetValueX(inttostr(i),inttostr(k));//тут сохраняю i=k
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
NameOID.savetofile('1.txt'); //сохранение баз в файл при выключении скрипта.
NameX.savetofile('2.txt');
NameOID.free;
NameX.free;
end;
procedure SetValueOID(ValName: string; Value: string);
begin
NameOID.Values[ValName]:=Value;
end;
function GetValueOID(ValName: string): string;
begin
result:=NameOID.Values[ValName];
end;
procedure SetValueX(ValName: string; Value: string);
begin
NameX.Values[ValName]:=Value;
end;
function GetValueX(ValName: string): string;
begin
result:=NameX.Values[ValName];
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.
- создается два списка, в одном храни (имя=оид) в другом (имя=Х) - только учитывай что Х - будет стринг - надо переводить как будет необходимо...Сохранение в файл - необязательно.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 16.12.2010 в 15:52.
|