Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit4.pas

Diff of /Unit4.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC revision 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC
# Line 122  begin Line 122  begin
122      SQL.Clear;      SQL.Clear;
123      SQL.Add('select * from cart_data');      SQL.Add('select * from cart_data');
124      Open;      Open;
125      Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
126      Delete;        Delete;
127    end;    end;
128    IWAppFormCreate(ASender);    IWAppFormCreate(ASender);
129  end;  end;
130    
131  end.  end.
132    
Legend:
Removed from v.7  
changed lines
  Added in v.8
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help