Dualzahlen mit 0lern auffüllen

[Metallicwar]

Hi Leute
bin gerade dabei, einen kleinen Rechner zu proggn der mir Dualzahlen addiert!
Habe 3 Editfelder, in 2 trage ich meine 0ler und 1er ein und im dritten lass ich durch Klick auf einen Button, das Ergebnis anzeigen!
Zuerst frage ich die Länge der beiden Strings ab und frage ab ob beide gleich lang sind.
Falls eine Zahl kürzer wie die andere ist, sollen vorne an den String 0ler angehängt werden, bis die Strings wieder gleich lange sind, doch wie funktioniert das, mit den 0ler anhängen?!?!??

hoffe meine Frage ist verständlich!
freue mich über schnelle Antworten

mfg David

[Metallicwar]

Lösung:

function TForm1.AddZeros(sKette: String; iLength: Integer): String;
var
iCount: Integer;
begin
iCount := Length(sKette);
while iCount < iLength do
begin
sKette := '0' + sKette;
Inc(iCount);
end;

Result := sKette;
end;

[fanderlf]

Ist das beabsichtigt dass Du das alles manuell machst? Könnte mir vorstellen dass es auch konvertierungsfunktionen von binär nach dezimal (int) und andersrum gibt.
Zum Auffüllen einfach einen print Befehl mit entsprechendem Format dazu.