Forum: Programmieren allgemein
by bytecook,
23. Feb 2016
Kann durchwegs sein, mal sehen wie sich das auf die Laufzeit / generierten Code auswirkt. Habe dieses Uralt-Beispiel heute mal meinem jungen Mitarbeiter (IT Azubi und zudem Sohn) gezeigt,
als Antwort auf die Frage, wozu Case eigentlich gut sei ....
Forum: Programmieren allgemein
by bytecook,
23. Feb 2016
Hi Leute, danke für die Rückmeldungen :)
sollte nicht die Case hier den höchsten Speed liefern? Mir ist klar, dass ich shiften kann, und das es semantisch "elegantere" Konstrukte gibt.... :-D
Forum: Programmieren allgemein
by bytecook,
23. Feb 2016
Hi Leute,
anbei eine kleine "Lookup" Tabelle, die die Bitreihenfolge innerhalb eines Bytes mittels Case-Anweisung swapt. Gegebenenfalls spart sich so jemand Tipparbeit :)
function SwapByte (Const Value : Byte) : Byte;
begin
case Value of
$00 : Result := $00;