usb flash (delphi ХЕ2) - Общие вопросы Delphi

kta87 · 17.03.2012, 08:38

Выложите, если кто работал, исходник для определения серийного номера usb флешки... Не могу в инете найти ни чего рабочего.

raxp · 17.03.2012, 10:37

kta87 · 17.03.2012, 10:45

raxp, спасибо, пока ждал ответа на форуме, сам набрал функцию

.
Теперь вопрос такого ламерского рода: как завершить перебор цикла, если внутреннее условие проверки положительное?

phomm · 17.03.2012, 11:25

Код:

if условие then 
  Break;

?
Но это малость нарушает инвариантность (тут break работает как неочевидное goto), лучше условие такое положить в пред или пост-условие цикла:

Код:

while что-то and условие do
...
или 
repeat 
...
until что-то and not условие;

DiemonStar · 17.03.2012, 12:00

или вариант вроде

Код:

for i := начало to конец do
  if условие then
    exit for;

kta87 · 17.03.2012, 13:47

DemonStar, можешь прокомментировать, в чем отличие от Break'а?

17.03.2012, 08:38	#1
kta87 Форумчанин Регистрация: 22.02.2010 Сообщений: 912	usb flash (delphi ХЕ2) Выложите, если кто работал, исходник для определения серийного номера usb флешки... Не могу в инете найти ни чего рабочего. Документация по FreePascal \| Lazarus официально \| Обновления Indy

17.03.2012, 10:37	#2
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	http://programmersforum.ru/showthread.php?t=191719 и еще с десяток. Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

17.03.2012, 10:45	#3
kta87 Форумчанин Регистрация: 22.02.2010 Сообщений: 912	raxp, спасибо, пока ждал ответа на форуме, сам набрал функцию . Теперь вопрос такого ламерского рода: как завершить перебор цикла, если внутреннее условие проверки положительное? Документация по FreePascal \| Lazarus официально \| Обновления Indy

17.03.2012, 11:25	#4
phomm personality Старожил Регистрация: 28.04.2009 Сообщений: 2,883	Код: `if условие then Break;` ? Но это малость нарушает инвариантность (тут break работает как неочевидное goto), лучше условие такое положить в пред или пост-условие цикла: Код: `while что-то and условие do ... или repeat ... until что-то and not условие;` My projects (Mirror) github telegram Последний раз редактировалось phomm; 17.03.2012 в 11:28.

17.03.2012, 12:00	#5
DiemonStar Старожил Регистрация: 08.02.2012 Сообщений: 2,173	или вариант вроде Код: `for i := начало to конец do if условие then exit for;` Правильно поставленная задача - три четверти решения.

17.03.2012, 13:47	#6
kta87 Форумчанин Регистрация: 22.02.2010 Сообщений: 912	DemonStar, можешь прокомментировать, в чем отличие от Break'а? Документация по FreePascal \| Lazarus официально \| Обновления Indy Последний раз редактировалось kta87; 17.03.2012 в 13:50.