Forum: Programmieren allgemein
Delphi
by implementation,
4. Nov 2010
Steinige mich, ich hatte einen Moment geistiger Umnachtung :wall:
Forum: Programmieren allgemein
Delphi
by implementation,
4. Nov 2010
War auch keine Kritik an dich, ich wollte nur vermeiden, dass der TE das nachher noch vergisst und habe es daher vorsichtshalber nochmal gepostet :cyclops:
Forum: Programmieren allgemein
Delphi
by implementation,
4. Nov 2010
Man bedenke, dass nachfolgende Mod nicht zu vergessen, sonst kommt bei 64, 32, 16, 8, 4, 2 und 1 nur Crap raus.:warn:
Forum: Programmieren allgemein
Delphi
by implementation,
4. Nov 2010
Hmm, okay. Dann benutzen wir statt des Abziehens einfach Mod und statt des Testens auf GrößerGleich eben Div :stupid:
WENN i div 128 = 1 DANN
SETZE BOX
i = i mod 128
:gruebel:
Forum: Programmieren allgemein
Delphi
by implementation,
4. Nov 2010
Mod und Div brauchste doch gar nisch?
Hier mal ein kleiner Pseudocode, wie das Umwandeln für den Anfang aussehen könnte:
LIES Editfeld AUS => VARIABLE "s"
WANDLE "s" MITTELS "IntToStr" IN "Integer" UM => VARIABLE "i"
WENN "i" >= 128 DANN
SETZE höchstes bit (msb)
ZIEHE 128 VON "i" AB