--- Merging r20939 into '.':

U    packages/fcl-db/src/sqldb/sqldb.pp

# revisions: 20939
r20939 | joost | 2012-04-20 15:38:58 +0200 (Fri, 20 Apr 2012) | 1 line
Changed paths:
   M /trunk/packages/fcl-db/src/sqldb/sqldb.pp

 * Also recognize parameters wich starts with lowercase old

git-svn-id: branches/fixes_2_6@21606 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1687,7 +1687,7 @@ begin
   assert(qry.sql.Text<>'');
   with qry do
     begin
-    for x := 0 to Params.Count-1 do with params[x] do if leftstr(name,4)='OLD_' then
+    for x := 0 to Params.Count-1 do with params[x] do if sametext(leftstr(name,4),'OLD_') then
       begin
       Fld := self.FieldByName(copy(name,5,length(name)-4));
       AssignFieldValue(Fld,Fld.OldValue);