udf_RtfToText: Arreglado fallo al convertir textos con caracteres internacionales (ñ).
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@101 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
2f0ca704d8
commit
5af8478052
@ -7,9 +7,13 @@ function RtfToText(Cadena: PChar): PChar; cdecl; export;
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
Forms, Classes, SysUtils, StdCtrls, ComCtrls;
|
||||
|
||||
function RtfToText(Cadena: PChar): PChar;
|
||||
|
||||
// Esta función falla cuando hay caracteres especiales en el texto (ñ, por ejemplo).
|
||||
// Mejor la de abajo.
|
||||
|
||||
function RtfToText2(Cadena: PChar): PChar;
|
||||
var
|
||||
i: integer;
|
||||
CadenaAux1: String;
|
||||
@ -19,7 +23,7 @@ begin
|
||||
if (Pos('{', Cadena) = 0) then
|
||||
Result := Cadena
|
||||
else
|
||||
//Esta guardado com rtf
|
||||
//Esta guardado con rtf
|
||||
begin
|
||||
//Quitamos todo lo que está antes de \fs1x
|
||||
i := Pos('\fs', Cadena);
|
||||
@ -37,4 +41,197 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{
|
||||
Convert RTF enabled text to plain.
|
||||
http://www.delphipraxis.net/topic45179.html
|
||||
}
|
||||
|
||||
// HAY QUE LIMPIAR LA CADENA DE ENTRADA DE SALTOS DE LÍNEA (#$D#$A) POR QUE
|
||||
// SI NO, NO ES UNA CADENA CON TEXTO RTF VÁLIDO
|
||||
|
||||
function RtfToText(Cadena: PChar): PChar;
|
||||
const
|
||||
SaltoLinea = #13#10; //--> #$D#$A
|
||||
var
|
||||
aSource: string; // <- Para almacenar la cadena de entrada sin saltos de línea
|
||||
Source: string;
|
||||
NChar: Integer;
|
||||
|
||||
function ProcessGroupRecursevly: string;
|
||||
|
||||
function HexToInt(HexStr: String): Integer;
|
||||
begin
|
||||
result := StrToInt('$' + HexStr);
|
||||
end;
|
||||
|
||||
procedure SkipStar;
|
||||
var
|
||||
BracesOpened: Integer;
|
||||
Escaped: Boolean;
|
||||
begin
|
||||
BracesOpened:=1;
|
||||
Escaped:=false;
|
||||
while BracesOpened>0
|
||||
do begin
|
||||
Inc (NChar);
|
||||
case Source [NChar] of
|
||||
'{': if Escaped
|
||||
then Escaped:=false
|
||||
else Inc (BracesOpened);
|
||||
'}': if Escaped
|
||||
then Escaped:=false
|
||||
else Dec (BracesOpened);
|
||||
'\': Escaped:=not Escaped;
|
||||
else Escaped:=false;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function UnicodeCharCode2ANSIChar (aCode: LongInt): Char;
|
||||
type
|
||||
TUnicode2ANSITable=array [$0410..$044f] of Char;
|
||||
const
|
||||
Unicode2ANSITable: TUnicode2AnsiTable=('À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', '×', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'Þ', 'ß',
|
||||
'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', '÷', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'þ', 'ÿ');
|
||||
begin
|
||||
if (Low (Unicode2ANSITable)<=aCode) and (aCode<=High (Unicode2ANSITable)) then
|
||||
UnicodeCharCode2ANSIChar:=Unicode2ANSITable [aCode]
|
||||
else UnicodeCharCode2ANSIChar:='?';
|
||||
end;
|
||||
|
||||
var
|
||||
Control, NumericValue, TextValue: string;
|
||||
begin
|
||||
Result:='';
|
||||
Inc (NChar);
|
||||
while NChar<=Length (Source)
|
||||
do case Source [NChar] of
|
||||
'{': Result:=Result+ProcessGroupRecursevly;
|
||||
'}': begin
|
||||
Inc (NChar);
|
||||
Break;
|
||||
end;
|
||||
'\': begin
|
||||
Inc (NChar);
|
||||
case Source [NChar] of
|
||||
'''': begin
|
||||
Result:=Result+Chr (HexToInt (Copy (Source, NChar+1, 2)));
|
||||
Inc (NChar, 3);
|
||||
end;
|
||||
'~': Result:=Result+#$20;
|
||||
'*': SkipStar;
|
||||
'a'..'z': begin
|
||||
Control:='';
|
||||
while Source [NChar] in ['a'..'z']
|
||||
do begin
|
||||
Control:=Control+Source [NChar];
|
||||
Inc (NChar);
|
||||
end;
|
||||
if Source [NChar]='-'
|
||||
then begin
|
||||
NumericValue:=Source [NChar];
|
||||
Inc (NChar);
|
||||
end
|
||||
else NumericValue:='';
|
||||
while Source [NChar] in ['0'..'9']
|
||||
do begin
|
||||
NumericValue:=NumericValue+Source [NChar];
|
||||
Inc (NChar);
|
||||
end;
|
||||
if Source [NChar]='{'
|
||||
then ProcessGroupRecursevly;
|
||||
TextValue:='';
|
||||
if not (Source [NChar] in ['a'..'z', '{', '}', '\'])
|
||||
then begin
|
||||
Inc (NChar);
|
||||
while not (Source [NChar] in ['{', '}', '\'])
|
||||
do begin
|
||||
TextValue:=TextValue+Source [NChar];
|
||||
Inc (NChar);
|
||||
end;
|
||||
end;
|
||||
if (Control='line') or (Control='par')
|
||||
then Result:=Result+#$0D#$0A
|
||||
else if Control='tab'
|
||||
then Result:=Result+#$09
|
||||
else if Control='u'
|
||||
then Result:=Result+UnicodeCharCode2ANSIChar (StrToInt (NumericValue))
|
||||
else if Control='colortbl'
|
||||
then TextValue:='';
|
||||
if Length (TextValue)>0
|
||||
then if (not ((TextValue [Length (TextValue)]=';') and (Source [NChar]='}')))
|
||||
then begin
|
||||
Result:=Result+TextValue;
|
||||
TextValue:='';
|
||||
end;
|
||||
end;
|
||||
else begin
|
||||
Result:=Result+Source [NChar];
|
||||
Inc (NChar);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
else begin
|
||||
Result:=Result+Source [NChar];
|
||||
Inc (NChar);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function InitSource: Boolean;
|
||||
var
|
||||
BracesCount: Integer;
|
||||
Escaped: Boolean;
|
||||
begin
|
||||
if Copy (aSource, 1, 5) <> '{\rtf' then
|
||||
InitSource:=false
|
||||
else begin
|
||||
Source:='';
|
||||
BracesCount:=0;
|
||||
Escaped:=false;
|
||||
NChar:=1;
|
||||
while (NChar<=Length (aSource)) and (BracesCount>=0)
|
||||
do begin
|
||||
if not (aSource [NChar] in [#$0D, #$0A])
|
||||
then begin
|
||||
Source:=Source+aSource [NChar];
|
||||
case aSource [NChar] of
|
||||
'{': if not Escaped
|
||||
then Inc (BracesCount)
|
||||
else Escaped:=false;
|
||||
'}': if not Escaped
|
||||
then Dec (BracesCount)
|
||||
else Escaped:=false;
|
||||
'\': Escaped:=true;
|
||||
else Escaped:=false;
|
||||
end;
|
||||
end;
|
||||
Inc (NChar);
|
||||
end;
|
||||
InitSource:=BracesCount=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
// Hay que quitar el salto de línea al final de la aSource RTF
|
||||
aSource := StringReplace(Cadena, SaltoLinea, ' ', [rfreplaceall]);
|
||||
|
||||
// o bien:
|
||||
//
|
||||
//aSource := Copy( cLinea, 1, length(cLinea)-2) );
|
||||
|
||||
if InitSource then
|
||||
begin
|
||||
NChar:=1;
|
||||
Result:= PChar(ProcessGroupRecursevly);
|
||||
end
|
||||
else
|
||||
Result := PChar(aSource);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@ -1,7 +1,6 @@
|
||||
library udf_RtfToText;
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
ComServ,
|
||||
funciones in 'funciones.pas';
|
||||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/* VER180
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
@ -8,155 +8,344 @@
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
#define ComConst_SOleError 65408
|
||||
#define ComConst_SNoMethod 65409
|
||||
#define ComConst_SVarNotObject 65410
|
||||
#define ComConst_STooManyParams 65411
|
||||
#define ComConst_SAutomationWarning 65412
|
||||
#define ComConst_SNoCloseActiveServer1 65413
|
||||
#define ComConst_SNoCloseActiveServer2 65414
|
||||
#define RTLConsts_SAssignError 65424
|
||||
#define RTLConsts_SCheckSynchronizeError 65425
|
||||
#define RTLConsts_SDuplicateString 65426
|
||||
#define RTLConsts_SFCreateErrorEx 65427
|
||||
#define RTLConsts_SFOpenErrorEx 65428
|
||||
#define RTLConsts_SInvalidPropertyValue 65429
|
||||
#define RTLConsts_SListCapacityError 65430
|
||||
#define RTLConsts_SListCountError 65431
|
||||
#define RTLConsts_SListIndexError 65432
|
||||
#define RTLConsts_SMemoryStreamError 65433
|
||||
#define RTLConsts_SReadError 65434
|
||||
#define RTLConsts_SSeekNotImplemented 65435
|
||||
#define RTLConsts_SSortedListError 65436
|
||||
#define RTLConsts_SWriteError 65437
|
||||
#define RTLConsts_SThreadCreateError 65438
|
||||
#define RTLConsts_SThreadError 65439
|
||||
#define SysConst_SLongMonthNameNov 65440
|
||||
#define SysConst_SLongMonthNameDec 65441
|
||||
#define SysConst_SShortDayNameSun 65442
|
||||
#define SysConst_SShortDayNameMon 65443
|
||||
#define SysConst_SShortDayNameTue 65444
|
||||
#define SysConst_SShortDayNameWed 65445
|
||||
#define SysConst_SShortDayNameThu 65446
|
||||
#define SysConst_SShortDayNameFri 65447
|
||||
#define SysConst_SShortDayNameSat 65448
|
||||
#define SysConst_SLongDayNameSun 65449
|
||||
#define SysConst_SLongDayNameMon 65450
|
||||
#define SysConst_SLongDayNameTue 65451
|
||||
#define SysConst_SLongDayNameWed 65452
|
||||
#define SysConst_SLongDayNameThu 65453
|
||||
#define SysConst_SLongDayNameFri 65454
|
||||
#define SysConst_SLongDayNameSat 65455
|
||||
#define SysConst_SShortMonthNameJul 65456
|
||||
#define SysConst_SShortMonthNameAug 65457
|
||||
#define SysConst_SShortMonthNameSep 65458
|
||||
#define SysConst_SShortMonthNameOct 65459
|
||||
#define SysConst_SShortMonthNameNov 65460
|
||||
#define SysConst_SShortMonthNameDec 65461
|
||||
#define SysConst_SLongMonthNameJan 65462
|
||||
#define SysConst_SLongMonthNameFeb 65463
|
||||
#define SysConst_SLongMonthNameMar 65464
|
||||
#define SysConst_SLongMonthNameApr 65465
|
||||
#define SysConst_SLongMonthNameMay 65466
|
||||
#define SysConst_SLongMonthNameJun 65467
|
||||
#define SysConst_SLongMonthNameJul 65468
|
||||
#define SysConst_SLongMonthNameAug 65469
|
||||
#define SysConst_SLongMonthNameSep 65470
|
||||
#define SysConst_SLongMonthNameOct 65471
|
||||
#define SysConst_SVarUnexpected 65472
|
||||
#define SysConst_SExternalException 65473
|
||||
#define SysConst_SAssertionFailed 65474
|
||||
#define SysConst_SIntfCastError 65475
|
||||
#define SysConst_SSafecallException 65476
|
||||
#define SysConst_SAssertError 65477
|
||||
#define SysConst_SAbstractError 65478
|
||||
#define SysConst_SModuleAccessViolation 65479
|
||||
#define SysConst_SOSError 65480
|
||||
#define SysConst_SUnkOSError 65481
|
||||
#define SysConst_SShortMonthNameJan 65482
|
||||
#define SysConst_SShortMonthNameFeb 65483
|
||||
#define SysConst_SShortMonthNameMar 65484
|
||||
#define SysConst_SShortMonthNameApr 65485
|
||||
#define SysConst_SShortMonthNameMay 65486
|
||||
#define SysConst_SShortMonthNameJun 65487
|
||||
#define SysConst_SDispatchError 65488
|
||||
#define SysConst_SReadAccess 65489
|
||||
#define SysConst_SWriteAccess 65490
|
||||
#define SysConst_SFormatTooLong 65491
|
||||
#define SysConst_SVarArrayCreate 65492
|
||||
#define SysConst_SVarArrayBounds 65493
|
||||
#define SysConst_SVarArrayLocked 65494
|
||||
#define SysConst_SInvalidVarCast 65495
|
||||
#define SysConst_SInvalidVarOp 65496
|
||||
#define SysConst_SInvalidVarOpWithHResultWithPrefix 65497
|
||||
#define SysConst_SVarTypeCouldNotConvert 65498
|
||||
#define SysConst_SVarTypeConvertOverflow 65499
|
||||
#define SysConst_SVarOverflow 65500
|
||||
#define SysConst_SVarInvalid 65501
|
||||
#define SysConst_SVarBadType 65502
|
||||
#define SysConst_SVarNotImplemented 65503
|
||||
#define SysConst_SInvalidOp 65504
|
||||
#define SysConst_SZeroDivide 65505
|
||||
#define SysConst_SOverflow 65506
|
||||
#define SysConst_SUnderflow 65507
|
||||
#define SysConst_SInvalidPointer 65508
|
||||
#define SysConst_SInvalidCast 65509
|
||||
#define SysConst_SAccessViolationArg3 65510
|
||||
#define SysConst_SAccessViolationNoArg 65511
|
||||
#define SysConst_SStackOverflow 65512
|
||||
#define SysConst_SControlC 65513
|
||||
#define SysConst_SPrivilege 65514
|
||||
#define SysConst_SOperationAborted 65515
|
||||
#define SysConst_SException 65516
|
||||
#define SysConst_SExceptTitle 65517
|
||||
#define SysConst_SInvalidFormat 65518
|
||||
#define SysConst_SArgumentMissing 65519
|
||||
#define Consts_SDockZoneHasNoCtl 65312
|
||||
#define Consts_SDockZoneVersionConflict 65313
|
||||
#define Consts_SANSIEncoding 65314
|
||||
#define Consts_SASCIIEncoding 65315
|
||||
#define Consts_SUnicodeEncoding 65316
|
||||
#define Consts_SBigEndianEncoding 65317
|
||||
#define Consts_SUTF8Encoding 65318
|
||||
#define Consts_SUTF7Encoding 65319
|
||||
#define Consts_SmkcEnd 65328
|
||||
#define Consts_SmkcHome 65329
|
||||
#define Consts_SmkcLeft 65330
|
||||
#define Consts_SmkcUp 65331
|
||||
#define Consts_SmkcRight 65332
|
||||
#define Consts_SmkcDown 65333
|
||||
#define Consts_SmkcIns 65334
|
||||
#define Consts_SmkcDel 65335
|
||||
#define Consts_SmkcShift 65336
|
||||
#define Consts_SmkcCtrl 65337
|
||||
#define Consts_SmkcAlt 65338
|
||||
#define Consts_SIconToClipboard 65339
|
||||
#define Consts_SDuplicateMenus 65340
|
||||
#define Consts_SDockedCtlNeedsName 65341
|
||||
#define Consts_SDockTreeRemoveError 65342
|
||||
#define Consts_SDockZoneNotFound 65343
|
||||
#define Consts_SMsgDlgOK 65344
|
||||
#define Consts_SMsgDlgCancel 65345
|
||||
#define Consts_SMsgDlgHelp 65346
|
||||
#define Consts_SMsgDlgAbort 65347
|
||||
#define Consts_SMsgDlgRetry 65348
|
||||
#define Consts_SMsgDlgIgnore 65349
|
||||
#define Consts_SMsgDlgAll 65350
|
||||
#define Consts_SMsgDlgNoToAll 65351
|
||||
#define Consts_SMsgDlgYesToAll 65352
|
||||
#define Consts_SmkcBkSp 65353
|
||||
#define Consts_SmkcTab 65354
|
||||
#define Consts_SmkcEsc 65355
|
||||
#define Consts_SmkcEnter 65356
|
||||
#define Consts_SmkcSpace 65357
|
||||
#define Consts_SmkcPgUp 65358
|
||||
#define Consts_SmkcPgDn 65359
|
||||
#define Consts_SCancelButton 65360
|
||||
#define Consts_SYesButton 65361
|
||||
#define Consts_SNoButton 65362
|
||||
#define Consts_SHelpButton 65363
|
||||
#define Consts_SCloseButton 65364
|
||||
#define Consts_SIgnoreButton 65365
|
||||
#define Consts_SRetryButton 65366
|
||||
#define Consts_SAbortButton 65367
|
||||
#define Consts_SAllButton 65368
|
||||
#define Consts_SCannotDragForm 65369
|
||||
#define Consts_SMsgDlgWarning 65370
|
||||
#define Consts_SMsgDlgError 65371
|
||||
#define Consts_SMsgDlgInformation 65372
|
||||
#define Consts_SMsgDlgConfirm 65373
|
||||
#define Consts_SMsgDlgYes 65374
|
||||
#define Consts_SMsgDlgNo 65375
|
||||
#define Consts_SImageWriteFail 65376
|
||||
#define Consts_SWindowDCError 65377
|
||||
#define Consts_SWindowClass 65378
|
||||
#define Consts_SCannotFocus 65379
|
||||
#define Consts_SParentRequired 65380
|
||||
#define Consts_SMDIChildNotVisible 65381
|
||||
#define Consts_SVisibleChanged 65382
|
||||
#define Consts_SCannotShowModal 65383
|
||||
#define Consts_SMenuIndexError 65384
|
||||
#define Consts_SMenuReinserted 65385
|
||||
#define Consts_SMenuNotFound 65386
|
||||
#define Consts_SNoTimers 65387
|
||||
#define Consts_SGroupIndexTooLow 65388
|
||||
#define Consts_SNoMDIForm 65389
|
||||
#define Consts_SControlParentSetToSelf 65390
|
||||
#define Consts_SOKButton 65391
|
||||
#define RTLConsts_SWriteError 65392
|
||||
#define HelpIntfs_hNoTableOfContents 65393
|
||||
#define HelpIntfs_hNothingFound 65394
|
||||
#define HelpIntfs_hNoContext 65395
|
||||
#define HelpIntfs_hNoContextFound 65396
|
||||
#define HelpIntfs_hNoTopics 65397
|
||||
#define Consts_SInvalidBitmap 65398
|
||||
#define Consts_SInvalidIcon 65399
|
||||
#define Consts_SChangeIconSize 65400
|
||||
#define Consts_SUnknownClipboardFormat 65401
|
||||
#define Consts_SOutOfResources 65402
|
||||
#define Consts_SNoCanvasHandle 65403
|
||||
#define Consts_SInvalidImageSize 65404
|
||||
#define Consts_SInvalidImageList 65405
|
||||
#define Consts_SImageIndexError 65406
|
||||
#define Consts_SImageReadFail 65407
|
||||
#define RTLConsts_SInvalidPropertyPath 65408
|
||||
#define RTLConsts_SInvalidPropertyValue 65409
|
||||
#define RTLConsts_SInvalidRegType 65410
|
||||
#define RTLConsts_SListCapacityError 65411
|
||||
#define RTLConsts_SListCountError 65412
|
||||
#define RTLConsts_SListIndexError 65413
|
||||
#define RTLConsts_SMemoryStreamError 65414
|
||||
#define RTLConsts_SPropertyException 65415
|
||||
#define RTLConsts_SReadError 65416
|
||||
#define RTLConsts_SReadOnlyProperty 65417
|
||||
#define RTLConsts_SRegGetDataFailed 65418
|
||||
#define RTLConsts_SResNotFound 65419
|
||||
#define RTLConsts_SSeekNotImplemented 65420
|
||||
#define RTLConsts_SSortedListError 65421
|
||||
#define RTLConsts_SUnknownGroup 65422
|
||||
#define RTLConsts_SUnknownProperty 65423
|
||||
#define ComConst_SNoCloseActiveServer1 65424
|
||||
#define ComConst_SNoCloseActiveServer2 65425
|
||||
#define RTLConsts_SAncestorNotFound 65426
|
||||
#define RTLConsts_SAssignError 65427
|
||||
#define RTLConsts_SBitsIndexError 65428
|
||||
#define RTLConsts_SCantWriteResourceStreamError 65429
|
||||
#define RTLConsts_SCheckSynchronizeError 65430
|
||||
#define RTLConsts_SClassNotFound 65431
|
||||
#define RTLConsts_SDuplicateClass 65432
|
||||
#define RTLConsts_SDuplicateItem 65433
|
||||
#define RTLConsts_SDuplicateName 65434
|
||||
#define RTLConsts_SDuplicateString 65435
|
||||
#define RTLConsts_SFCreateErrorEx 65436
|
||||
#define RTLConsts_SFOpenErrorEx 65437
|
||||
#define RTLConsts_SInvalidImage 65438
|
||||
#define RTLConsts_SInvalidName 65439
|
||||
#define SysConst_SShortDayNameWed 65440
|
||||
#define SysConst_SShortDayNameThu 65441
|
||||
#define SysConst_SShortDayNameFri 65442
|
||||
#define SysConst_SShortDayNameSat 65443
|
||||
#define SysConst_SLongDayNameSun 65444
|
||||
#define SysConst_SLongDayNameMon 65445
|
||||
#define SysConst_SLongDayNameTue 65446
|
||||
#define SysConst_SLongDayNameWed 65447
|
||||
#define SysConst_SLongDayNameThu 65448
|
||||
#define SysConst_SLongDayNameFri 65449
|
||||
#define SysConst_SLongDayNameSat 65450
|
||||
#define ComConst_SOleError 65451
|
||||
#define ComConst_SNoMethod 65452
|
||||
#define ComConst_SVarNotObject 65453
|
||||
#define ComConst_STooManyParams 65454
|
||||
#define ComConst_SAutomationWarning 65455
|
||||
#define SysConst_SShortMonthNameDec 65456
|
||||
#define SysConst_SLongMonthNameJan 65457
|
||||
#define SysConst_SLongMonthNameFeb 65458
|
||||
#define SysConst_SLongMonthNameMar 65459
|
||||
#define SysConst_SLongMonthNameApr 65460
|
||||
#define SysConst_SLongMonthNameMay 65461
|
||||
#define SysConst_SLongMonthNameJun 65462
|
||||
#define SysConst_SLongMonthNameJul 65463
|
||||
#define SysConst_SLongMonthNameAug 65464
|
||||
#define SysConst_SLongMonthNameSep 65465
|
||||
#define SysConst_SLongMonthNameOct 65466
|
||||
#define SysConst_SLongMonthNameNov 65467
|
||||
#define SysConst_SLongMonthNameDec 65468
|
||||
#define SysConst_SShortDayNameSun 65469
|
||||
#define SysConst_SShortDayNameMon 65470
|
||||
#define SysConst_SShortDayNameTue 65471
|
||||
#define SysConst_SAssertError 65472
|
||||
#define SysConst_SAbstractError 65473
|
||||
#define SysConst_SModuleAccessViolation 65474
|
||||
#define SysConst_SOSError 65475
|
||||
#define SysConst_SUnkOSError 65476
|
||||
#define SysConst_SShortMonthNameJan 65477
|
||||
#define SysConst_SShortMonthNameFeb 65478
|
||||
#define SysConst_SShortMonthNameMar 65479
|
||||
#define SysConst_SShortMonthNameApr 65480
|
||||
#define SysConst_SShortMonthNameMay 65481
|
||||
#define SysConst_SShortMonthNameJun 65482
|
||||
#define SysConst_SShortMonthNameJul 65483
|
||||
#define SysConst_SShortMonthNameAug 65484
|
||||
#define SysConst_SShortMonthNameSep 65485
|
||||
#define SysConst_SShortMonthNameOct 65486
|
||||
#define SysConst_SShortMonthNameNov 65487
|
||||
#define SysConst_SVarArrayBounds 65488
|
||||
#define SysConst_SVarArrayLocked 65489
|
||||
#define SysConst_SInvalidVarCast 65490
|
||||
#define SysConst_SInvalidVarOp 65491
|
||||
#define SysConst_SInvalidVarOpWithHResultWithPrefix 65492
|
||||
#define SysConst_SVarTypeCouldNotConvert 65493
|
||||
#define SysConst_SVarTypeConvertOverflow 65494
|
||||
#define SysConst_SVarOverflow 65495
|
||||
#define SysConst_SVarInvalid 65496
|
||||
#define SysConst_SVarBadType 65497
|
||||
#define SysConst_SVarNotImplemented 65498
|
||||
#define SysConst_SVarUnexpected 65499
|
||||
#define SysConst_SExternalException 65500
|
||||
#define SysConst_SAssertionFailed 65501
|
||||
#define SysConst_SIntfCastError 65502
|
||||
#define SysConst_SSafecallException 65503
|
||||
#define SysConst_SUnderflow 65504
|
||||
#define SysConst_SInvalidPointer 65505
|
||||
#define SysConst_SInvalidCast 65506
|
||||
#define SysConst_SAccessViolationArg3 65507
|
||||
#define SysConst_SAccessViolationNoArg 65508
|
||||
#define SysConst_SStackOverflow 65509
|
||||
#define SysConst_SControlC 65510
|
||||
#define SysConst_SPrivilege 65511
|
||||
#define SysConst_SException 65512
|
||||
#define SysConst_SExceptTitle 65513
|
||||
#define SysConst_SInvalidFormat 65514
|
||||
#define SysConst_SArgumentMissing 65515
|
||||
#define SysConst_SDispatchError 65516
|
||||
#define SysConst_SReadAccess 65517
|
||||
#define SysConst_SWriteAccess 65518
|
||||
#define SysConst_SVarArrayCreate 65519
|
||||
#define SysConst_SInvalidInteger 65520
|
||||
#define SysConst_SInvalidDateTime 65521
|
||||
#define SysConst_STimeEncodeError 65522
|
||||
#define SysConst_SDateEncodeError 65523
|
||||
#define SysConst_SOutOfMemory 65524
|
||||
#define SysConst_SInOutError 65525
|
||||
#define SysConst_SFileNotFound 65526
|
||||
#define SysConst_SInvalidFilename 65527
|
||||
#define SysConst_STooManyOpenFiles 65528
|
||||
#define SysConst_SAccessDenied 65529
|
||||
#define SysConst_SEndOfFile 65530
|
||||
#define SysConst_SDiskFull 65531
|
||||
#define SysConst_SInvalidInput 65532
|
||||
#define SysConst_SDivByZero 65533
|
||||
#define SysConst_SRangeError 65534
|
||||
#define SysConst_SIntOverflow 65535
|
||||
#define SysConst_SOutOfMemory 65521
|
||||
#define SysConst_SInOutError 65522
|
||||
#define SysConst_SFileNotFound 65523
|
||||
#define SysConst_SInvalidFilename 65524
|
||||
#define SysConst_STooManyOpenFiles 65525
|
||||
#define SysConst_SAccessDenied 65526
|
||||
#define SysConst_SEndOfFile 65527
|
||||
#define SysConst_SDiskFull 65528
|
||||
#define SysConst_SInvalidInput 65529
|
||||
#define SysConst_SDivByZero 65530
|
||||
#define SysConst_SRangeError 65531
|
||||
#define SysConst_SIntOverflow 65532
|
||||
#define SysConst_SInvalidOp 65533
|
||||
#define SysConst_SZeroDivide 65534
|
||||
#define SysConst_SOverflow 65535
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
ComConst_SOleError, "OLE error %.8x"
|
||||
ComConst_SNoMethod, "Method '%s' not supported by automation object"
|
||||
ComConst_SVarNotObject, "Variant does not reference an automation object"
|
||||
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
|
||||
ComConst_SAutomationWarning, "COM Server Warning"
|
||||
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
|
||||
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
|
||||
RTLConsts_SAssignError, "Cannot assign a %s to a %s"
|
||||
RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread"
|
||||
RTLConsts_SDuplicateString, "String list does not allow duplicates"
|
||||
RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s"
|
||||
RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s"
|
||||
Consts_SDockZoneHasNoCtl, " - Dock zone has no control"
|
||||
Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d."
|
||||
Consts_SANSIEncoding, "ANSI"
|
||||
Consts_SASCIIEncoding, "ASCII"
|
||||
Consts_SUnicodeEncoding, "Unicode"
|
||||
Consts_SBigEndianEncoding, "Big Endian Unicode"
|
||||
Consts_SUTF8Encoding, "UTF-8"
|
||||
Consts_SUTF7Encoding, "UTF-7"
|
||||
Consts_SmkcEnd, "End"
|
||||
Consts_SmkcHome, "Home"
|
||||
Consts_SmkcLeft, "Left"
|
||||
Consts_SmkcUp, "Up"
|
||||
Consts_SmkcRight, "Right"
|
||||
Consts_SmkcDown, "Down"
|
||||
Consts_SmkcIns, "Ins"
|
||||
Consts_SmkcDel, "Del"
|
||||
Consts_SmkcShift, "Shift+"
|
||||
Consts_SmkcCtrl, "Ctrl+"
|
||||
Consts_SmkcAlt, "Alt+"
|
||||
Consts_SIconToClipboard, "Clipboard does not support Icons"
|
||||
Consts_SDuplicateMenus, "Menu '%s' is already being used by another form"
|
||||
Consts_SDockedCtlNeedsName, "Docked control must have a name"
|
||||
Consts_SDockTreeRemoveError, "Error removing control from dock tree"
|
||||
Consts_SDockZoneNotFound, " - Dock zone not found"
|
||||
Consts_SMsgDlgOK, "OK"
|
||||
Consts_SMsgDlgCancel, "Cancel"
|
||||
Consts_SMsgDlgHelp, "&Help"
|
||||
Consts_SMsgDlgAbort, "&Abort"
|
||||
Consts_SMsgDlgRetry, "&Retry"
|
||||
Consts_SMsgDlgIgnore, "&Ignore"
|
||||
Consts_SMsgDlgAll, "&All"
|
||||
Consts_SMsgDlgNoToAll, "N&o to All"
|
||||
Consts_SMsgDlgYesToAll, "Yes to &All"
|
||||
Consts_SmkcBkSp, "BkSp"
|
||||
Consts_SmkcTab, "Tab"
|
||||
Consts_SmkcEsc, "Esc"
|
||||
Consts_SmkcEnter, "Enter"
|
||||
Consts_SmkcSpace, "Space"
|
||||
Consts_SmkcPgUp, "PgUp"
|
||||
Consts_SmkcPgDn, "PgDn"
|
||||
Consts_SCancelButton, "Cancel"
|
||||
Consts_SYesButton, "&Yes"
|
||||
Consts_SNoButton, "&No"
|
||||
Consts_SHelpButton, "&Help"
|
||||
Consts_SCloseButton, "&Close"
|
||||
Consts_SIgnoreButton, "&Ignore"
|
||||
Consts_SRetryButton, "&Retry"
|
||||
Consts_SAbortButton, "Abort"
|
||||
Consts_SAllButton, "&All"
|
||||
Consts_SCannotDragForm, "Cannot drag a form"
|
||||
Consts_SMsgDlgWarning, "Warning"
|
||||
Consts_SMsgDlgError, "Error"
|
||||
Consts_SMsgDlgInformation, "Information"
|
||||
Consts_SMsgDlgConfirm, "Confirm"
|
||||
Consts_SMsgDlgYes, "&Yes"
|
||||
Consts_SMsgDlgNo, "&No"
|
||||
Consts_SImageWriteFail, "Failed to write ImageList data to stream"
|
||||
Consts_SWindowDCError, "Error creating window device context"
|
||||
Consts_SWindowClass, "Error creating window class"
|
||||
Consts_SCannotFocus, "Cannot focus a disabled or invisible window"
|
||||
Consts_SParentRequired, "Control '%s' has no parent window"
|
||||
Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form"
|
||||
Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
|
||||
Consts_SCannotShowModal, "Cannot make a visible window modal"
|
||||
Consts_SMenuIndexError, "Menu index out of range"
|
||||
Consts_SMenuReinserted, "Menu inserted twice"
|
||||
Consts_SMenuNotFound, "Sub-menu is not in menu"
|
||||
Consts_SNoTimers, "Not enough timers available"
|
||||
Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex"
|
||||
Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active"
|
||||
Consts_SControlParentSetToSelf, "A control cannot have itself as its parent"
|
||||
Consts_SOKButton, "OK"
|
||||
RTLConsts_SWriteError, "Stream write error"
|
||||
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
|
||||
HelpIntfs_hNothingFound, "No help found for %s"
|
||||
HelpIntfs_hNoContext, "No context-sensitive help installed"
|
||||
HelpIntfs_hNoContextFound, "No help found for context"
|
||||
HelpIntfs_hNoTopics, "No topic-based help system installed"
|
||||
Consts_SInvalidBitmap, "Bitmap image is not valid"
|
||||
Consts_SInvalidIcon, "Icon image is not valid"
|
||||
Consts_SChangeIconSize, "Cannot change the size of an icon"
|
||||
Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
|
||||
Consts_SOutOfResources, "Out of system resources"
|
||||
Consts_SNoCanvasHandle, "Canvas does not allow drawing"
|
||||
Consts_SInvalidImageSize, "Invalid image size"
|
||||
Consts_SInvalidImageList, "Invalid ImageList"
|
||||
Consts_SImageIndexError, "Invalid ImageList Index"
|
||||
Consts_SImageReadFail, "Failed to read ImageList data from stream"
|
||||
RTLConsts_SInvalidPropertyPath, "Invalid property path"
|
||||
RTLConsts_SInvalidPropertyValue, "Invalid property value"
|
||||
RTLConsts_SInvalidRegType, "Invalid data type for '%s'"
|
||||
RTLConsts_SListCapacityError, "List capacity out of bounds (%d)"
|
||||
RTLConsts_SListCountError, "List count out of bounds (%d)"
|
||||
RTLConsts_SListIndexError, "List index out of bounds (%d)"
|
||||
RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream"
|
||||
RTLConsts_SPropertyException, "Error reading %s%s%s: %s"
|
||||
RTLConsts_SReadError, "Stream read error"
|
||||
RTLConsts_SReadOnlyProperty, "Property is read-only"
|
||||
RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'"
|
||||
RTLConsts_SResNotFound, "Resource %s not found"
|
||||
RTLConsts_SSeekNotImplemented, "%s.Seek not implemented"
|
||||
RTLConsts_SSortedListError, "Operation not allowed on sorted list"
|
||||
RTLConsts_SWriteError, "Stream write error"
|
||||
RTLConsts_SThreadCreateError, "Thread creation error: %s"
|
||||
RTLConsts_SThreadError, "Thread Error: %s (%d)"
|
||||
SysConst_SLongMonthNameNov, "November"
|
||||
SysConst_SLongMonthNameDec, "December"
|
||||
SysConst_SShortDayNameSun, "Sun"
|
||||
SysConst_SShortDayNameMon, "Mon"
|
||||
SysConst_SShortDayNameTue, "Tue"
|
||||
RTLConsts_SUnknownGroup, "%s not in a class registration group"
|
||||
RTLConsts_SUnknownProperty, "Property %s does not exist"
|
||||
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
|
||||
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
|
||||
RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found"
|
||||
RTLConsts_SAssignError, "Cannot assign a %s to a %s"
|
||||
RTLConsts_SBitsIndexError, "Bits index out of range"
|
||||
RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream"
|
||||
RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread"
|
||||
RTLConsts_SClassNotFound, "Class %s not found"
|
||||
RTLConsts_SDuplicateClass, "A class named %s already exists"
|
||||
RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)"
|
||||
RTLConsts_SDuplicateName, "A component named %s already exists"
|
||||
RTLConsts_SDuplicateString, "String list does not allow duplicates"
|
||||
RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s"
|
||||
RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s"
|
||||
RTLConsts_SInvalidImage, "Invalid stream format"
|
||||
RTLConsts_SInvalidName, "''%s'' is not a valid component name"
|
||||
SysConst_SShortDayNameWed, "Wed"
|
||||
SysConst_SShortDayNameThu, "Thu"
|
||||
SysConst_SShortDayNameFri, "Fri"
|
||||
@ -168,11 +357,11 @@ BEGIN
|
||||
SysConst_SLongDayNameThu, "Thursday"
|
||||
SysConst_SLongDayNameFri, "Friday"
|
||||
SysConst_SLongDayNameSat, "Saturday"
|
||||
SysConst_SShortMonthNameJul, "Jul"
|
||||
SysConst_SShortMonthNameAug, "Aug"
|
||||
SysConst_SShortMonthNameSep, "Sep"
|
||||
SysConst_SShortMonthNameOct, "Oct"
|
||||
SysConst_SShortMonthNameNov, "Nov"
|
||||
ComConst_SOleError, "OLE error %.8x"
|
||||
ComConst_SNoMethod, "Method '%s' not supported by automation object"
|
||||
ComConst_SVarNotObject, "Variant does not reference an automation object"
|
||||
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
|
||||
ComConst_SAutomationWarning, "COM Server Warning"
|
||||
SysConst_SShortMonthNameDec, "Dec"
|
||||
SysConst_SLongMonthNameJan, "January"
|
||||
SysConst_SLongMonthNameFeb, "February"
|
||||
@ -184,11 +373,11 @@ BEGIN
|
||||
SysConst_SLongMonthNameAug, "August"
|
||||
SysConst_SLongMonthNameSep, "September"
|
||||
SysConst_SLongMonthNameOct, "October"
|
||||
SysConst_SVarUnexpected, "Unexpected variant error"
|
||||
SysConst_SExternalException, "External exception %x"
|
||||
SysConst_SAssertionFailed, "Assertion failed"
|
||||
SysConst_SIntfCastError, "Interface not supported"
|
||||
SysConst_SSafecallException, "Exception in safecall method"
|
||||
SysConst_SLongMonthNameNov, "November"
|
||||
SysConst_SLongMonthNameDec, "December"
|
||||
SysConst_SShortDayNameSun, "Sun"
|
||||
SysConst_SShortDayNameMon, "Mon"
|
||||
SysConst_SShortDayNameTue, "Tue"
|
||||
SysConst_SAssertError, "%s (%s, line %d)"
|
||||
SysConst_SAbstractError, "Abstract Error"
|
||||
SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p"
|
||||
@ -200,11 +389,11 @@ BEGIN
|
||||
SysConst_SShortMonthNameApr, "Apr"
|
||||
SysConst_SShortMonthNameMay, "May"
|
||||
SysConst_SShortMonthNameJun, "Jun"
|
||||
SysConst_SDispatchError, "Variant method calls not supported"
|
||||
SysConst_SReadAccess, "Read"
|
||||
SysConst_SWriteAccess, "Write"
|
||||
SysConst_SFormatTooLong, "Format string too long"
|
||||
SysConst_SVarArrayCreate, "Error creating variant or safe array"
|
||||
SysConst_SShortMonthNameJul, "Jul"
|
||||
SysConst_SShortMonthNameAug, "Aug"
|
||||
SysConst_SShortMonthNameSep, "Sep"
|
||||
SysConst_SShortMonthNameOct, "Oct"
|
||||
SysConst_SShortMonthNameNov, "Nov"
|
||||
SysConst_SVarArrayBounds, "Variant or safe array index out of bounds"
|
||||
SysConst_SVarArrayLocked, "Variant or safe array is locked"
|
||||
SysConst_SInvalidVarCast, "Invalid variant type conversion"
|
||||
@ -216,9 +405,11 @@ BEGIN
|
||||
SysConst_SVarInvalid, "Invalid argument"
|
||||
SysConst_SVarBadType, "Invalid variant type"
|
||||
SysConst_SVarNotImplemented, "Operation not supported"
|
||||
SysConst_SInvalidOp, "Invalid floating point operation"
|
||||
SysConst_SZeroDivide, "Floating point division by zero"
|
||||
SysConst_SOverflow, "Floating point overflow"
|
||||
SysConst_SVarUnexpected, "Unexpected variant error"
|
||||
SysConst_SExternalException, "External exception %x"
|
||||
SysConst_SAssertionFailed, "Assertion failed"
|
||||
SysConst_SIntfCastError, "Interface not supported"
|
||||
SysConst_SSafecallException, "Exception in safecall method"
|
||||
SysConst_SUnderflow, "Floating point underflow"
|
||||
SysConst_SInvalidPointer, "Invalid pointer operation"
|
||||
SysConst_SInvalidCast, "Invalid class typecast"
|
||||
@ -227,15 +418,15 @@ BEGIN
|
||||
SysConst_SStackOverflow, "Stack overflow"
|
||||
SysConst_SControlC, "Control-C hit"
|
||||
SysConst_SPrivilege, "Privileged instruction"
|
||||
SysConst_SOperationAborted, "Operation aborted"
|
||||
SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n"
|
||||
SysConst_SExceptTitle, "Application Error"
|
||||
SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument"
|
||||
SysConst_SArgumentMissing, "No argument for format '%s'"
|
||||
SysConst_SDispatchError, "Variant method calls not supported"
|
||||
SysConst_SReadAccess, "Read"
|
||||
SysConst_SWriteAccess, "Write"
|
||||
SysConst_SVarArrayCreate, "Error creating variant or safe array"
|
||||
SysConst_SInvalidInteger, "'%s' is not a valid integer value"
|
||||
SysConst_SInvalidDateTime, "'%s' is not a valid date and time"
|
||||
SysConst_STimeEncodeError, "Invalid argument to time encode"
|
||||
SysConst_SDateEncodeError, "Invalid argument to date encode"
|
||||
SysConst_SOutOfMemory, "Out of memory"
|
||||
SysConst_SInOutError, "I/O error %d"
|
||||
SysConst_SFileNotFound, "File not found"
|
||||
@ -248,5 +439,13 @@ BEGIN
|
||||
SysConst_SDivByZero, "Division by zero"
|
||||
SysConst_SRangeError, "Range check error"
|
||||
SysConst_SIntOverflow, "Integer overflow"
|
||||
SysConst_SInvalidOp, "Invalid floating point operation"
|
||||
SysConst_SZeroDivide, "Floating point division by zero"
|
||||
SysConst_SOverflow, "Floating point overflow"
|
||||
END
|
||||
|
||||
/* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */
|
||||
/* c:\archivos de programa\codegear\rad studio\5.0\lib\Buttons.res */
|
||||
/* c:\archivos de programa\codegear\rad studio\5.0\lib\ExtDlgs.res */
|
||||
/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.RES */
|
||||
/* C:\Codigo Tecsitel\Database\udfs\udf_RtfToText.drf */
|
||||
|
||||
Loading…
Reference in New Issue
Block a user