Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 1 | ß È °¨:^ñ <p Functions.pas±g: dExtCtrlsÈCÒï fTImageóû9gTImage.GetCanvasë¾v]cdClassesÈCÒï f TStringListÌæ~8g .TStringList³tñcdGraphicsÈCÒï fTColor£æ<g TPen.GetColor$î |
| 2 | egTBrush.GetColorYGóg TPen.SetColor%î |
||
| 3 | egTBrush.SetColorYGógTCanvas.RectangleJKØjcdDialogsÈCÒï g ShowMessage«¨Ê¨cdSysUtilsÈCÒï gExtractFileNamexÝgExtractFileExtxÝg |
||
| 4 | EncodeTimeÓîùëg TimeToStrÕ¸ÆgStrPosä¾g |
||
| 5 | FileExists°üêgFormatùÕðùg StringReplace04¿f.94ÿÿÿÿg rfReplaceAllrq"¥cdSysInitÈCÒï g HInstanceF<cdSystemÈCÒï fStringÔÿ×f |
||
| 6 | AnsiStringÔÿ×fInteger¶¨§ fExtended@fBooleanW~8gCopy gLength g@LStrLenÌg @LStrCopyEóag @LStrAddRefö³j g @LStrArrayClrzY´g@HandleFinallyEóaf TDateTimepÙ¿gDec gInc gRound g@ROUNDEóagTObject.Create¬Gg @LStrLAsg4µg@LStrClrѨ}µfPCharrugg @LStrToPCharfñÐÕg@LStrFromPCharVPDTfTextFileÃç²g LoadResString!ã gExit g |
||
| 7 | AssignFile g@AssignìjtgReset g |
||
| 8 | @ResetTextR#µDgEof g@EofTextw)ågReadln g @ReadLString ÑÄg@ReadLnrɳØg CloseFile g@CloseR#µDg@_IOTestEóag @LStrCatNEóag@LStrAsg4µc4 Functionsiif@c4SysUtils "c4Dialogs c4Graphics c4Classes |
||
| 9 | c4ExtCtrls c .1f 2LNG_COULD_NOT_OPEN_FILE %. Dÿÿÿÿ Could not open file "%s". (ExtractFileNameWithoutExtxÝ !filenamef ø#Result c(SecondsToTimeStringÌ !Seconds #Result h m s timf c( |
||
| 10 | ClearImage±ï¹ç - !Image!BackgroundColor OldPenColor |
||
| 11 | OldBrushColor c( |
||
| 12 | Ganzzahlig?k P!num& Result c(Explode/â³ ]! Separatorf ø!Textf ð Result pos tmpf èc(Position õÜ i! |
||
| 13 | FullStringf ø!Searchf ð Result xc(ReadFilexÝ ! InputFilef ø#Result ff±ø tmpf ðc(RemoveLineBreaksxÝ ñ !inpf ø#Result c( FinalizationEóa \! c( Functions ! cþD ÿÿÿP@ l© UìÄøS3ÉMøÚEüEüè 3ÀUhx dÿ0d ÓEüè SUøè Eøè Pè ÈX+Ⱥ è 3ÀZYYdh Eøº è Ãé ëë[YY]ÃSVÄøò3Ò3Éë- BØë yðëè<AØë<yõj Êè Ý $ÿt$ÿt$Æè YZ^[ÃSVWUòØÃè @è øÃè @è èÃè @Öè Ãè @Öè CHPCLPÃè 3É3Òè Ãè @×è Ãè @Õè ]_^[ÃUìÄøÛmè EøUüßmøÛmÞÙßàÀYY] UìÄôSV3ÉMôUøEüEüè Eøè 3ÀUhÈ dÿ0d ²¡ è ðë`UüEøè ØûÿuEôUøè Eøè ë/EôPËIº Eøè EøPEøè È+ËSEøè UôÆÿQ8Eøè À3ÀZYYdhÏ Eôº è Ãé ëëÆ^[å]ÃUìÄôS3ÉMôUøEüEüè Eøè 3ÀUh dÿ0d Eøè PEüè Zè ÐEôè Eôè Ø ÛuËÿë Eüè +Ã@Ø3ÀZYYdh Eôº è Ãé ëëÃ[å]ÃUìÄ þÿÿSV3É(þÿÿ$þÿÿMøÚEüEüè µ,þÿÿ3ÀUh$ dÿ0d Ãè Eüè ÀuI (þÿÿP$þÿÿ¸ è $þÿÿPEü þÿÿÆ þÿÿ þÿÿ3ÉXè (þÿÿè ë`UüÆè Æè è ë,UøÆè Æè è ÿ3ÿuøh< ú è Æè è ÀtÄÆè è 3ÀZYYdh+ $þÿÿº è Eøº è Ãé ëÛ^[å]à ÿÿÿÿ |
||
| 14 | Uìj j j SÚEüEüè 3ÀUh dÿ0d PEøP3ɺ¬ Eüè UøEüè PEôP3ɺ¸ Eüè UôEüè ÃUüè 3ÀZYYdh Eôº è Ãé ëë[å]à ÿÿÿÿ ÿÿÿÿ |
||
| 15 | Uì3ÀUh% dÿ0d ÿ 3ÀZYYdh, Ãé ëø]Ã- ÃmÜ : *P $&LL"N R T¦`(&*´ ¾^<Ä.PPÄ |
||
| 16 | ` Ð$bd,NL N$L"ÄR T Ð,PPÐ hh ,jL&L$ÐR TÚJP Úd., |
||
| 17 | nJ0 tx |
||
| 18 | |||
| 19 | Ú| |
||
| 20 | |
||
| 21 | Ú RR T6ä&Päää2b |
||
| 22 | ää2bäR TRêêê T .N |
||
| 23 | |||
| 24 | |||
| 25 | |||
| 26 | """"0"" |
||
| 27 | 8 b |
||
| 28 | (6â"` |
||
| 29 | `V |
||
| 30 | b |
||
| 31 | z ,ú, |
||
| 32 | |*JHHX¢ 1 P` ,¦ 8´ l¾ Ä Ð ÄÚ Úä (¢ ,¤ .¨ 8ª :¬ <® <° <² >¶ l¸ lº p¼ pÀ Â Æ È Ê Ì Î Ò ÄÔ ÄÖ ÆØ ÈÜ ÚÞ Üà Þâ àæ è ê -p @ 2¤N¤þþ¦À 0 ¨ ª¬®° ¨þ°pþ¬pþ®pþªþ´ 𠶸º2 |
||
| 33 | ¼T ¸þºêþ¶þ¼þ¾ Ä 02ÊÌ̦þÌÐÌ]þÊEþÐ` 2ضؾþØÈØUþÚ` 02ÞzÞ þÞeÞµþä@ 2èJèeþê a |