paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 03:19:32 +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"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="6"/>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<AutoCreateForms Value="False"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="Configure directory cleaner"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<UseVersionInfo Value="True"/>
<CurrentVersionNr Value="1"/>
<ProjectVersion Value=""/>
<LegalCopyright Value="GPL"/>
<MajorVersionNr Value="1"/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="1.0.0.0" InternalName="" LegalCopyright="GPL" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -51,16 +51,14 @@
</Unit1>
<Unit2>
<Filename Value="frmmain.pp"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="frmmain.lrs"/>
<ComponentName Value="MainForm"/>
<UnitName Value="frmmain"/>
</Unit2>
<Unit3>
<Filename Value="frmlog.pp"/>
<ComponentName Value="LogForm"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="frmlog.lrs"/>
<ComponentName Value="LogForm"/>
<UnitName Value="frmlog"/>
</Unit3>
</Units>

1
examples/cleandir/dircleaner.pp
View File

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