Zitat:
if RightStr(g,1)=2 or RightStr(g,1)=4 or RightStr(g,1)=5 or RightStr(g,1)=6 or RightStr(g,1)=8 or RightStr(g,1)=0 then
da gehören noch ein paar Klammern rein
if (RightStr(g,1)=2) or (RightStr(g,1)=4) or (RightStr(g,1)=5) or (RightStr(g,1)=6) or (RightStr(g,1)=8) or (RightStr(g,1)=0) then
bzw: (hab hier keine Bereichsprüfung für den Zeichenindex eingebaut, da ich weiß daß hier mindestens ein Zeichen vorhanden ist ... also in dieser Button1Click-Prozedur ... sonst bitte aufpassen)
if g[Length(g)] in ['2', '4', '5', '6', '8', '0'] then