schau mal hier:
Delphi-Quellcode:
while sWert / 2 <> 0 do
begin
sAusgabe := IntToStr(sWert mod 2) + sAusgabe;
sWert := sWert div 2;
end;
sWert =
Ascii-Wert eines Buchstaben
sAusgabe = Text der ins Edit-Feld kommen soll ^^
Damit kannst du eine Zahl in Binär umwandeln
(Wenn Fehler da sind, einfach bescheid geben oder korregieren ^^)
Achja, die Schleife prüft nicht ob pro Zeichen 8 Stellen geschrieben werden... Musst du gegebenenfalls nochmal überprüfen