Delphi Russian Knowledge Base 2.3 , Новая версия от 30 января 2005 года

[--= Eagle =--]

Арифметика указателей.

Цитата

Нижеследующий код демонстрирует работу функций Inc() и Dec(), увеличивающих или уменьшающих указатель на размер соответствующего типа ничего не демонстрирует, т.к. не работает, потому, что функции Ofs() в Делфи нет и быть не может (пока сам не создашь ):

var
P1, P2: ^LongInt;
L: LongInt;
begin
P1 := @L; { назначаем оба указателя на одно и то же место }
P2 := @L;
Inc(P2); { Увеличиваем один }

{ Здесь мы получаем разницу между смещениями двух
указателей. Поскольку первоначально они указывали на одно
и то же место памяти, то результатом данного вызова
будет разница между двумя указателями после вызова Inc(). }

L := Ofs(P2^) - Ofs(P1^); { L = 4; т.е. sizeof(longInt) }
end;

Я бы вместо этого сделал так:

function PtrToInt(P: Pointer): LongWord;
asm
  mov eax, P;
  mov result, eax;
end;
 
var
  P1, P2: ^LongInt;
  L: LongInt;
begin
  P1 := @L; { назначаем оба указателя на одно и то же место }
  P2 := @L;
  Inc(P2); { Увеличиваем один }
 
  { Здесь мы получаем разницу между смещениями двух
  указателей. Поскольку первоначально они указывали на одно
  и то же место памяти, то результатом данного вызова
  будет разница между двумя указателями после вызова Inc(). }
 
  L := PtrToInt(P2) - PtrToInt(P1); { L = 4; т.е. sizeof(longInt) }
end.

[jack128]

Цитата --= Eagle =-- @ 25.03.05, 17:26

function PtrToInt(P: Pointer): LongWord;
asm
mov eax, P;
mov result, eax;
end

А простое приведение типов уже не в моде?

[Domino]

M

Deleted by Vit. Все нарекания к форуму сайту и т.п. - в соответствующий раздел! Пока устное предупреждение

Сообщение отредактировано: Vit - 06.04.05, 12:19

[Мыкв]

Топик:
Системные функции и WinAPI->Реестр и INI файлы->Как получить событие о смене реестра

А в топике про то, как отловить изменения содержимого буфера обмена.

[--= Eagle =--]

ANSI ---> ASCII

В строке

if  kod  13 then Result[i]:=' ';

пропущен знак равенства (как я понял), правильно так:

if  kod=13 then Result[i]:=' ';

[--= Eagle =--]

"Как создавать потоки без класса TThread?" - топик дублируется

[Dying Angel]

Скачала сегодня... Почти ничего нет из того что мне нужно Наверно это не для таких ламеров как я

У меня такое маленькое пожелание для след версии: было б неплохо если б код выделялся чемнить по типу как на форуме. И Побольше про майнменю!!

[Krid]

Цитата Maysa @ 05.06.05, 14:10

Почти ничего нет из того что мне нужно Наверно это не для таких ламеров как я

Maysa, не факт, что никогда не понадобится (все мы когда-то ламерами были ).

[--= Eagle =--]

Цитата Maysa, 05.06.2005, 17:10:46, 739313

Почти ничего нет из того что мне нужно Наверно это не для таких ламеров как я

Может ты просто не можешь найти то, что тебе нужно? Я, к примеру, когда пишу какой-то проект (программирование пока ещё не моя специальность, поэтому пишу для себя) - почти всегда заглядываю посмотреть, как кто-то другой справился с какой-то конкретной задачей (аглоритмом).

[Dying Angel]

Ну может просто и не могу Просто ищу только тогда, когда не могу сама уже сделать и времени в обрез Хотя это дело я просмотрела все очень внимательно. Для меня там пока сильно уж все заумно. Ну для ламеров это

[Михаил К]

Спасибо за базу знаний, в частности был доработан под конкретные нужды и использован модифицированный алгоритм шифрования TEA.
(Математика, алгоритмы --> Контрольные суммы и шифрование ... --> Алгоритм шифрования TEA)
При этом обнаружилась в алгоритме досадная ошибочка, в редких случаях приводящая к неправильной расшифровке сообщения.
В процедуре EnCript:

  // Определяем позицию размещения ключа в блоке данных
  Randomize;
  if Len < 255 then
    I := Len
  else
    I := 255;
  repeat
    I := Random(I);
    if I < 4 then I := 4;
  //until I <= Len - 16;
  // При I := Len - 16 теряется последний байт ключа, при длинне сообщения < (255 - 21)
  // Поэтому, наверное лучше написать так (проверено, работает):
  until I < Len - 16;

А байтик теряется при выполнении вот этого кусочка кода (чуть ниже в той же функции):

  // Сдвигаем данные с 14 позиции на одну вправо для метки
  // (буфер начинается с нуля)
  for A := Len - 1 downto 14 do
    ResultBuf[A] := ResultBuf[A - 1];

С уважением. Михаил.

[Lord]

Против ничего не имею - классный FAQ (сочности нехватает)
но очень часто встречаются ошибки
(недавно наткнулся на интересный FAQ ?....? ) - и непойму кто у кого копировал (ошибки идеентичные)

[D[u]fa]

Lord, Какой такой сочности?
Ошибки? укажи пальцом - исправим

[Domino]

Цитата Dufa, 13.08.2005, 19:12:09, 826647

Ошибки? укажи пальцом - исправим

Пожалуйста - код проверки простого числа (asm) нерабочий.