Вопросы шифрования

[C_O_D_E]

Он ВООБЩЕ НЕ КОМПИЛИРУЕТСЯ ПО ВИНДОЙ!!!!!

Код: Выделить всё

   Begin
    Read(FileInBMP,A);
    Write(FileOutBMP,ChangeByte(A,B[I]));
   End;

компилятор глючит: Error 122 Invalid variable referense

{Эта конструкция следует синтаксису переменной
ссылки, но не указывает на область памяти.

Вы, вероятно, вызываете указательную функцию,
но забываете разыменовывать результат.}

[Medved]

Вы, вероятно, вызываете указательную функцию

Посмотри на функцию changebyte! A:BOOLEAN, когда я пытаюсь байт ему втулить!

[Medved]

А так? Я заметил, что там слишком много повторяющихся переменных.

[C_O_D_E]

Error 122 Invalid variable referense

{Эта конструкция следует синтаксису переменной
ссылки, но не указывает на область памяти.

Вы, вероятно, вызываете указательную функцию,
но забываете разыменовывать результат.}

опять в том же месте ругается некрасиво!!

[Medved]

Я изменил файл, это было учтено?#95

[C_O_D_E]

ДА конечно! Я же не совсем дура!

[Medved]

Я же не совсем дура!

та кто ж тебя знает? а я пока допираю потихоньку...

[C_O_D_E]

Хм... Была бы я дурой, я бы тебе вопросы не задавала, а просто сказала
"Оно не запускается! Там сообщения красненькие вылазят! И написано не по-русски"

[C_O_D_E]

Кста, чтобы откомпилировать, я культурненько закомментировала всё что не нравилось компилятору (это в основном процедуры вывода в BMP'шку и при декодировании в TXT) и запустила, зацикливания не призошло, т.к. после 40 секунд раздумья прога вернула меня в окно кодера и выдала на втором считывании(первое она прошла): disc read error

[MOTOCoder]

Я честно говоря в суть алгоритма кодирования не вникал, но так

Код: Выделить всё

write(FileOutBMP,ChangeByte(...)

писать нельзя, вот вам и "Invalid variable reference"
Процедура write в качестве второго параметра требует именно переменную, а не число или результат функции.
Т.Е. можно делать только так:
[syntax='Delphi']
var
BB:byte;
....

BB:=ChangeByte(....);
write(FileOutBmp,BB);
[/syntax]

То же самое и с чтением.

Кстати, раз уж прога пишется на Delphi, советую не использовать допотопные методы типа "File of byte" и т.д., а пользоваться классом TFileStream.