[Nickers]

С такой системой есть одно неудобство... Если берем массив типа ТстрингЛист то получим куй прийдется записывать в имя N Например так:

SetValue(Name+'_'+inttostr(i),inttostr(NameX));

И обращатся так же прийдется:

NameX:=strtoint(GetValue(name+'_'+inttostr(f)));

Добавлено через 27 минут
Нет я был не прав)) Начал писать отдельный скрипт для проверки функции и понял что там легко к переменным из массива обращения делать...

Оффтоп

Const
   max=90;
   Name='lol';

Var
   C:array[1..max] of TStringList;
   start:boolean;
   i:integerr;
procedure init;
begin
i:=1;
end;
//.......................
procedure SendMsc(msc:string);  //Шаблон отправки системных сообщений
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
//.......................
procedure SetValue(i:integerr; ValName: string; Value: string);
    begin
         C[i].Values[ValName]:=Value;
    end;
function GetValue(i:integerr; ValName: string): string;
    begin
      result:=C[i].Values[ValName];
    end;
procedure Free;
var i,j:integer;
begin
for i:=1 to max do
   C[i].free;
end;
//.......................
begin
if FromClient and start then
   begin
      C[i]:=TStringList.Create;
      SetValue(i, Name, pck[1]);
      if i=max then start:=false;
      SendMsc(GetValue(i, Name));
      inc(i);
   end;
end.

Сейчас буду тестить этот скрипт, если норм все буит (Ну или когда все исправлю, что не норм) буду менять свой скрипт...

Breadfan, Спасибо.

Добавлено через 12 минут
Тееекс гдет ошибка в приеме или уже отправке пакета мб проблема с гет и сет валуе... pck[1] Это ведь стринг верно? Тогда в чем оО

Добавлено через 12 минут
Пле про криейт забыл Т_Т

Добавлено через 9 минут
Все робит но пишет не в 16ти ричной, а буквы и иероглифы))