| |
|
|
| | В access проверка на пустую строку Nz(Mesages_String)
а в VB6 надо проверять? -
если да - то как?  | |
| |
| |
|
|
| |
|
|
| |
if IsEmpty(String) = false then
if IsNull(String) = true then
exit sub
end if
else
exit sub
end if
|
вот так каждую переменную - или я не врубился просто........ | |
| |
| |
| |
|
|
| | нет
Function IsNull(Expression) As Boolean
|
Member of VBA.Information
Returns True if an expression contains no valid data
Function IsEmpty(Expression) As Boolean
|
Member of VBA.Information
Returns True if a variable has not been initialized | |
| |
| |
| |
|
|
| | для строковых переменных достаточно просто
s <> "" | |
| |
| |
| |
|
|
| |
Public Declare Function apiTimeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
Public Function TestLen() As Long
Dim Start As Long
Dim i As Long
Dim bln As Boolean
Dim str As String
Start = apiTimeGetTime
For i = 0 To 10000000
bln = Len(str) > 0
Next i
TestLen = apiTimeGetTime - Start
End Function
Public Function Test2() As Long
Dim Start As Long
Dim i As Long
Dim bln As Boolean
Dim str As String
Start = apiTimeGetTime
For i = 0 To 10000000
bln = str <> ""
Next i
Test2 = apiTimeGetTime - Start
End Function
?TestLen()
657
640
687
641
703
735
?Test2()
1062
1187
1015
1031
1094
1141
|
То есть: Len(str)>0 работает в полтора раза быстрее. Правда, если разделить разницу на 10 млн итераций, почувствовать разницу будет очень сложно.  | |
| |
| |
| |
|
|
| | Всё шутите - Lukas ......
Какие миллионы
Это Вы ворочаете миллионами, а мне бы просто узнать - переменная string - пустая, или уже кто-то в неё вселился. 
==============================================
так шо вполне if stringis = "" then I Am in stringis | |
| |
| |
