-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathWispDbSearch.pas
66 lines (61 loc) · 994 Bytes
/
WispDbSearch.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit WispDbSearch;
interface
uses
Variants,
KwhCommon,
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
ZAbstractConnection,
ZConnection,
Data.DB,
ZAbstractRODataset,
ZAbstractDataset,
ZDataset,
TypInfo,
cxGridDBTableView,
cxCheckBox,
cxTextEdit,
stdCtrls,
cxCalendar,
StrUtils,
StrFlex,
cxGrid,
ExtCtrls,
cxStyles,
dxSkinsCore,
dxSkinsDefaultPainters,
dxSkinscxPCPainter,
cxCustomData,
cxGraphics,
cxFilter,
cxData,
cxDataStorage,
cxEdit,
cxDBData,
cxGridLevel,
cxGridCustomTableView,
cxClasses,
cxControls,
cxGridCustomView,
ViewTools,
cxGridTableView,
cxProgressBar,
cxLabel,
FuzzyMatchingResultDialog,
ArrayFlex;
type
TFuzzySearchResult = record
TopID: StrArray;
aTopRow: array of Integer;
IDArrayAsString: string;
TopRate: Real;
TopString: String;
end;
implementation
end.