массив с пакетами

[supernewbie]

Можно ли как-то сделать массив в котором будет пакеты?
Пробовал делать стринговый, но не работает.
array of hex тоже не робит

[alexteam]

tstringlist

[supernewbie]

var
panelki:array [1..20] of tstringlist;

procedure scanpanelki;
begin
for i:=1 to 20 do
if ConnectName=NamesArray[i] then
begin
pck:=panelki[i];
end;
end;

ругается(

Добавлено через 45 секунд
PSS на строку pck:=panelki[i];

[alexteam]

ты реально издеваешься...
http://www.z-oleg.com/secur/avz_doc/...?script_tf.htm

var
panelki: tstringlist;

procedure init;
begin
panelki := tstringlist.create;
panelki.add('пакет к которому можно получить доступ по panelki.strings[0]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[1]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[2]');
.....

end;


и вообще.
panelki:array [1..20] of string;
не работает чтоле ?

[supernewbie]

Сообщение от alexteam

ты реально издеваешься...
http://www.z-oleg.com/secur/avz_doc/...?script_tf.htm

var
panelki: tstringlist;

procedure init;
begin
panelki := tstringlist.create;
panelki.add('пакет к которому можно получить доступ по panelki.strings[0]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[1]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[2]');
.....

end;


и вообще.
panelki:array [1..20] of string;
не работает чтоле ?

2ое не работает...

Добавлено через 3 минуты
делаю первое так вообще скрипт не работает)

Добавлено через 30 секунд
попроще то никак нельзя?

Добавлено через 1 минуту
нужно преобразование HexToStr

[alexteam]

делаю первое так вообще скрипт не работает)

я очень редко даю код который можно просто втупую копипастить.

нивыдержал. запустил пх.
фастскрипт прекрасно понимает массивы вида.

var
Test : array[0..10] of string;

[supernewbie]

Сообщение от alexteam

я очень редко даю код который можно просто втупую копипастить.

нивыдержал. запустил пх.
фастскрипт прекрасно понимает массивы вида.

да уж, вот попробуй туда запихнуть pck и потом его из масива достать и отправить...

[alexteam]

ну, вот тебе. к примеру.

var
  Test : array[0..10] of string;
  
procedure Init; 
begin
end;

procedure Free; 
begin
end;


begin
  Test[1] := pck; //"вот попробуй туда запихнуть pck" ©
  pck := ''; //
  buf := test[1]; //"и потом его из масива достать" ©
  if fromclient then sendtoclient else sendtoserver; //"и отправить..." ©
end.

[supernewbie]

пакет битый приходит...

[alexteam]

скрипт выше прекрасно отрабатывает.