передача массива, как параметр ф-ции, ... Опции

[nedouser]

Код

........
Buf: array[1..32] of char;    {buffer 32 bit}
.......
BlockRead(OpenFile,Buf,sizeof(Buf),NumRead); считывание блока нетип.файла
GammaCrypt(Passwd,Buf); моя функция,т.е. криптование xor`ом
.........

процедура:

type Bufer=array of char;
procedure GammaCrypt(Key: string; var arr:Bufer);
....
    m := Length(Key); 
    n := Length(Bufer); буфер(массив) пустой!

в общем немогу сообразить как передать массив в функцию...что нетак то??!
зы: сорри за корявый код, программер из меня неважный

Сообщение отредактировано: nedouser - 28.12.2006 22:36