Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Nói cách khác, quy định cụ thể "," chứng thực trong chuỗi AllowSender không phải là tương đương với "xác thực = true" trong chuỗi kết nối. Xác định Phần này bàn về các vấn đề cơ bản của việc tạo ra một trình đơn ở thời gian thiết kế. Để biết thêm thông tin về các mẫu đơn, xem "Sử dụng các mẫu đơn" trên trang 9-41. | Converting measurements Declare variables Now that you have a conversion class begin as with any other conversion family by declaring identifiers var euEUR TConvType EU euro euBEF TConvType Belgian francs euDEM TConvType German marks euGRD TConvType Greek drachmas euESP TConvType Spanish pesetas euFFR TConvType French francs euIEP TConvType Irish pounds euITL TConvType Italian lire euLUF TConvType Luxembourg francs euNLG TConvType Dutch guilders euATS TConvType Austrian schillings euPTE TConvType Portuguese escudos euFIM TConvType Finnish marks cbEuro TConvFamily Register the conversion family and the other units Now you are ready to register the conversion family and the European monetary units using your new conversion class. Register the conversion family the same way you registered the other conversion families cbEuro RegisterConversionFamily European currency To register each conversion type create an instance of the conversion class that reflects the factor and rounding properties of that currency and call the RegisterConversionType method var LInfo TConvTypeInfo begin LInfo TConvTypeEuroFactor.Create cbEuro EUEuro 1.0 -2 if not RegisterConversionType LInfo euEUR then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro BelgianFrancs 40.3399 0 if not RegisterConversionType LInfo euBEF then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro GermanMarks 1.95583 -2 if not RegisterConversionType LInfo euDEM then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro GreekDrachmas 340.75 0 if not RegisterConversionType LInfo euGRD then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro SpanishPesetas 166.386 0 if not RegisterConversionType LInfo euESP then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro FrenchFrancs 6.55957 -2 if not RegisterConversionType LInfo euFFR then LInfo.Free LInfo TConvTypeEuroFactor.Create cbEuro IrishPounds 0.787564 -2 Using BaseCLX 5-39 Defining custom variants if not RegisterConversionType LInfo euIEP LInfo.Free LInfo .
