LSet
Выравнивает строку слева в строковом буфере
Declare Sub LSet Overload ( ByRef dst As String, ByRef src As Const String )
Declare Sub LSet ( ByVal dst As WString Ptr, ByVal src As Const WString Ptr )
LSet dst, src
LSet dst_udt, src_udt
LSet выравнивает (заполняет) строку src слева в строковом буфере dst, при этом левая часть заполняется буфером src , а правая часть пробелами. Размер буфера строки не изменяется.
Для совместимости с QBasic, LSet можно также скопировать переменную определяемого пользователем типа в другой тип. Копия делается байт за байтом, без любой заботы для полей типа или выравнивания. Программист сам заботится о достоверности результата.
Синтаксис
Declare Sub LSet Overload ( ByRef dst As String, ByRef src As Const String )
Declare Sub LSet ( ByVal dst As WString Ptr, ByVal src As Const WString Ptr )
Использование
LSet dst, src
LSet dst_udt, src_udt
Параметры
Описание
LSet выравнивает (заполняет) строку src слева в строковом буфере dst, при этом левая часть заполняется буфером src , а правая часть пробелами. Размер буфера строки не изменяется.
Для совместимости с QBasic, LSet можно также скопировать переменную определяемого пользователем типа в другой тип. Копия делается байт за байтом, без любой заботы для полей типа или выравнивания. Программист сам заботится о достоверности результата.
Пример
Dim buffer As String
buffer = Space(10)
LSet buffer, "91.5"
Print "-[" & buffer & "]-"
buffer = Space(10)
LSet buffer, "91.5"
Print "-[" & buffer & "]-"
Type mytype1
x As Integer
y As Integer
End Type
Type mytype2
z As Integer
End Type
Dim a As mytype1 , b As mytype2
b.z = 1234
LSet a, b
Print a.x
x As Integer
y As Integer
End Type
Type mytype2
z As Integer
End Type
Dim a As mytype1 , b As mytype2
b.z = 1234
LSet a, b
Print a.x
Отличия от QB
- В QB синтаксис был LSet dst = src
См. также