mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 21:29:42 +02:00
rtl: remove unneeded charset classes
git-svn-id: trunk@26375 -
This commit is contained in:
parent
1c2a77a60f
commit
7b1f586131
@ -24,10 +24,6 @@ unit charset;
|
|||||||
tunicodechar = word;
|
tunicodechar = word;
|
||||||
tunicodestring = ^tunicodechar;
|
tunicodestring = ^tunicodechar;
|
||||||
|
|
||||||
tcsconvert = class
|
|
||||||
// !!!!!!1constructor create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
tunicodecharmappingflag = (umf_noinfo,umf_leadbyte,umf_undefined,
|
tunicodecharmappingflag = (umf_noinfo,umf_leadbyte,umf_undefined,
|
||||||
umf_unused);
|
umf_unused);
|
||||||
|
|
||||||
@ -57,9 +53,6 @@ unit charset;
|
|||||||
internalmap : boolean;
|
internalmap : boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
tcp2unicode = class(tcsconvert)
|
|
||||||
end;
|
|
||||||
|
|
||||||
TSerializedMapHeader = packed record
|
TSerializedMapHeader = packed record
|
||||||
cpName : string[20];
|
cpName : string[20];
|
||||||
cp : UInt16;
|
cp : UInt16;
|
||||||
|
Loading…
Reference in New Issue
Block a user