Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.02 c
1-80466           Alex Sm               2002-03-12 05:44  2002.03.25  
Service


1-80543           heruvim4ik            2002-03-09 14:05  2002.03.25  
Иконка к приложению


3-80435           Antony                2002-02-27 12:14  2002.03.25  
TQuery.Prepare, сильные утечки памяти


14-80661          Lena                  2002-02-11 02:24  2002.03.25  
Что значит ИМХО???


1-80579           Chernishov            2002-03-10 11:26  2002.03.25  
Word