String To Byte ...

[Union]

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))