龙听期货论坛's Archiver

C
+
+


 微信: QQ:

龙听 发表于 2022-11-2 13:50

【Text_Exist】

[code]inputs: TextID( numericsimple ) ;
variables: var0( 0 ) ;

Condition1 = false ;
var0 = Text_GetFirst( 3 ) ;

while var0 >= 0
        begin
        if var0 = TextID then
                begin
                Condition1 = true ;
                var0 = -2 ;                                 
                end
        else
                var0 = Text_GetNext( var0, 3 ) ;
        end ;

Text_Exist = Condition1 ;
[/code]

页: [1]