DefSng Statement
рдпрджрд┐ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдкреНрд░рдХрд╛рд░-рдШреЛрд╖рдгрд╛ рд╡рд╛ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирднрдПрдорд╛,рдЕрдХреНрд╖рд░ рджрд╛рдпрд░рд╛ рдЕрдиреБрд╕рд╛рд░, DefSng рдХрдердирд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Defxxx рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛рез[, рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛реи[,...]]
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛: рдпрд╕рдХрд╛ рд▓рд╛рдЧрд┐ рддрдкрд╛рдИрдБрд▓реЗ рд╕реЗрдЯ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрднрдПрдХрд╛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдЪрд▓рд╣рд░реВрдХреЛ рджрд╛рдпрд░рд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рдЕрдХреНрд╖рд░рд╣рд░реВ ред
xxx: рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдЬрд╕рд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдкрд░рд┐рднрд╛рд╖реАрдд рдЧрд░реНрджрдЫ:
рд╢рдмреНрджрдХреБрдЮреНрдЬреА: рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░
DefSng: рдПрдХрд▓
рдЙрджрд╛рд╣рд░рдг:
рдЪрд▓ рдкреНрд░рдХрд╛рд░рд╣рд░реВрдХреЛрд▓рд╛рдЧрд┐ REMрдЙрдкрд╕рд░реНрдЧ рдкрд░рд┐рднрд╛рд╖рд╛:
DefBool b
DefDate t
DefDbl d
DefInt i
DefLng l
DefObj o
DefVar v
DefSng s
Sub ExampleDefSng
sSng=Single ' sSng рдЕрдиреНрддрд░реНрдирд┐рд╣рд┐рдд рдПрдХрд▓ рдЪрд▓ рд╣реЛ
End Sub