[KOOL]

Есть ли в дельфи двоичный формат переменных? Мне нужно произвести операцию типа <строка> xor <строка-ключ> но она прокатывает только для целых чисел Можно ли как-то представить текст как целое число?(StrToInt не предлагать )

[zip000]

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

Мне нужно произвести операцию типа <строка> xor <строка-ключ>

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function DoXOR(StrIn, Key : String) : String; var   i, l_In, l_Key : Integer; begin   Result := '';   l_In  := Length(StrIn);   l_Key := Length(Key);   if (l_In > 0) and (l_Key > 0) then     for i := 0 to l_In - 1 do begin       Result := Result + Chr(Ord(StrIn[i + 1]) xor Ord(Key[1 + (i mod l_Key)]));     end; end;