Delphi-Quellcode:
function TRechnen.Dualzahl(I: Integer): string;
begin
Result := '';
while I > 0 do begin
Result := Result + Char(Ord(I mod 2)+48); // Chr(48) = '0'
I := I div 2;
end;
end;
procedure TRechner.DezZuDualBtnClick(Sender: TObject);
begin
DatenAkktualisierenDual;
//---Ergebniszuweisung an Panel | Trunc da Ergebnis vom Typ Real ist
ErgebnisPnl.Caption := Dualzahl( Trunc(Ergebnis) );
//-----------------------------
FensterAkktualisieren;
end;
wenn du die prozedur Dualzahl wie oben angegeben mit Parametern arbeiten lässt, sollte es funktionieren, ob du das mit Char(...) oder mit ner if-anweisung machst ist geschmackssache.
hoffe ich konnte dir weiterhelfen.