Вопросы и ответы
Топ за год Облако тегов  

Delphi алгоритм поиска дубликата

компьютеры программирование Delphi делфи алгоритм

beta имя, 398 просмотров
0
function TForm1.Dublikat(md5:string[32]): Boolean;
var
i:byte; f:boolean;
begin
f:=false;
for I := 0 to 52 do
begin
if K[i].ID =md5 then
f:=true;
end;
Result:=f;
end;

Создал функцию для поиска дубликата. Если будет дубликат - то не буду его добавлять в массив.
Вопрос: как сделать:
Если условие IF сработало (это дубликат) то остановить цикл FOR и чтобы функция сразу вернула значение TRUE

Примечание:
что-нибудь типа
if K[i].ID =md5 then
f:=true;
Break; //чтобы выкинуло из цикла FOR и сразу перешли к Result:=f;
Ответы:
Лешик Иванов
function TForm1.Dublikat(md5:string[32]): Boolean;
var i:byte;
begin
Result:=false;
for I := 0 to 52 do begin
 if K[i].ID =md5 then begin
  Result:=true;
  break;
 end;
end;
end;


15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.