Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Внук © (03.04.03 11:08)

Класс! :-)))

Автору: обычно помогает на строке с ошибкой нажать F1

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c