Forum: Win32/Win64 API (native code)
by DeddyH,
26. Aug 2011
Danke für die Bestätigung, ich dachte schon, ich hätte etwas überlesen :)
Forum: Win32/Win64 API (native code)
by DeddyH,
26. Aug 2011
Was passiert eigentlich, wenn man mal versehentlich einen Buchstaben eingibt?
Forum: Win32/Win64 API (native code)
by DeddyH,
24. Aug 2011
Ich war jetzt wieder bei meinem anderen Ansatz, ganz weg von Strings. Aber da muss man dann auch nicht mehr auf den Dezimalseparator achten.
type
TFormTest = class(TForm)
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private-Deklarationen }
FCentbetrag: integer;
...
Forum: Win32/Win64 API (native code)
by DeddyH,
24. Aug 2011
Mit Format() würde das aber immer passen :D
Forum: Win32/Win64 API (native code)
by DeddyH,
24. Aug 2011
Wenn immer Cent-Beträge eingegeben und als Euro-Beträge ausgegeben werden sollen, dann könnte man das doch auch im OnKeyPress regeln: eine interne Integer-Variable, die bei Eingabe zwischen '0' und '9' mit 10 multipliziert wird und dann die umgewandelte Eingabe dazuaddiert. Das Ganze dann nur noch formatiert ausgeben und gut. Bei Backspace wird dann eben wieder durch 10 dividiert.
Das setzt...
Forum: Win32/Win64 API (native code)
by DeddyH,
24. Aug 2011
Würde es im OnExit-Event nicht genügen? Das ist dann nicht so umständlich. Allerdings muss man dann bei der Eingabe daran denken, dass da ggf. noch durch 100 geteilt wird.