kan3k1k3n,
и ваша функция кривая. К ошибке не приводит, но она кривая. Должно быть примерно так
function IsPrime(n: integer): boolean;
var
i: Integer;
begin
for i := 2 to (n div 2) do
if (n mod i = 0) then
Exit(False);
Result := True; {число - prime}
end;
Только забыли отметить, что удаление при этом возможно. Если мы удаляем владельца, удалятся также и все животные этого владельца (если так настроить) (каскадное удаление)
Руслан Пикулин, ну это спорное утверждение. Работают программы на новых версиях наоборот на порядок лучше и эффективнее. А эта сборка является не официальной и лишь содержит какие-то особые пакеты и возможно исправления багов, которые и так поправили в новых версиях. Так что, если вам не требуются какие-то старые, специальные пакеты, которые не поддерживаются в новых версиях, рекомендую использовать именно свежую версию.
Cheizer, но файлы все будут на месте. Но да, лучше с нуля. Перенести файлы на другой раздел или вообще на другой накопитель и форматнуть раздел или весь накопитель целиком
Cheizer, установить можно поверх, если не форматировать жёсткий диск. Но установленные программы и игры ты потеряешь. Они так же будут на диске, но работать они будут не все.
whoiam_frontend, Поиск по сигнатуре - это самый примитивный и старейший способ нахождения вирусов.
Вся суть конкретного антивируса в его уникальности. В устройстве анализа файла, в комбинировании способов обнаружения, в степени интеграции в ОС, в способах защиты от обхода антивируса и т.д.. Никто вам не даст свои наработки такой сложности.
Обычный сканер файлов нельзя назвать антивирусом. Антивирус это огромный комплекс решений и средств.
