ynike
for i:=1 to 100000 do
begin
str:='123.234.'+IntToStr(i);
hash:=CalcHash(pointer(str),length(str));

ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select id from table1 where (hash=:hash)');
ZQuery1.Params.ParamByName('hash').Value:=hash;
ZQuery1.Open;
count:=ZQuery1.RecordCount;
ZQuery1.Close;

if (count=0) then
begin
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('insert into table1 (text,hash) values (:text,:hash);');
ZQuery1.Params.ParamByName('text').Value:=str;
ZQuery1.Params.ParamByName('hash').Value:=hash;
ZQuery1.ExecSQL;
end;


Пара ремарок буквально:
1) Выполнение на клиенте кода
в большинстве случаев приведет к fetch на клиента всех записей, удовлетворяющих запросу. Если, конечно, ZQuery - это не какой-то суперинтеллектуальный объект, умеющих самостоятельно исправлять SQL-запросы по необходимости.
2) Насколько я понимаю, то, что hash1 == hash2, еще не гарантирует, что text1 == text2, а всего лишь указывает на возможность этого (то есть одинаковые хэши могут быть и у разных текстов). Соответственно и проверка на count==0 не имеет смысла - нужно проверять все записи, у которых хэш совпадает. Соответственно на клиента уйдут и все поля text с соответствующими хэшами.

Вывод (ИМХО): правильнее это все было бы сделать на сервере, через хранимую процедуру. Тогда и SQL не надо будет переписывать на каждый чих (BTW RTFM на тему Query.Prepare), да и, возможно, до кучи можно будет несколько соптимизировать алгоритм и сделать его более понятным для сервера. А то получается его бедного пинают, а логика работы-то вся на клиенте, он про нее ни сном, ни духом... :)

PS Кстати, а "очень тормозно" - это сколько по времени в данном случае? Секунды? Минуты? Часы? ;)