blob: 0bee550e808f49c8eb0213a6b423bcf2b95b9bbb (
plain)
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
67
68
69
|
/*
* Turbo Vision - Version 2.0
*
* Copyright (c) 1994 by Borland International
* All Rights Reserved.
*
Modified by Robert H”hne to be used for RHIDE.
*
*
*/
#if defined( Uses_TStringList ) && !defined( __TStringList )
#define __TStringList
class TStrIndexRec;
const int MAXKEYS = 16;
class TStringList : public TObject
#if !defined( NO_STREAM )
, public TStreamable
#endif // NO_STREAM
{
public:
~TStringList();
void get( char *dest, ushort key );
private:
ipstream *ip;
long basePos;
short indexSize;
TStrIndexRec *index;
#if !defined( NO_STREAM )
virtual const char *streamableName() const
{ return name; }
protected:
TStringList( StreamableInit );
virtual void write( opstream& ) {}
virtual void *read( ipstream& );
public:
static const char * const name;
static TStreamable *build();
#endif // NO_STREAM
};
#if !defined( NO_STREAM )
inline ipstream& operator >> ( ipstream& is, TStringList& cl )
{ return is >> (TStreamable&)cl; }
inline ipstream& operator >> ( ipstream& is, TStringList*& cl )
{ return is >> (void *&)cl; }
inline opstream& operator << ( opstream& os, TStringList& cl )
{ return os << (TStreamable&)cl; }
inline opstream& operator << ( opstream& os, TStringList* cl )
{ return os << (TStreamable *)cl; }
#endif // NO_STREAM
#endif // Uses_TStringList
|