Taschenrechner in der Schule

[Nothine]

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.