|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
Delphi 12 Athens
|
AW: USB Stick erkennen
9. Feb 2012, 17:29
Das sehe ich aber anders.
Zitat:
Delphi-Quellcode:
for i := 0 to 25 do
begin
if (Maske and 1) = 1 then Result := Char(i + Ord('A')) + ': ';
Maske := Maske shr 1;
end;
Die Maske wird 26 mal auf gesetztes Bit geprüft und nach rechts geshiftet.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|