Diff of /Unit4.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit4.pas




Diff of /Unit4.pas



 Parent Directory

|  Revision Log



|  Patch














revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC




revision 8 by yamat0jp,
Thu Dec 31 08:51:02 2015 UTC






#

Line 93 
 begin


Line 93 
 begin












93
       png.Free;
       png.Free;

















94
     end;
     end;

















95
   end;
   end;















96


   IWLabel1.Text := IntToStr(Trunc(k * 1.08));


   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',













97


 


     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);















98
 end;
 end;

















99
 
 

















100
 procedure TCartForm.IWButton1Click(Sender: TObject);
 procedure TCartForm.IWButton1Click(Sender: TObject);











#

Line 121 
 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.6
 


changed lines


 
Added in v.8













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit4.pas
-revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC
+revision 8 by yamat0jp,
Thu Dec 31 08:51:02 2015 UTC
 Line 93 
 begin
        png.Free;
      end;
    end;
-   IWLabel1.Text := IntToStr(Trunc(k * 1.08));
+   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',
+     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);
  end;
  procedure TCartForm.IWButton1Click(Sender: TObject);
-Line 121 
 begin
+Line 122 
 begin
      SQL.Clear;
      SQL.Add('select * from cart_data');
      Open;
-     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);
+     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
-     Delete;
+       Delete;
    end;
    IWAppFormCreate(ASender);
  end;
  end.
 Legend:



Removed from v.6
 


changed lines


 
Added in v.8
 Legend:



Removed from v.6
 


changed lines


 
Added in v.8
-Removed from v.6
+Added in v.8
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository