String - странность или кривые руки

[elsin]

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

В memo1 у меня текст, 22 строчки из файла. Не меньше 1000 символов короче.

Функция:

function Affinna_Crypt(s:String;a:integer;b:integer):string;
const
  SizeA = 93; //Размер алфавита
  RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; //Алфавит
var i, P,t,m:integer;
    temp:String;
begin
m:=93;
temp:='';
//удаление символов сообщения, не входящих в алфавит
for i := 1 to length(s) do
if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA);       //ok

   t:=((P*a+b) mod m);
   s[i]:=RusA[t];

   end;
   Result:=s;
end;

А вот собственно кусок процедуры, использующий данную функцию:

var
s1:string;
...
s1:=Affinna_Crypt(Memo1.Text,11,19);
memo2.text:=s1;

Функцию тестировал пошагово много раз, result устраивает. Поэтому считаю что дело не в ней. Но тогда в чем?

СпасибО!

[capta1n]

RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопр стуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУ ФХЦЧШЩЪЫЬЭЮЯ'

почему бы вот это просто не заменить на:
begin
...
if not (s[i] in ['A'..'Z','a'..'z']) then temp:=temp+s[i];
...

проверка на входимость в множество латиницы - обратное действие вашему, и мне кажется намного проще - мне не пришлось писать такую строчку в константе

PS: - а вот понял, что вы хотите сделать - мое предложение отпадает

[capta1n]

да и ваша проблема заключается в том, что вы пишите в конце Result:=s, а такой переменной нет, да она и не нужна - надо результат возвращать как значение самой функции - это значит надо писать Affinna_Crypt:=s

В memo1 у меня текст, 22 строчки из файла. Не меньше 1000 символов короче.

Да и больше 255 символов строка не поддерживает, поэтому надо разбивать вашу БОЛЬШУЮ строку на несколько подстрок, чтобы функция могла работать с ней - и выводить поочередно

PS: elsin - а вы случайно не играете в игру Total Annihilation Kingdoms? Там просто герой есть Elsin

[elsin]

Дело в том, что у меня есть другая функция, система там примерно таже. Там все работает на "ура". Тут еще такая вещь происходит при работе: с одними ключами а и б все нормально, с другими криво, т.е. результат функции нормальный в любом случае, а вот присвоение s1:=affinna_crypt(memo1.text,a,b) уже присваивает только маленький кусок результата функции. Начал грешить на функцию, но требования простоты чисел соблюдены, все условия выполняются. P.S.: хорошая гейма была, да? Но мало кто о ней помнит. У всех ник ассоциировался с Ельциным :-)

[NOOB]

У тебя, при вычислениях в функции, в string попадает символ "#0", символ "#0" означает конец строки и все что после него в memo.text не записывается

[capta1n]

не могли бы вы цитаткой выделить - мне даже интересно о чем вы говорите

[NOOB]

Ну вот смотрите:
в memo записываем строку "5н9)июуИЮЪ/"

var
  s : string;
begin
 s:=Affinna_Crypt(Memo1.Text,11,19);
 Memo1.Text:=s; //поставь breakepoint и смотри что будет после присваивания
 Memo1.Text:=s;

поставивь брекпоинт мы видим:
s = 8?ВМГ^'#0'п,ыс
как мы видим, у нас в строке появился символ #0 (напомню что он означает конец строки);
далее смотрим что у нас записалось в Memo1.Text:
Memo1.Text = 8?ВМГ^

Теперь как у нас получается этот символ конца строки:
P:=pos('e',RusA);
P = 49
(49*11+19) mod 93 = 0

RusA[0] = #0

"Ключевое слово Mod дает остаток от деления делимого на делитель."
http://www.delphibasics.ru/

[crc83]

Переменная Result существует. Я сам ее видел

NOOB ноль тут нипричем, но идея хорошая. Он же берет символы из масива... Srting есть масив где первым елементом есть его длинна.
Пусть будет так

s[i]:=RusA[t+1];

[NOOB]

Сообщение от crc83

NOOB ноль тут нипричем

Еще как при чем и не "ноль", а символ конца строки. В функции же массив RusA [1..93], а получается обращаешься к 0-ой ячейке. Я же все подробно расписал.

Пусть будет так

s[i]:=RusA[t+1];

Тогда за рамки массива не вылезь, чтоб не получилось RusA[94].

[Alter]

Сообщение от capta1n

да и ваша проблема заключается в том, что вы пишите в конце Result:=s, а такой переменной нет, да она и не нужна - надо результат возвращать как значение самой функции - это значит надо писать Affinna_Crypt:=s

То, что красным, в delphi НЕ актуально. Она актуальна только для паскаля.
То, что зелённым, служит для возвращения значиения любым типам функций. Почитайте на досуге: http://www.delphibasics.ru/Result.php