13. März 2013 13:59
CodeFeldneu := CodeFeld2 + '10000';
13. März 2013 14:03
13. März 2013 14:15
13. März 2013 14:46
winfy hat geschrieben:Das Codefeld darf dann allerdings keine Buchstaben und Sonderzeichen enthalten oder mit einer führenden Null beginnen.
IsNumeric := STRLEN(DELCHR(CodeFeld,'=',0123456789)) = 0;
13. März 2013 14:53
FOR i:=1 TO 10000 DO code:=INCSTR(code);
13. März 2013 16:57
EVALUATE(ZAHL,CodeFeld);
CodeFeld := FORMAT(ZAHL + 10000);