Mit Nullen auffüllen

[sakura]

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 ?