String

FUNCTION String ( Source AS String [ , Level AS Integer, AllowGrow AS Boolean ] ) AS String

Эта функция возвращает сжатую строку, используя алгоритм, определенный свойством Type .

...
Dim Cz As New Compress
Dim Buf As String

Cz.Type = "bzlib2"

Buf = Cz.String(SourceString,Cz.Max,FALSE)

IF Len(Buf) < Len(SourceString) THEN
PRINT "Compression successfully finished"
ELSE
PRINT "Unable to compress that string"
END IF
...