ئhGxF g .TStringList<*gTStrings.SetCommaTextH*cdSysUtilsZkf TSearchRecbg FindFirstlgExpandFileName~ g faAnyFileDСg FindClosegFindNextrgTrim~ cdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfString8f AnsiString8fLongint|ofInteger|ofBooleanNcg@InitializeRecordX,Tdg@LStrClrg@FinalizeRecordX,Tdg@HandleFinallyX,Tdg @LStrCat3X,TdfTextFileFMfChargQfRealBYrPgFalse1og AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgStrg@Str2ExtX,TdgTObject.Create݋RgTrue1ogReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgIncgRoundg CloseFileg@CloseX,Tdg TObject.Free݋Rg@_IOTestX,Tdg@LStrFromString|g @LStrCatNX,Tdg @VarFromLStrjg@ROUNDX,Tdg@HandleAnyExceptionX,Tdg @RaiseAgainX,Tdg @DoneExceptX,Tdg@VarClrX,Tdg @LStrArrayClrX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesc .1f( GetFileSize!FileName  Result SearchRecfc( GetFileList#!sPath !sMask " slFileList FileInfof sFileSpecf cj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CFk(Import[h!!FName ! nFieldCheckb!sFieldValueListb ! InPartOfField" !DST&!D& Result nFileSize InputTextFilef InputTextFileBufferf  sCaptionf ReadStringf ConvertStringf nFieldNumber nFieldsRead nProgressCountedf nFieldCountf Progressf nCountf nSoFar nFactorf lCheckFieldValuesf lSaveToTablef lResultCodef lPartOfFieldfc( FinalizationX,Td\! c( FileFunctions!cD@L@"D}t4UE0V E3EҀ}t[;]~]E |EF3ۍӋE8W PE @$ZCNuEEE;~=EM;~EU3E3ҋEUgE3ZYYdEEE3ZYYdh+EE؊]3ZYYdhkEЋ_^[] BReading The Input Text File A Reading (MB) ...U3Uh%d0d 3ZYYdh,]Ã-m8 @&$,"4(B D F> @$H&"8*( DB F̖& Z*T,X\   <8` , ( b@hj nr *",vX,vFT(8 " "hj r 6   ~  F$  F F BfN| l.rT& @ , " x<H )  |, <0&*  %D`q2fqp2lll aLpRΪI    M m   a