Форум: "Основная";
Поиск по всему сайту: 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.019 c
1-80572           Andrey Peryazev       2002-03-10 09:28  2002.03.25  
как перевести текст с английской раскладки на русскую или наоборот?


3-80416           UncleRu               2002-02-19 20:08  2002.03.25  
Транзакция. Как это сделать?


7-80694           andey                 2001-12-20 19:28  2002.03.25  
подскажите кто знает


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


1-80468           Volk                  2002-03-12 11:02  2002.03.25  
VCL где он?