Einzelnen Beitrag anzeigen

stho

Registriert seit: 16. Sep 2009
Ort: 127.0.0.1
288 Beiträge
 
Delphi 2007 Professional
 
#10

Re: Text in Dualzahlen umwandeln

  Alt 24. Mär 2010, 08:57
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
  Mit Zitat antworten Zitat