Das ist vom Prinzip das Selbe, nur langsamer
Es wird immer eine "0" oder eine "1" abhängig vom Ergebnis an das result angehängt.
Delphi-Quellcode:
Platzhalter für result %s - string
| Platzhalter für Byte... Ausdruck %d - integer
| | Array der Werte, mit denen die Platzhalter gefüllt werden sollen
| | |
Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);
Alternativ:
result := result+inttostr(integer((Ord(_Chr) And (1 Shl i)) <> 0))