8/28/2023 0 Comments Editmask for numeric delphi![]() if (( net1 255 ) Or ( net2 255 ) Or ( host1 255 ) Or ( host2 255 )) then raise EArgumentException. ![]() Text net1 := StrToInt ( TrimRight ( Copy ( IP, 0, 3 ))) net2 := StrToInt ( TrimRight ( Copy ( IP, 5, 3 ))) host1 := StrToInt ( TrimRight ( Copy ( IP, 9, 3 ))) host2 := StrToInt ( TrimRight ( Copy ( IP, 13, 3 ))) // A range test that you cannot validate through edit masks. MaskEdit2Exit ( Sender : TObject ) var net1, net2, host1, host2, netmask1, netmask2, hostmask1, hostmask2, sub_net1, sub_net2, sub_host1, sub_host2 : Integer IP, mask : String begin // Extract the net and host address from the IP. OnExit := MaskEdit2Exit end procedure TForm1. ![]() FormCreate ( Sender : TObject ) begin MaskEdit1.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |