Logisch
Delphi-Quellcode:
var
I, Miss: Integer;
Nullen: string;
begin
Miss := 8 - Length(aString);
for I := 1 to Miss do
Nullen := Format('%s0', [Nullen]);
aString := Format('%s%s', [Nullen, aString]);
end;
Wenns gefällt, darfst Du auch diese Lösung nutzen. Oder lieber in Assembler ?