Subversion Repositories delphiutils

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

# J<^ñ˜BinarySafeReplace–<pBinarySafeReplace.pas–Ž‘;dSystemfstring¶+{Ÿf
AnsiString¶+{ŸfInteger       ™fÂgExitgUniqueStringU”3gLengthg@LStrLenrÅXŸ[û
gTruevɚøgBreakgPredg        SetLengthg@LStrSetLengthé`pÅgMove=Éiðg@UniqueStringAAKygIncfBooleanúefPLongintˊÉg@LStrToPChar$ÉÇg       @LStrLAsg‘Ԝg@LStrAsg‘Ԝg@LStrClr\ª«>g@HandleFinallyé`pÅfTObject|ê®ìgTObject.Free¢
ĄcdSysInitcdStrUtilscdSysUtilsg
FileExists'h'&gForceDirectories'h'&gExtractFilePathӢ}Gg
fmOpenRead¬}ç1gfmShareDenyWrite~ç1cdClassesfTFileStream4¸îµg.TFileStreamŒÌgTFileStream.CreateZØNgTStream.SetPositionÒïf
THandleStreamçõ]'gfmCreate*r2cePosExg_PosExšB‘c5BinarySafeReplace€_¸ŽÏc5Systemc5SysInit6c5StrUtils8c5SysUtils:c5ClassesFc7.1F5PosExTc(StringReplacesBinarySafe€CaìÈ­  "AString!ASearchPatternb!AReplaceWithb Resultf iPos lastposf       ueberhang
 . . .f  .f( .f0 .f8 .f@ .fH .fP . .fX .f` .fh .fp .fx .f .fc(StringReplaceBinarySafe€ÔM%Ä!AString!ASearchPattern!AReplaceWith
#Result& tmpføc(BinarySafeReplaceFileContents€93÷,é!
AInputFile!AOutputFilebð!ASearchPatternbè!AReplaceWith" Resultfà fstfØ strfø .c(Finalization€é`pÅ\!cž(BinarySafeReplace€!cžþD€ÿÿÿ E@lõSVWUƒÄ¸‰L$‰$‹Ø3À‰D$ƒ;„@ƒ<$„6‹Ãè‹D$…Àtƒè‹‹$…Òtƒê‹‹ø+úÇD$‹‹L$‹$è‹ð…öŽòƒ|$uR‹‰D$‹D$‰D$ƒ|$t
‹D$ƒè‹‰D$‹D$‰D$ƒ|$t
‹D$ƒè‹‰D$‹ÆH‹T$+T$B;™…ÿ~w‹‰D$‹D$‰D$ ƒ|$ t
‹D$ ƒè‹‰D$ ‹T$ ׋Ã苉D$$‹D$$‰D$(ƒ|$(t
‹D$(ƒè‹‰D$(‹Ãè7DÿP‹ÃèD0ÿ‹L$,+ÎZè‹l$…ítƒí‹m‹ÃèD0ÿP‹D$è‹ÍZè…ÿÚ‹$‰D$,ƒ|$,t
‹D$,ƒè‹‰D$,‹D$‰D$0ƒ|$0t
‹D$0ƒè‹‰D$0‹‰D$4‹D$4‰D$8ƒ|$8t
‹D$8ƒè‹‰D$8‹D$‰D$<ƒ|$<t
‹D$<ƒè‹‰D$<‹Ãè‹T$0֍DÿP‹Ãè‹T$0֍Dÿ‹L$<+Î+L$@Z苉D$@‹D$@‰D$Dƒ|$Dt
‹D$Dƒè‹‰D$D‹T$D׋ÃèƒÏÿD7‰D$ÿD$éöýÿÿ‹D$ƒÄH]_^[ÃU‹ìjSVW‹ù‹ò‹Ø3ÀUhSdÿ0d‰ Eü‹ÓèEü‹Ï‹Öè‹E‹Uüè3ÀZYYd‰hZEüèÃéëð_^[Y]ÂU‹ìƒÄèS3ۉ]è‰]ü‰Mô‰Uø‹Ø3ÀUhidÿ0d‰ ÇEðÿÿÿÿ‹Ãè„À„Uè‹Eøè‹Eèè„À„õj ‹Ë²¡è‰Eì3ÀUhÅdÿ0d‰ jj‹Eìè‹Eì‹ÿ‹ÐEüè‹Eì‹ÿPEüè‹Ð‹EìY‹ÿS3ÀZYYd‰h̋EìèÃéëðEü‹M‹Uôè‰Eðhÿÿ‹Mø²¡è‰Eì3ÀUhDdÿ0d‰ jj‹Eìè‹]ü…Ûtƒë‹Eüè‹Ð‹Ë‹Eì‹ÿS3ÀZYYd‰hK‹EìèÃéëð3ÀZYYd‰hpEèèEüèÃéëè‹Eð[‹å]ÂU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-ÃmrhXfVYR   * ( $ 4^Hš$š *h,š.0¦6¦(<&@>&J
L¦$N"  0¦40 h$J
L¦$N( 2¦40¦..0 ¸¸d¸0d
\F : ¤^V¡^Î6

8JJ6&"P ".Z º‘撓6>h<š&–¦.¨j<l<n<p>r@tBvDœ–ž– –¢˜¤š¨¨ª¨¬¨®¨°ª²¬´®P
ýÄ2ýÈÜPýظä”4h ðj vš
rÊv-  þv9    
rY      þj}    þv}    þš€pœ8ž8 8
œLþždþ dþ¦@0R¨J¨Òþ¸  a