Changeset 544 for cprs/branches/GUI-config/MainU.pas

Timestamp:

Aug 13, 2009, 6:27:28 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Disallows bad characters ;:

File:

• cprs/branches/GUI-config/MainU.pas (modified) (1 diff)

cprs/branches/GUI-config/MainU.pas

@@ -1476 +1476 @@
     for row := 1 to Grid.RowCount-1 do begin
       Entry := GetLineInfo(Grid,CurrentUserData, row);
-      //Reject any value containing a "^"
+      //Reject any value containing a "^" , ":" , ";"
       //Do we need an @ here as well?
-      if (AnsiPos('^',Entry.newvalue) > 0){ or (AnsiPos('@',Entry.newvalue) > 0)} then begin
+      if (AnsiPos('^',Entry.newvalue) > 0) or (AnsiPos(':',Entry.newvalue) > 0) or
+         (AnsiPos(';',Entry.newvalue) > 0)then begin
          messagedlg('Invalid value entered for ' + Entry.Fieldname + #13 + #10
                      + #13 + #10 + 'Invalid Entry:   ' + Entry.newvalue + #13 + #10 +