[Breadfan]

вот вдогонку вчерашней(сегодняшней) дискуссии:
выкидывание пробелов из переменной и преобразование ее из string в integer (если там не число то вернется -1):
Оффтоп

var
tst:string;
procedure Init; //Вызывается при включении скрипта
begin
    tst:='12 3 a45 '; //переменная для теста
    SendMsg('Стартовое значение переменной: '+tst);
    SendMsg('Без пробелов: '+Noprobel(tst)); //выкидываем из tst все пробелы
    //и вывод значения tst, 
    //если же в tst находится не число - возвращаемый результат=-1
    SendMsg('Это число (если не число то -1).....'+Inttostr(number(Noprobel(tst))));
end;

function NoProbel(a:string):string;
var
b:string;
i:integer;
begin
        b:='';
            for i:=1 to (length(a)) do begin
                if (Copy(a,i,1)<>' ') then b:=b+Copy(a,i,1);
            end;
        result:=b;
end;

function Number(a:string):integer;
begin
    try result:=strtoint(a);
        except result:=-1
    end;
end;

procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.

PS: странное расположение вызова процедур\задания переменных - изза работы без клиента - пришлось вызовы в блок инит пихнуть.