|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Probleme mit Case anweisung
3. Nov 2006, 13:22
Delphi-Quellcode:
function TestBit(const c: Cardinal; const bit: Byte): Boolean;
begin
Result := c shr bit and 1;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|