Hallo Rainer,
Zu einem Edit ist mir so recht nichts einefallen, da die Cursorpositionierung
einem immer wieder einen Strich durch die Rechnung macht - besonders im Bereich unter Null.
Aber vielleicht hilft Dir das hier weiter:
Cls
PROC Zahleausgabe
Declare Ausgabe$
Text$ = Chr$(%key) + Text$
IF Or(LT(Len(Text$),3),Lt(Val(Text$),1))
Ausgabe$ = Format$("###,###,###0.00",Val(Text$) / 100)
ELSEIF And(GT(Len(Text$),2),Gt(Val(Text$),1))
Ausgabe$ = If(%key = 48,("0" + Format$("###,###,###0.00",Val(Text$) / 100))\
,Format$("###,###,###0.00",Val(Text$) / 100))
ELSEIF Equ(%key,2)
LET ende% = 1
EndIf
Locate 1,1
PRINT Ausgabe$
EndProc
Declare ende%,Text$
WHILENOT ende%
WaitInput
IF And(Gt(%key,47),Lt(%key,58))
Zahleausgabe
EndIf
Wend
Außerdem gibt es noch die Möglichkeit mit
Sendmessage(Edit&,$00B1,sub(Position%,1),Position%)
einzelne Buchstaben zu markieren und so zu überschreiben.
Gruß
Jörg
|