mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
045ae3ab69
* test now tests both ansistring and widestring constants, instead of only
ansistring
* fixed writing of widestring constants to ppu file
* fixed setting length of read widestring constants (don't only set maxlen)
* handle cross-endian reading of widestring constants
git-svn-id: trunk@13034 -
16 lines
219 B
ObjectPascal
16 lines
219 B
ObjectPascal
unit uw13583;
|
|
|
|
interface
|
|
|
|
type
|
|
TEDBString = WideString;
|
|
TEDBString2 = ansiString;
|
|
|
|
const
|
|
DEFAULT_SIGNATURE = TEDBString('edb_signature');
|
|
DEFAULT_SIGNATURE2 = TEDBString('edb_signature2');
|
|
|
|
implementation
|
|
|
|
end.
|