diff --git a/Database/udfs/funciones.pas b/Database/udfs/funciones.pas index c6d8a08f..ec4dff2e 100644 --- a/Database/udfs/funciones.pas +++ b/Database/udfs/funciones.pas @@ -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. + + + + diff --git a/Database/udfs/udf_RtfToText.dll b/Database/udfs/udf_RtfToText.dll index e6642a63..206d133d 100644 Binary files a/Database/udfs/udf_RtfToText.dll and b/Database/udfs/udf_RtfToText.dll differ diff --git a/Database/udfs/udf_RtfToText.dpr b/Database/udfs/udf_RtfToText.dpr index d3689bcf..6f3b6005 100644 --- a/Database/udfs/udf_RtfToText.dpr +++ b/Database/udfs/udf_RtfToText.dpr @@ -1,7 +1,6 @@ library udf_RtfToText; uses - ExceptionLog, ComServ, funciones in 'funciones.pas'; diff --git a/Database/udfs/udf_RtfToText.dproj b/Database/udfs/udf_RtfToText.dproj new file mode 100644 index 00000000..5ba99a5d --- /dev/null +++ b/Database/udfs/udf_RtfToText.dproj @@ -0,0 +1,593 @@ + + + {5eb7350e-c612-4139-a532-3b8a4617e544} + udf_RtfToText.dpr + Debug + AnyCPU + DCC32 + udf_RtfToText.dll + + + 7.0 + False + False + 0 + 3 + EUREKALOG;EUREKALOG_VER5;RELEASE + + + 7.0 + 3 + DEBUG + + + Delphi.Personality + + +FalseTrueFalse + + + FalseFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Muststang Peak EasyListview Runtime Package + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + udf_RtfToText.dpr + + + + + MainSource + + + + + diff --git a/Database/udfs/udf_RtfToText.drc b/Database/udfs/udf_RtfToText.drc index 0375cb35..433507d3 100644 --- a/Database/udfs/udf_RtfToText.drc +++ b/Database/udfs/udf_RtfToText.drc @@ -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 */