Go to most recent revision | Blame | Last modification | View Log | RSS feed
ß È °¨:^ñ <p Functions.pas±g: dExtCtrlsÈCÒï fTImageóû9gTImage.GetCanvasë¾v]cdClassesÈCÒï fTStringListÌæ~8g.TStringList³tñcdGraphicsÈCÒï fTColor£æ<g TPen.GetColor$î
egTBrush.GetColorYGóg TPen.SetColor%î
egTBrush.SetColorYGógTCanvas.RectangleJKØjcdDialogsÈCÒï gShowMessage«¨Ê¨cdSysUtilsÈCÒï gExtractFileNamexÝgExtractFileExtxÝg
EncodeTimeÓîùëg TimeToStrÕ¸ÆgStrPosä¾g
FileExists°üêgFormatùÕðùg StringReplace04¿f.94ÿÿÿÿgrfReplaceAllrq"¥cdSysInitÈCÒï g HInstanceF<cdSystemÈCÒï fStringÔÿ×f
AnsiStringÔÿ×fInteger¶¨§ fExtended@fBooleanW~8gCopy gLength g@LStrLenÌg @LStrCopyEóag@LStrAddRefö³jg @LStrArrayClrzY´g@HandleFinallyEóaf TDateTimepÙ¿gDec gInc gRound g@ROUNDEóagTObject.Create¬Gg @LStrLAsg4µg@LStrClrѨ}µfPCharrugg@LStrToPCharfñÐÕg@LStrFromPCharVPDTfTextFileÃç²g LoadResString!ãgExit g
AssignFile g@AssignìjtgReset g
@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
c4ExtCtrls c .1f 2LNG_COULD_NOT_OPEN_FILE %. Dÿÿÿÿ Could not open file "%s". (ExtractFileNameWithoutExtxÝ !filenamefø#Resultc(SecondsToTimeStringÌ !Seconds #Result h m s timf c(
ClearImage±ï¹ç - !Image!BackgroundColor OldPenColor
OldBrushColorc(
Ganzzahlig?k P!num& Result c(Explode/â³ ]! Separatorfø!Textfð Result pos tmpfèc(Position õÜ i!
FullStringfø!Searchfð Result xc(ReadFilexÝ ! InputFilefø#Result ff±ø tmpfðc(RemoveLineBreaksxÝ ñ!inpfø#Resultc(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üè