Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Хитрая задачка с перебором массивов 


cdaDmitriy   (2002-03-10 11:31) [2]

for i:=1 to i3 do Begin
kill:=0;
for i2:=1 to i3 do
if (k[i]=l[i2]) then begin kill:=2; break; end;
IF (kill=0) then begin kill:=3; break; end;
End

if (kill<>3) then ShowMessage("YES!")




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.73 MB
Время: 0.017 c
1-80618           hooky-mars            2002-03-08 19:36  2002.03.25  
DBNavigator


1-80493           A.H.                  2002-03-12 19:26  2002.03.25  
TImage - почему у меня ничего не получается :-(( ??


1-80462           Leonon                2002-03-12 09:32  2002.03.25  
Диалог + TComboEdit и автоматический ModalResult


14-80687          Ничей                 2002-02-12 16:08  2002.03.25  
О среднем поле


4-80725           Xia                   2002-01-25 04:12  2002.03.25  
delphi - asm