Что означает эта ошибка?

← →
Tornado (2003-04-03 09:40) [0]

Пытаюсь использовать функцию шифрования строк (автор - Анатолий Подгорецкий):

function Encrypt(const InString:string; StartKey, MultKey, AddKey:Integer): string;
var i: Byte;
begin
Result := "";
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;

Добавил ее в отдельный модуль, но возникает ошибка:

[Error] Func.pas(17): Illegal character in input file: " " ($A0)

← →
Palladin (2003-04-03 10:31) [1]

гдето в тексте у тебя маленькая русская буква а

← →
Anatoly Podgoretsky (2003-04-03 10:42) [2]

Две проблемы

1. Ты видимо копировал текст с веб страницы, там у тебя есть невидимый символ $A0

2. У тебя старая версия функции, var I: Byte; заменить на var I: Integer;

Или сходи на мою страницу и скачай оттуда правильный модуль.

← →
Palladin (2003-04-03 10:48) [3]

> 2. У тебя старая версия функции, var I: Byte; заменить на
> var I: Integer;

возникла бы ошибка другого рода...

← →
Anatoly Podgoretsky (2003-04-03 10:51) [4]

Palladin © (03.04.03 10:48)
Не возникнет, просто будет неверно работать, сея ошибка осталась с времен Д1 и только недавно была замечена.

Компилято сделает автоматическое приведение Length(InString) к байту.

← →
Внук (2003-04-03 11:08) [5]

[Error] Func.pas(17) - :))))
Вот она какая, ошибка в 17-ой строке :)))

← →
Игорь Шевченко (2003-04-03 11:11) [6]

Что означает эта ошибка? Найти похожие ветки