Компонент для работы с DBF таблицами и с Clipper индексами NTX
Оформил: DeeCo
Автор: Влад Карпов
Уважаемые жители Королевства, вашему вниманию предлагается
VK DBF — компонент для работы с DBF таблицами и с
Clipper индексами NTX.
- Версия 1.0.5 beta (24.10.02)
- Для Delphi 5
Это не просто драйвер DBFNTX для Delphi 5.
Компонет поддерживает множество расширенных типов (~60) таких как Byte,
Integer, Real48, Double, Int64, WideString и т.д. Имеется встроенная
криптография
Описание
- 1) Add Method TranslateBuff and rewrite methods CreateBlobStream and
SaveToDBT with TranslateBuff to prevent 'Access violation' in read and write
CLOB.
- 2) When set RecNo check Filter, SetDeleted and Range validation.
- 3) Fix bud in TVKNTXRange.InRange(S: String) method
- 4) Add event OnCreateIndex
- 5) Add public var FullLengthCharFieldCopy to TVKSmartDBF for manage
SetFieldData for 'C' type fields
- 6) Fix buf with allocate memory for FLocateBuffer (AV when Locate, Lookup,
ReindexAll, DBEval or Pack if BufferSize <> 4096)
- 7) Complex actions to make index compatibility with CLIPPER:
- - Full rewrite TVKNTXIndex.DeleteKey procedure, now it normalize index
like a CLIPPER.
- - Make TVKNTXIndex.DeleteKeyStyle property to switch Delete Key style
between CLIPPER normalize index and all athers (Apollo, Halcyon...).
- - Add TVKNTXCompactIndex.NormalizeRest method to make normalize index in
TVKNTXIndex.CreateCompactIndex and TVKNTXIndex.SubNtx procedures.
ATTENTION: Rebuild all indexes after apply this
version !
- 8) Add methods: TVKNTXIndex.FindKey
TVKNTXIndex.FindKeyFields with
overloaded some parameters It is the same SeekFirst..., but subject to
SetDeleted, Filter and Range. Partual key sapport Ok!
- 9) Rewrite Lokate and Lookup on TVKNTXIndex.FindKeyFields.
- 10) Add methods:
- TVKSmartDBF.SetKey;
- TVKSmartDBF.EditKey;
- TVKSmartDBF.GotoKey;
- TVKSmartDBF.GotoNearest;
- TVKSmartDBF.DropEditKey;
- TVKSmartDBF.FindKey;
- TVKSmartDBF.FindNearest;
All this methods work throw
TVKNTXIndex.FindKeyFields.
- 11) Add TVKSmartDBF.IndexName property.
- 12) Make type 'C' is not be NULL, if field empty Field.AsString return
string of spases lethgt of field length.
|