Changeset 522 for trunk/LocalPlayer/Nego.pas
- Timestamp:
- Jan 7, 2024, 10:24:51 PM (10 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Nego.pas
r496 r522 746 746 if InputDlg.ModalResult <> mrOK then 747 747 Exit; 748 val(InputDlg.EditInput.Text, A, I);748 Val(InputDlg.EditInput.Text, A, I); 749 749 if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then 750 750 Exit; … … 776 776 if InputDlg.ModalResult <> mrOK then 777 777 Exit; 778 val(InputDlg.EditInput.Text, A, I);778 Val(InputDlg.EditInput.Text, A, I); 779 779 if (I <> 0) or (A <= 0) then 780 780 Exit; … … 858 858 if InputDlg.ModalResult <> mrOK then 859 859 Exit; 860 val(InputDlg.EditInput.Text, A, I);860 Val(InputDlg.EditInput.Text, A, I); 861 861 if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then 862 862 Exit; … … 878 878 if InputDlg.ModalResult <> mrOK then 879 879 Exit; 880 val(InputDlg.EditInput.Text, A, I);880 Val(InputDlg.EditInput.Text, A, I); 881 881 if (I <> 0) or (A <= 0) then 882 882 Exit;
Note:
See TracChangeset
for help on using the changeset viewer.