paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: cleandir: searching for full extension

Browse Source 
git-svn-id: trunk@25962 -
This commit is contained in:
mattias 2010-06-08 07:05:17 +00:00
parent 48e0180fae
commit d57d790cfc
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
examples/cleandir/confcleandirs.lpi
View File

@ -1,22 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<AutoCreateForms Value="False"/> <AutoCreateForms Value="False"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Configure directory cleaner"/> <Title Value="Configure directory cleaner"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
</General> </General>
<VersionInfo> <VersionInfo>
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<CurrentVersionNr Value="1"/> <MajorVersionNr Value="1"/>
<ProjectVersion Value=""/> <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="1.0.0.0" InternalName="" LegalCopyright="GPL" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
<LegalCopyright Value="GPL"/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -51,16 +51,14 @@
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="frmmain.pp"/> <Filename Value="frmmain.pp"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="frmmain.lrs"/> <ComponentName Value="MainForm"/>
<UnitName Value="frmmain"/> <UnitName Value="frmmain"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="frmlog.pp"/> <Filename Value="frmlog.pp"/>
<ComponentName Value="LogForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="frmlog.lrs"/> <ComponentName Value="LogForm"/>
<UnitName Value="frmlog"/> <UnitName Value="frmlog"/>
</Unit3> </Unit3>
</Units> </Units>

1
examples/cleandir/dircleaner.pp
View File

@ -438,6 +438,7 @@ begin
system.Delete(Ext,1,1); system.Delete(Ext,1,1);
if Not CaseSensitive then if Not CaseSensitive then
Ext:=UpperCase(Ext); Ext:=UpperCase(Ext);
Ext:=' '+Ext+' ';
FileNameFits:=Pos(Ext,FWorkExt)<>0; FileNameFits:=Pos(Ext,FWorkExt)<>0;
end; end;