Delphi: How to process multiple files? -


How can I create a program to read the first file in Delphi 2007 and then turn it off to read the other Can I last file?

Are you trying to read every file in a directory? Try this square. This is not my original code, but I have modified it a bit more. It gives you all the filenames that match the criteria that you set in a string list that you can do with TFilestream. 

  unit search file; Uses interface classes; Type TFileAttrKind = (ffaReadOnly, ffaHidden, ffaSysFile, ffa directory, ffaArchive, ffaAnyFile); TFileAttr = TFileAttrKind set; TFindFile = Class (Tubect) Private S: TStringList; FSubFolder: Boolean; FAttr: TFileAttr; FPath: string; FBasePath: string; FFileMask: string; FDepth: integer; Process set path (value: string); Process file search (located in path: string); Function lotus (value: string): string; Create Public Builders (Path: String); Destruction of Destruction; Override; Function SearchForFile: TStringList; Property FileArt: TFFileAttri FATT for writing FATR; Property InSubFolders: boolean fSubFolder write fSubFolder; Property Path: Setting Path Reading FPath SetPath; Property File Mask: Read the string fFileMask; fFileMask; End; The implementation uses {$ WARN SYMBOL_PLATFORM OFF} {$ WARN UNIT_PLATFORM OFF} Windows, SysUtils, FileCtrl; Manufacturer TFindFile.Create (Path: String); Start the heritage; Create; FPath: = Path; FBasePath: = Path; File Mask: = '*. * '; FileAttr: = [ffaReadOnly, ffa directory, ffaArchive]; S: = TStringList.Create; FDepth: = -1; End; Process TFindFile.SetPath (value: string); Get started if fPath & lt; & Gt; The value starts when (value <> ">" and "DirectoryExists") then fpath: = IncludeTrailingPathDelimiter (value); End; End; TFindFile.SearchForFiles: TStringList function; Start S Try FileSearch (Path); Finally results: = s; End; End; Function TFindFile.cull (value: string): string; The result starts: = string replay (value, FBasePath, '', []); End; Destructor TFindFile.Destroy; Start s.Free; Destroys inheritance; End; Process TFindFile.FileSearch (const InPath: string); Var Rick: TSearchRec; Attr: integer; Initiation (FDeep); Try Attry: = 0; If ffaReadOnly in FileAttr, then Attr: = Attr + faReadOnly; If ffaHidden entry in fileart: = Attr + faHidden; If ffaSysFile in FileArt then Attr: = Attr + faSysFile; If FFA Directory in FileArt then Attr: = Attr + faDirectory; If FFARHV is etRR: = Etror + FARKV in FileArt; If ffaAnyFile in the file ATR, then Attr: = Attr + faAnyFile; If SysUtils.FindFirst (InPath + FileMask, Attr, Rec) = 0 then try to repeat if (Rec.Name = '.') Or (Rec.Name = '..') then continue; S.Add (cull (inPath) + Rec.Name); Unless SysUtils.FindNext (REC) & lt; & Gt; 0; Finally SysUtils.FindClose (REC); End; If not inSubFolders exit; If SysUtils.FindFirst (inPath + '*. *', FaDirectory, Rec) = 0 then try to repeat again ((Rec.Attr and faDirectory) <0> and (Rec.Name & lt; Gt; '.') And (rec.nm <> '..') then start searching the file (TrailingPathDelimiter (inPath + Rec.Name)); End; Unless SysUtils.FindNext (REC) & lt; & Gt; 0; Finally SysUtils.FindClose (REC); End; Eventually, the DCD (FDP); End; End; End.

Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more