Changeset 260


Ignore:
Timestamp:
Sep 28, 2007, 8:15:53 PM (18 years ago)
Author:
RBRi
Message:

small cleanup

Location:
trunk/Library
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Library/ACLLibraryTestForm.pas

    r206 r260  
    77  StdCtrls,
    88  ACLFileIOUtility,
    9   ACLFindFunctions,
    109  ACLUtility,
    1110  PCharList,

  • trunk/Library/ACLtest.spr

    r202 r260  
    11[Application Options]
    22
    3 ApplicationIcon=
     3ApplicationIcon=D:\PROGS\SIBYL\BIN\default.ico
    44
    55[Browser Files]
    … …  
    3333File26=STRINGUTILSUNIT
    3434File27=ACLFILEIOUTILITY
    35 File28=ACLFINDFUNCTIONS
    36 File29=PCHARLIST
    37 File30=ACLRESOURCEUTILITY
    38 File31=ACLVERSIONUTILITYUNIT
    39 File32=SEMAPHORES
    40 File33=SHAREDMEMORYUNIT
    41 File34=BSEDEV
    42 File35=FILEUTILSUNIT
    43 File36=ACLSTRING
    44 File37=ASTRINGUTILITYUNIT
    45 File38=RUNPROGRAMUNIT
    46 File39=ACLLIBRARYTESTFORM
     35File28=PCHARLIST
     36File29=ACLRESOURCEUTILITY
     37File30=ACLVERSIONUTILITYUNIT
     38File31=SEMAPHORES
     39File32=SHAREDMEMORYUNIT
     40File33=BSEDEV
     41File34=FILEUTILSUNIT
     42File35=ACLSTRING
     43File36=ASTRINGUTILITYUNIT
     44File37=RUNPROGRAMUNIT
     45File38=ACLLIBRARYTESTFORM
    4746
    4847[Compiler Options]
    … …  
    7473[Directories]
    7574
    76 LastDir=P:\NEWVIEW_DEV\Library
    77 OutDir=P:\newview_dev\build\newview
     75LastDir=P:\newview_dev\build\library
     76OutDir=P:\newview_dev\build\library
    7877LibDir=P:\newview_dev\build\sibyl\lib;P:\newview_dev\build\components;P:\newview_dev\build\library
    7978LibSrcDir=P:\newview_dev\sibyl\spcc;P:\newview_dev\sibyl\rtl;P:\newview_dev\library;P:\newview_dev\components
    … …  
    8382[Find History]
    8483
    85 Find0=Check
    86 Find1=AddAndResize
    87 Find2=GetMaskedFilesForDir
    88 Find3=StrRightFrom
     84Find0=TTerminateCheck
     85Find1=TerminateCheck
     86Find2=Check
     87Find3=AddAndResize
     88Find4=GetMaskedFilesForDir
     89Find5=StrRightFrom
    8990
    9091[General]
    … …  
    100101Platform=OS/2
    101102
     103[Last Closed Files]
     104
     105File0=.\RunProgramUnit.pas
     106
    102107[Last Open Files]
    103108
    104109File0=.\ACLUtility.pas
    105110File0.Left=-4
    106 File0.Bottom=-5
    107 File0.Width=1399
     111File0.Bottom=-4
     112File0.Width=1296
    108113File0.Height=629
    109 File0.Column=33
    110 File0.Line=4
     114File0.Column=14
     115File0.Line=141
    111116File1=.\StringUtilsUnit.pas
    112117File1.Left=-4
    113 File1.Bottom=-5
    114 File1.Width=1399
     118File1.Bottom=-4
     119File1.Width=1296
    115120File1.Height=629
    116 File1.Column=1
    117 File1.Line=46
    118 File2=..\.\NewView\unittests\StringUtilsUnitTests.pas
     121File1.Column=7
     122File1.Line=984
     123File2=.\ACLFileIOUtility.pas
    119124File2.Left=-4
    120 File2.Bottom=-5
    121 File2.Width=1399
     125File2.Bottom=-4
     126File2.Width=1296
    122127File2.Height=629
    123128File2.Column=1
    124 File2.Line=446
    125 File3=.\ACLStringUtility.pas
     129File2.Line=41
     130File3=.\CharUtilsUnit.pas
    126131File3.Left=-4
    127 File3.Bottom=-5
    128 File3.Width=1399
     132File3.Bottom=-4
     133File3.Width=1296
    129134File3.Height=629
    130 File3.Column=1
    131 File3.Line=1163
    132 File4=.\ACLFileIOUtility.pas
     135File3.Column=31
     136File3.Line=109
     137File4=.\ACLLibraryTestForm.pas
    133138File4.Left=-4
    134 File4.Bottom=-5
    135 File4.Width=1399
     139File4.Bottom=-4
     140File4.Width=1296
    136141File4.Height=629
    137 File4.Column=1
    138 File4.Line=41
    139 File5=.\CharUtilsUnit.pas
     142File4.Column=87
     143File4.Line=141
     144File5=.\ACLLibrary.pas
    140145File5.Left=-4
    141 File5.Bottom=-5
    142 File5.Width=1399
     146File5.Bottom=-4
     147File5.Width=1296
    143148File5.Height=629
    144 File5.Column=31
    145 File5.Line=109
    146 File6=.\ACLLibraryTestForm.pas
     149File5.Column=38
     150File5.Line=4
     151File6=.\AStringUtilityUnit.pas
    147152File6.Left=-4
    148 File6.Bottom=-5
    149 File6.Width=1399
     153File6.Bottom=-4
     154File6.Width=1296
    150155File6.Height=629
    151156File6.Column=1
    152 File6.Line=10
     157File6.Line=212
     158File7=.\FileUtilsUnit.pas
     159File7.Left=-4
     160File7.Bottom=-4
     161File7.Width=1296
     162File7.Height=629
     163File7.Column=26
     164File7.Line=1057
    153165
    154166[Linker Options]
    … …  
    178190
    179191SCUName=.\ACLLibrary.scu
    180 MainForm=
     192MainForm=ACLLibraryTestForm
    181193
    182194[Win32 Application Options]

  • trunk/Library/AStringUtilityUnit.pas

    r17 r260  
    139139  AtPos: longint;
    140140  SecondAtPos: longint;
    141   DotPos: longint;
    142141begin
    143142  result := false;
    … …  
    211210procedure TrimPunctuation( s: TAString );
    212211var
    213   c: char;
    214212  ChangesMade: boolean;
    215213begin
Note: See TracChangeset for help on using the changeset viewer.