Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#7
  Alt 19. Jun 2006, 01:54
Zitat von Piwi:
So funktioniert das Programm jetzt, allerdings gehts noch net richtig, weil er mault, ich würde Division durch Null machen! Dabei hab ich doch extra den Div-Befehl bzw den Mod-Befehl benutzt!
div hat nix mit "Schutz vor Division durch 0" zu tun, sondern ist lediglich eine Integer-division, und 0 gehört auch zu den Integern dazu...

weiterhin wandelst du den String, der immer eine Zahl sein muss (keine Buchstaben) in einen Integer. um buchstaben zu wandeln musst du für jedes zeichen die ord-funktion aufrufen, die gibt duir den ascii/ansi-wert.

brauchst ja eigentlich nur die StrToBin-Funktion von Snoop007 und die für jedes zeichen deines strings machen (z.B. per for-schleife). Schau dir die funktion einfach mal an, so kompliiziert ist es nicht...die anderen Funktionen brauchst du nicht, soweit ich das sehe...die demo zeigt halt alle funktionen, daher bisschen viel...

HTH Frank
  Mit Zitat antworten Zitat