ok... ich habs...fast. ist vielleicht nicht so cool wie mit "teile durch 100" aber es ist ok.
Delphi-Quellcode:
procedure TfmHauptfenster.ed_maskeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i:Integer;
Text_alt, s:String;
begin
s:=',';
Text_alt:=ed_Maske.Text;
if Length(Text_alt)=2 then
begin
i:=Length(Text_alt)-1;
Insert (s, Text_alt, i);
//showmessage(Text_alt);
end;
ed_Maske.Text:=Text_alt;
end;
gut dass es die funktion insert gibt... hab sie nicht sofort entdeckt und versucht das mit arrays fertigzufummeln... ist echt ne komische angelegenheit.
wenn ihr die prozedur da oben testen werdet(oder eigentlich sollte schon ein einfaches durchlesen reichen..), werdet ihr feststellen, dass sie immernoch ziemlich schief und krumm ist... und zwar: nach dem modifizieren springt der zeiger vor das komma... und überhaupt.. die eingabe der zahlen ist auch ganz verkehrt......
so. gehe jetzt pennen.. vielleicht meldet sich ja noch wer bis morgen nachmittag
