Menu
▾
▴
[Jcl-checkins-diff] SF.net SVN: jcl: [2226] branches/code_format
|
From: <ou...@us...> - 2007-11-15 17:36:15
|
Revision: 2226
http://jcl.svn.sourceforge.net/jcl/?rev=2226&view=rev
Author: outchy
Date: 2007-11-15 09:36:08 -0800 (Thu, 15 Nov 2007)
Log Message:
-----------
Test with JCF 2.32
Modified Paths:
--------------
branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas
branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoGuidForm.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoMain.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoStringsForm.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoTableForm.pas
branches/code_format/jcl/examples/windows/clr/ClrDemoUserStringsForm.pas
branches/code_format/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas
branches/code_format/jcl/examples/windows/debug/reportconverter/formConverter.pas
branches/code_format/jcl/examples/windows/debug/sourceloc/SourceLocDemoMain.pas
branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas
branches/code_format/jcl/examples/windows/delphitools/common/About.pas
branches/code_format/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas
branches/code_format/jcl/examples/windows/delphitools/common/FindDlg.pas
branches/code_format/jcl/examples/windows/delphitools/common/SHDocVw_TLB.pas
branches/code_format/jcl/examples/windows/delphitools/common/ToolsUtils.pas
branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/DependViewMain.pas
branches/code_format/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeDump.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeGenDef.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResView.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeResource.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerControl.pas
branches/code_format/jcl/examples/windows/delphitools/peviewer/PeViewerMain.pas
branches/code_format/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
branches/code_format/jcl/examples/windows/delphitools/screenjpg/Main.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ChangePriority.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Global.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/Main.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ModulesDump.pas
branches/code_format/jcl/examples/windows/delphitools/toolhelpview/ViewTemplate.pas
branches/code_format/jcl/examples/windows/edisdk/EDICOMExampleMain.pas
branches/code_format/jcl/examples/windows/edisdk/EDISDK_TLB.pas
branches/code_format/jcl/examples/windows/edisdk/comserver/EDISDK_TLB.pas
branches/code_format/jcl/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas
branches/code_format/jcl/examples/windows/filesummary/FileSummaryDemoMain.pas
branches/code_format/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
branches/code_format/jcl/examples/windows/lanman/LanManDemoMain.pas
branches/code_format/jcl/examples/windows/locales/LocalesDemoMain.pas
branches/code_format/jcl/examples/windows/mapi/MapiDemoMain.pas
branches/code_format/jcl/examples/windows/multimedia/MultimediaDemoMain.pas
branches/code_format/jcl/examples/windows/ntfs/SoftLinkDragDropHandler.pas
branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoDependent.pas
branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoGroups.pas
branches/code_format/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
branches/code_format/jcl/examples/windows/peimage/ApiHookDemoMain.pas
branches/code_format/jcl/examples/windows/peimage/UnmangleNameDemoMain.pas
branches/code_format/jcl/examples/windows/registry/RegistryDemoMain.pas
branches/code_format/jcl/examples/windows/structstorage/HexDump.pas
branches/code_format/jcl/examples/windows/structstorage/PropsFrm.pas
branches/code_format/jcl/examples/windows/structstorage/StructStorageExampleMain.pas
branches/code_format/jcl/examples/windows/sysinfo/SysInfoDemoMain.pas
branches/code_format/jcl/examples/windows/tasks/TaskDemoDataModule.pas
branches/code_format/jcl/examples/windows/tasks/TaskDemoMain.pas
branches/code_format/jcl/examples/windows/widestring/WideStringDemoMain.pas
branches/code_format/jcl/experts/common/JclOtaActionConfigureSheet.pas
branches/code_format/jcl/experts/common/JclOtaConfigurationForm.pas
branches/code_format/jcl/experts/common/JclOtaConsts.pas
branches/code_format/jcl/experts/common/JclOtaExceptionForm.pas
branches/code_format/jcl/experts/common/JclOtaResources.pas
branches/code_format/jcl/experts/common/JclOtaUtils.pas
branches/code_format/jcl/experts/common/JclOtaWizardForm.pas
branches/code_format/jcl/experts/common/JclOtaWizardFrame.pas
branches/code_format/jcl/experts/debug/JclDebugThread.pas
branches/code_format/jcl/experts/debug/converter/JclDebugIdeImpl.pas
branches/code_format/jcl/experts/debug/converter/JclDebugIdeResult.pas
branches/code_format/jcl/experts/debug/dialog/ClxExceptDlg.pas
branches/code_format/jcl/experts/debug/dialog/ExceptDlg.pas
branches/code_format/jcl/experts/debug/dialog/ExceptDlgMail.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgFileFrame.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgRepository.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgTraceFrame.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgWizard.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryReg.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaRepositoryUtils.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaTemplates.pas
branches/code_format/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
branches/code_format/jcl/experts/debug/simdview/JclSIMDModifyForm.pas
branches/code_format/jcl/experts/debug/simdview/JclSIMDUtils.pas
branches/code_format/jcl/experts/debug/simdview/JclSIMDView.pas
branches/code_format/jcl/experts/debug/simdview/JclSIMDViewForm.pas
branches/code_format/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas
branches/code_format/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas
branches/code_format/jcl/experts/debug/threadnames/ThreadExpertUnit.pas
branches/code_format/jcl/experts/debug/tools/MapToJdbgMain.pas
branches/code_format/jcl/experts/debug/tools/TlbToMapMain.pas
branches/code_format/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas
branches/code_format/jcl/experts/favfolders/OpenDlgFavAdapter.pas
branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas
branches/code_format/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas
branches/code_format/jcl/experts/useswizard/JCLUsesWizard.pas
branches/code_format/jcl/experts/useswizard/JclParseUses.pas
branches/code_format/jcl/experts/useswizard/JclUsesDialog.pas
branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas
branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
branches/code_format/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas
branches/code_format/jcl/experts/versioncontrol/VersionControlImpl.pas
branches/code_format/jcl/install/JclInstall.pas
branches/code_format/jcl/install/JediInstall.pas
branches/code_format/jcl/install/JediInstallConfigIni.pas
branches/code_format/jcl/install/JediProfiles.pas
branches/code_format/jcl/install/VclGui/FrmCompile.pas
branches/code_format/jcl/install/VclGui/JediGUIProfiles.pas
branches/code_format/jcl/install/prototypes/JediGUIInstall.pas
branches/code_format/jcl/install/prototypes/JediGUIMain.pas
branches/code_format/jcl/source/common/Jcl8087.pas
branches/code_format/jcl/source/common/JclAbstractContainers.pas
branches/code_format/jcl/source/common/JclAlgorithms.pas
branches/code_format/jcl/source/common/JclAnsiStrings.pas
branches/code_format/jcl/source/common/JclArrayLists.pas
branches/code_format/jcl/source/common/JclArraySets.pas
branches/code_format/jcl/source/common/JclBase.pas
branches/code_format/jcl/source/common/JclBinaryTrees.pas
branches/code_format/jcl/source/common/JclBorlandTools.pas
branches/code_format/jcl/source/common/JclComplex.pas
branches/code_format/jcl/source/common/JclCompression.pas
branches/code_format/jcl/source/common/JclContainerIntf.pas
branches/code_format/jcl/source/common/JclCounter.pas
branches/code_format/jcl/source/common/JclDateTime.pas
branches/code_format/jcl/source/common/JclEDI.pas
branches/code_format/jcl/source/common/JclEDISEF.pas
branches/code_format/jcl/source/common/JclEDITranslators.pas
branches/code_format/jcl/source/common/JclEDIXML.pas
branches/code_format/jcl/source/common/JclEDI_ANSIX12.pas
branches/code_format/jcl/source/common/JclEDI_ANSIX12_Ext.pas
branches/code_format/jcl/source/common/JclEDI_UNEDIFACT.pas
branches/code_format/jcl/source/common/JclEDI_UNEDIFACT_Ext.pas
branches/code_format/jcl/source/common/JclExprEval.pas
branches/code_format/jcl/source/common/JclFileUtils.pas
branches/code_format/jcl/source/common/JclHashMaps.pas
branches/code_format/jcl/source/common/JclHashSets.pas
branches/code_format/jcl/source/common/JclLinkedLists.pas
branches/code_format/jcl/source/common/JclLogic.pas
branches/code_format/jcl/source/common/JclMIDI.pas
branches/code_format/jcl/source/common/JclMath.pas
branches/code_format/jcl/source/common/JclMime.pas
branches/code_format/jcl/source/common/JclPCRE.pas
branches/code_format/jcl/source/common/JclQueues.pas
branches/code_format/jcl/source/common/JclRTTI.pas
branches/code_format/jcl/source/common/JclResources.pas
branches/code_format/jcl/source/common/JclSchedule.pas
branches/code_format/jcl/source/common/JclSimpleXml.pas
branches/code_format/jcl/source/common/JclSortedMaps.pas
branches/code_format/jcl/source/common/JclStacks.pas
branches/code_format/jcl/source/common/JclStatistics.pas
branches/code_format/jcl/source/common/JclStrHashMap.pas
branches/code_format/jcl/source/common/JclStreams.pas
branches/code_format/jcl/source/common/JclStringLists.pas
branches/code_format/jcl/source/common/JclStrings.pas
branches/code_format/jcl/source/common/JclSysInfo.pas
branches/code_format/jcl/source/common/JclSysUtils.pas
branches/code_format/jcl/source/common/JclUnitConv.pas
branches/code_format/jcl/source/common/JclUnitVersioning.pas
branches/code_format/jcl/source/common/JclUnitVersioningProviders.pas
branches/code_format/jcl/source/common/JclValidation.pas
branches/code_format/jcl/source/common/JclVectors.pas
branches/code_format/jcl/source/common/JclWideStrings.pas
branches/code_format/jcl/source/common/bzip2.pas
branches/code_format/jcl/source/common/pcre.pas
branches/code_format/jcl/source/prototypes/Hardlinks.pas
branches/code_format/jcl/source/prototypes/JclArrayLists.pas
branches/code_format/jcl/source/prototypes/JclArraySets.pas
branches/code_format/jcl/source/prototypes/JclBinaryTrees.pas
branches/code_format/jcl/source/prototypes/JclHashMaps.pas
branches/code_format/jcl/source/prototypes/JclHashSets.pas
branches/code_format/jcl/source/prototypes/JclLinkedLists.pas
branches/code_format/jcl/source/prototypes/JclVectors.pas
branches/code_format/jcl/source/prototypes/JclWin32.pas
branches/code_format/jcl/source/prototypes/_GraphUtils.pas
branches/code_format/jcl/source/prototypes/_Graphics.pas
branches/code_format/jcl/source/prototypes/zlibh.pas
branches/code_format/jcl/source/unix/zlibh.pas
branches/code_format/jcl/source/vcl/JclFont.pas
branches/code_format/jcl/source/vcl/JclGraphUtils.pas
branches/code_format/jcl/source/vcl/JclGraphics.pas
branches/code_format/jcl/source/vcl/JclPrint.pas
branches/code_format/jcl/source/visclx/JclQGraphUtils.pas
branches/code_format/jcl/source/visclx/JclQGraphics.pas
branches/code_format/jcl/source/windows/Hardlinks.pas
branches/code_format/jcl/source/windows/JclAppInst.pas
branches/code_format/jcl/source/windows/JclCIL.pas
branches/code_format/jcl/source/windows/JclCLR.pas
branches/code_format/jcl/source/windows/JclCOM.pas
branches/code_format/jcl/source/windows/JclConsole.pas
branches/code_format/jcl/source/windows/JclDebug.pas
branches/code_format/jcl/source/windows/JclDotNet.pas
branches/code_format/jcl/source/windows/JclHookExcept.pas
branches/code_format/jcl/source/windows/JclLANMan.pas
branches/code_format/jcl/source/windows/JclLocales.pas
branches/code_format/jcl/source/windows/JclMapi.pas
branches/code_format/jcl/source/windows/JclMetadata.pas
branches/code_format/jcl/source/windows/JclMiscel.pas
branches/code_format/jcl/source/windows/JclMsdosSys.pas
branches/code_format/jcl/source/windows/JclMultimedia.pas
branches/code_format/jcl/source/windows/JclNTFS.pas
branches/code_format/jcl/source/windows/JclPeImage.pas
branches/code_format/jcl/source/windows/JclRegistry.pas
branches/code_format/jcl/source/windows/JclSecurity.pas
branches/code_format/jcl/source/windows/JclShell.pas
branches/code_format/jcl/source/windows/JclStructStorage.pas
branches/code_format/jcl/source/windows/JclSvcCtrl.pas
branches/code_format/jcl/source/windows/JclSynch.pas
branches/code_format/jcl/source/windows/JclTD32.pas
branches/code_format/jcl/source/windows/JclTask.pas
branches/code_format/jcl/source/windows/JclUnicode.pas
branches/code_format/jcl/source/windows/JclWideFormat.pas
branches/code_format/jcl/source/windows/JclWin32.pas
branches/code_format/jcl/source/windows/JclWin32Ex.pas
branches/code_format/jcl/source/windows/JclWinMIDI.pas
branches/code_format/jcl/source/windows/MSHelpServices_TLB.pas
branches/code_format/jcl/source/windows/MSTask.pas
branches/code_format/jcl/source/windows/Snmp.pas
branches/code_format/jcl/source/windows/mscoree_TLB.pas
branches/code_format/jcl/source/windows/mscorlib_TLB.pas
branches/code_format/jcl/source/windows/zlibh.pas
Added Paths:
-----------
branches/code_format/thirdparty/jedi_code_format/
branches/code_format/thirdparty/jedi_code_format/JCF.log
branches/code_format/thirdparty/jedi_code_format/JCFGui.exe
branches/code_format/thirdparty/jedi_code_format/JCFSettings.cfg
Property Changed:
----------------
branches/code_format/thirdparty/InnoSetup/
branches/code_format/thirdparty/InnoSetup/Skin/
branches/code_format/thirdparty/InnoSetup/Skin/images/
branches/code_format/thirdparty/svn_cleaner/
Modified: branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -243,4 +243,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -119,7 +119,7 @@
Map: IJclIntfIntfMap;
MyObject: IIntfMyObject;
KeyObject: TInterfacedObject;
- It: IJclIntfIterator;
+ It: IJclIntfIterator;
begin
Map := TJclIntfIntfHashMap.Create(DefaultContainerCapacity);
MyObject := TIntfMyObject.Create;
@@ -179,7 +179,7 @@
Map: IJclMap;
MyObject: TMyObject;
KeyObject: TObject;
- It: IJclIterator;
+ It: IJclIterator;
begin
Map := TJclHashMap.Create(DefaultContainerCapacity, False, False);
MyObject := TMyObject.Create;
@@ -204,7 +204,7 @@
var
MySet: IJclIntfSet;
MyObject: IIntfMyObject;
- It: IJclIntfIterator;
+ It: IJclIntfIterator;
begin
MySet := TJclIntfHashSet.Create(DefaultContainerCapacity);
MyObject := TIntfMyObject.Create;
@@ -223,7 +223,7 @@
var
MySet: IJclSet;
MyObject: TMyObject;
- It: IJclIterator;
+ It: IJclIterator;
begin
MySet := TJclHashSet.Create(DefaultContainerCapacity, False);
MyObject := TMyObject.Create;
@@ -242,7 +242,7 @@
var
MySet: IJclIntfSet;
MyObject: IIntfMyObject;
- It: IJclIntfIterator;
+ It: IJclIntfIterator;
begin
MySet := TJclIntfArraySet.Create(DefaultContainerCapacity);
MyObject := TIntfMyObject.Create;
@@ -261,7 +261,7 @@
var
MySet: IJclSet;
MyObject: TMyObject;
- It: IJclIterator;
+ It: IJclIterator;
begin
MySet := TJclArraySet.Create(DefaultContainerCapacity, False);
MyObject := TMyObject.Create;
@@ -283,7 +283,7 @@
procedure TMainForm.btnAnsiStrAnsiStrHashMapClick(Sender: TObject);
var
Map: IJclAnsiStrAnsiStrMap;
- It: IJclAnsiStrIterator;
+ It: IJclAnsiStrIterator;
begin
Map := TJclAnsiStrAnsiStrHashMap.Create(DefaultContainerCapacity);
Map.PutValue('MyKey1', 'MyString1');
@@ -303,7 +303,7 @@
procedure TMainForm.btnWideStrWideStrHashMapClick(Sender: TObject);
var
Map: IJclWideStrWideStrMap;
- It: IJclWideStrIterator;
+ It: IJclWideStrIterator;
begin
Map := TJclWideStrWideStrHashMap.Create(DefaultContainerCapacity);
Map.PutValue('MyKey1', 'MyString1');
@@ -324,7 +324,7 @@
var
Map: IJclAnsiStrMap;
MyObject: TMyObject;
- It: IJclAnsiStrIterator;
+ It: IJclAnsiStrIterator;
begin
Map := TJclAnsiStrHashMap.Create(DefaultContainerCapacity, False);
MyObject := TMyObject.Create;
@@ -348,7 +348,7 @@
var
Map: IJclWideStrMap;
MyObject: TMyObject;
- It: IJclWideStrIterator;
+ It: IJclWideStrIterator;
begin
Map := TJclWideStrHashMap.Create(DefaultContainerCapacity, False);
MyObject := TMyObject.Create;
@@ -371,7 +371,7 @@
procedure TMainForm.btnAnsiStrHashSetClick(Sender: TObject);
var
MySet: IJclAnsiStrSet;
- It: IJclAnsiStrIterator;
+ It: IJclAnsiStrIterator;
begin
MySet := TJclAnsiStrHashSet.Create(DefaultContainerCapacity);
MySet.Add('MyString');
@@ -386,7 +386,7 @@
procedure TMainForm.btnWideStrHashSetClick(Sender: TObject);
var
MySet: IJclWideStrSet;
- It: IJclWideStrIterator;
+ It: IJclWideStrIterator;
begin
MySet := TJclWideStrHashSet.Create(DefaultContainerCapacity);
MySet.Add('MyString');
@@ -401,8 +401,8 @@
procedure TMainForm.btnAnsiStrArraySetClick(Sender: TObject);
var
MySet: IJclAnsiStrSet;
- It: IJclAnsiStrIterator;
- I: Integer;
+ It: IJclAnsiStrIterator;
+ I: Integer;
begin
MySet := TJclAnsiStrArraySet.Create(DefaultContainerCapacity);
for I := 1 to 8 do
@@ -421,8 +421,8 @@
procedure TMainForm.btnWideStrArraySetClick(Sender: TObject);
var
MySet: IJclWideStrSet;
- It: IJclWideStrIterator;
- I: Integer;
+ It: IJclWideStrIterator;
+ I: Integer;
begin
MySet := TJclWideStrArraySet.Create(DefaultContainerCapacity);
for I := 1 to 8 do
@@ -439,4 +439,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -133,7 +133,7 @@
MyArray: IJclIntfArray;
MyObject: IIntfMyObject;
It: IJclIntfIterator;
- I: Integer;
+ I: Integer;
begin
memResult.Lines.Clear;
List := TJclIntfArrayList.Create(DefaultContainerCapacity);
@@ -202,8 +202,8 @@
var
List: IJclIntfList;
MyObject: IIntfMyObject;
- It: IJclIntfIterator;
- I: Integer;
+ It: IJclIntfIterator;
+ I: Integer;
begin
memResult.Lines.Clear;
List := TJclIntfVector.Create(DefaultContainerCapacity);
@@ -241,7 +241,7 @@
var
List: IJclList;
MyObject: TMyObject;
- It: IJclIterator;
+ It: IJclIterator;
begin
memResult.Lines.Clear;
List := TJclArrayList.Create(DefaultContainerCapacity, True);
@@ -275,7 +275,7 @@
var
List: IJclList;
MyObject: TMyObject;
- It: IJclIterator;
+ It: IJclIterator;
begin
memResult.Lines.Clear;
List := TJclLinkedList.Create(nil, True);
@@ -303,8 +303,8 @@
var
List: IJclList;
MyObject: TMyObject;
- It: IJclIterator;
- I: Integer;
+ It: IJclIterator;
+ I: Integer;
begin
memResult.Lines.Clear;
List := TJclVector.Create(DefaultContainerCapacity, True);
@@ -360,8 +360,8 @@
List, Sub: IJclAnsiStrList;
MyArray: IJclAnsiStrArray;
It: IJclAnsiStrIterator;
- I: Integer;
- S: string;
+ I: Integer;
+ S: string;
begin
memResult.Lines.Clear;
List := TJclAnsiStrArrayList.Create(DefaultContainerCapacity);
@@ -394,8 +394,8 @@
List, Sub: IJclWideStrList;
MyArray: IJclWideStrArray;
It: IJclWideStrIterator;
- I: Integer;
- S: string;
+ I: Integer;
+ S: string;
begin
memResult.Lines.Clear;
List := TJclWideStrArrayList.Create(DefaultContainerCapacity);
@@ -504,9 +504,9 @@
procedure TMainForm.btnAnsiStrVectorClick(Sender: TObject);
var
List: IJclAnsiStrList;
- S: string;
- It: IJclAnsiStrIterator;
- I: Integer;
+ S: string;
+ It: IJclAnsiStrIterator;
+ I: Integer;
begin
memResult.Lines.Clear;
List := TJclAnsiStrVector.Create(DefaultContainerCapacity);
@@ -539,9 +539,9 @@
procedure TMainForm.btnWideStrVectorClick(Sender: TObject);
var
List: IJclWideStrList;
- S: string;
- It: IJclWideStrIterator;
- I: Integer;
+ S: string;
+ It: IJclWideStrIterator;
+ I: Integer;
begin
memResult.Lines.Clear;
List := TJclWideStrVector.Create(DefaultContainerCapacity);
@@ -572,4 +572,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -96,7 +96,7 @@
function TMyObjectList.Contains(AObject: TMyObject): Boolean;
begin
-Result := inherited Contains(AObject);
+ Result := inherited Contains(AObject);
end;
function TMyObjectList.GetObject(Index: Integer): TMyObject;
@@ -130,4 +130,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -155,4 +155,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -29,7 +29,7 @@
const
ResultFormat = '%.1f ms';
- MsecsPerDay = 24 * 60 * 60 * 1000;
+ MsecsPerDay = 24 * 60 * 60 * 1000;
{$IFNDEF RTL140_UP}
const
@@ -42,7 +42,7 @@
procedure TestList(Results: TStrings);
var
List: TList;
- I: Integer;
+ I: Integer;
Start: TDateTime;
begin
Randomize;
@@ -77,8 +77,8 @@
procedure TestJclArrayList(Results: TStrings);
var
List: IJclList;
- It: IJclIterator;
- I: Integer;
+ It: IJclIterator;
+ I: Integer;
Start: TDateTime;
begin
Randomize;
@@ -120,8 +120,8 @@
procedure TestJclLinkedList(Results: TStrings);
var
List: IJclList;
- I: Integer;
- It: IJclIterator;
+ I: Integer;
+ It: IJclIterator;
Start: TDateTime;
begin
Randomize;
@@ -159,7 +159,7 @@
procedure TestJclVector(Results: TStrings);
var
List: IJclList;
- I: Integer;
+ I: Integer;
Start: TDateTime;
begin
Randomize;
@@ -232,7 +232,7 @@
procedure TestJclHashMap(Results: TStrings);
var
Map: IJclMap;
- I: Integer;
+ I: Integer;
Start: TDateTime;
begin
Randomize;
@@ -299,7 +299,7 @@
procedure TestJclAnsiStrAnsiStrHashMap(Results: TStrings);
var
Map: IJclAnsiStrAnsiStrMap;
- I: Integer;
+ I: Integer;
Res: string;
Start: TDateTime;
begin
@@ -326,7 +326,7 @@
procedure TestJclWideStrWideStrHashMap(Results: TStrings);
var
Map: IJclWideStrWideStrMap;
- I: Integer;
+ I: Integer;
Res: string;
Start: TDateTime;
begin
Modified: branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -72,9 +72,9 @@
procedure TMainForm.btnIntfArrayTreeClick(Sender: TObject);
var
Tree: IJclIntfTree;
- I: Integer;
- Obj: IIntfInteger;
- It: IJclIntfIterator;
+ I: Integer;
+ Obj: IIntfInteger;
+ It: IJclIntfIterator;
begin
memoResult.Lines.Clear;
Tree := TJclIntfBinaryTree.Create(IntfIntegerComparator);
@@ -107,8 +107,8 @@
procedure TMainForm.btnArrayTreeClick(Sender: TObject);
var
Tree: IJclTree;
- I: Integer;
- It: IJclIterator;
+ I: Integer;
+ It: IJclIterator;
begin
memoResult.Lines.Clear;
Tree := TJclBinaryTree.Create(JclAlgorithms.IntegerCompare, True);
@@ -127,8 +127,8 @@
procedure TMainForm.btnAnsiStrBinaryTreeClick(Sender: TObject);
var
Tree: IJclAnsiStrTree;
- I: Integer;
- It: IJclAnsiStrIterator;
+ I: Integer;
+ It: IJclAnsiStrIterator;
begin
memoResult.Lines.Clear;
Tree := TJclAnsiStrBinaryTree.Create(JclAlgorithms.AnsiStrSimpleCompare);
@@ -147,8 +147,8 @@
procedure TMainForm.btnWideStrBinaryTreeClick(Sender: TObject);
var
Tree: IJclWideStrTree;
- I: Integer;
- It: IJclWideStrIterator;
+ I: Integer;
+ It: IJclWideStrIterator;
begin
memoResult.Lines.Clear;
Tree := TJclWideStrBinaryTree.Create(JclAlgorithms.WideStrSimpleCompare);
@@ -165,4 +165,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -3,7 +3,7 @@
interface
uses
- Types, SysUtils, Classes,
+ Types, SysUtils, Classes,
QGraphics, QControls, QForms, QStdCtrls,
JclExprEval;
Modified: branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -124,7 +124,7 @@
with ListItem do
begin
Caption := Directory + FileInfo.Name;
- Str(GetSizeOfFile(FileInfo):13, S);
+ Str(GetSizeOfFile(FileInfo): 13, S);
SubItems.Add(S);
SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time)));
SubItems.Add(FileAttributesStr(FileInfo));
@@ -171,7 +171,7 @@
FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text);
FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked;
FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked;
- FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
+ FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
FDirCount := 0;
StartBtn.Enabled := False;
@@ -250,7 +250,7 @@
begin
if not IncludeSubDirectories.Checked then
if IncludeHiddenSubDirs.State = cbChecked then
- IncludeHiddenSubDirs.State := cbUnchecked;
+ IncludeHiddenSubDirs.State := cbUnchecked;
end;
procedure TFileSearchForm.DetailsBtnClick(Sender: TObject);
@@ -267,14 +267,13 @@
begin
if SaveDialog.Execute then
with TStringList.Create do
- try
- for I := 0 to FileList.Items.Count - 1 do
- Add(FileList.Items[I].Caption);
- SaveToFile(SaveDialog.FileName);
- finally
- Free;
- end;
+ try
+ for I := 0 to FileList.Items.Count - 1 do
+ Add(FileList.Items[I].Caption);
+ SaveToFile(SaveDialog.FileName);
+ finally
+ Free;
+ end;
end;
end.
-
Modified: branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -71,7 +71,7 @@
i: Integer;
H, S, L: Single;
begin
- for i := 0 to Length(P)-1 do
+ for i := 0 to Length(P) - 1 do
begin
P[i].X := Random(Width);
P[i].Y := Random(Height);
@@ -91,4 +91,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -31,7 +31,7 @@
JclQGraphics,
{$ENDIF VisualCLX}
{$IFDEF HasShellCtrls}
- {$WARN UNIT_PLATFORM OFF}
+ {$WARN UNIT_PLATFORM OFF}
ShellCtrls,
{$ENDIF HasShellCtrls}
JclFileUtils;
@@ -139,7 +139,7 @@
{$IFDEF MSWINDOWS}
type
- TWMDropFilesCallback = procedure (const FileName: string) of object;
+ TWMDropFilesCallback = procedure(const FileName: string) of object;
procedure ProcessWMDropFiles(var Msg: TWMDropFiles; Callback: TWMDropFilesCallback; DropPoint: PPoint = nil); overload;
var
@@ -201,23 +201,23 @@
WatchSubTree := False;
OnChange := ShellChange;
NotifyFilters := [
- nfFileNameChange,
- nfDirNameChange,
+ nfFileNameChange,
+ nfDirNameChange,
//nfSizeChange,
- nfWriteChange,
- nfSecurityChange];
+ nfWriteChange,
+ nfSecurityChange];
end;
{$ENDIF HasShellCtrls}
{$IFDEF VCL}
DragAcceptFiles(Handle, True);
{$ENDIF VCL}
if ParamCount > 0 then
- with OpenDialog do
- begin
- FileName := ParamStr(1);
- InitialDir := ExtractFileDir(FileName);
- LoadFile(FileName);
- end;
+ with OpenDialog do
+ begin
+ FileName := ParamStr(1);
+ InitialDir := ExtractFileDir(FileName);
+ LoadFile(FileName);
+ end;
end;
{$IFDEF VCL}
@@ -326,13 +326,13 @@
procedure TStretchDemoForm.DoStretch;
var
W, H: Integer;
- T: LongWord;
+ T: LongWord;
begin
with OriginalImage.Picture do
if (Graphic = nil) {$IFDEF VCL} or (Graphic is TMetafile) {$ENDIF} then
Exit;
- W := StretchedPage.Width-2;
- H := StretchedPage.Height-2;
+ W := StretchedPage.Width - 2;
+ H := StretchedPage.Height - 2;
if FPreserveAspectRatio then
with OriginalImage.Picture.Graphic do
begin
@@ -379,14 +379,14 @@
procedure TStretchDemoForm.PrevFile(Sender: TObject);
begin
if FileListIndex > 0 then
- FileListIndex := FileListIndex - 1;
+ FileListIndex := FileListIndex - 1;
LoadSelected;
end;
procedure TStretchDemoForm.NextFile(Sender: TObject);
begin
if FileListIndex < FileListView.Items.Count - 1 then
- FileListIndex := FileListIndex + 1;
+ FileListIndex := FileListIndex + 1;
LoadSelected;
end;
@@ -414,20 +414,20 @@
{$IFDEF VCL}
const
Key_Prior = VK_PRIOR;
- Key_Next = VK_NEXT;
+ Key_Next = VK_NEXT;
{$ENDIF VCL}
begin
case Key of
Key_Prior:
- begin
- PrevFile(Self);
- Key := 0;
- end;
+ begin
+ PrevFile(Self);
+ Key := 0;
+ end;
Key_Next:
- begin
- NextFile(Self);
- Key := 0;
- end;
+ begin
+ NextFile(Self);
+ Key := 0;
+ end;
end;
end;
Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -191,4 +191,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -10,7 +10,7 @@
uses
Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Spin,
- JclMath, JclMidi;
+ JclMath, JclMIDI;
type
TTuningDialog = class(TForm)
@@ -52,9 +52,9 @@
const
HalftonesPerOctave = 12;
- MiddleA = 440.0; // Hertz
- MidiMiddleA = 69; // A3 = 440 Hertz
- Digits = 6;
+ MiddleA = 440.0; // Hertz
+ MidiMiddleA = 69; // A3 = 440 Hertz
+ Digits = 6;
MIDIFreqMax = 127.99993896;
FreqHertzMin = 8.17579892;
FreqHertzMax = 13289.70346552;
Modified: branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -81,8 +81,8 @@
Base: TNumericSystemBase;
S, Mantissa: string;
Exponent: Integer;
- X: Extended;
- C: TCaretPos;
+ X: Extended;
+ C: TCaretPos;
begin
if not Assigned(FNumFormat) then
Exit;
@@ -116,7 +116,7 @@
procedure TMainForm.RandBtnClick(Sender: TObject);
begin
- ValueEdit.Text := FloatToStr(Power(Random * 4 -2, Random(400)));
+ ValueEdit.Text := FloatToStr(Power(Random * 4 - 2, Random(400)));
EvalBtn.Enabled := False;
Display;
end;
Modified: branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -48,7 +48,7 @@
procedure Match;
function GetUIOptions: TJclAnsiRegExOptions;
procedure UpdateUIOptions;
- procedure LoadFromFile(const Filename:string);
+ procedure LoadFromFile(const Filename: string);
protected
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
public
@@ -143,7 +143,8 @@
var
Options: TJclAnsiRegExOptions;
begin
- if RE = nil then Exit;
+ if RE = nil then
+ Exit;
Options := RE.Options;
chkIgnoreCase.Checked := roIgnoreCase in Options;
chkMultiLine.Checked := roMultiLine in Options;
@@ -176,18 +177,18 @@
procedure TfrmMain.WMDropFiles(var Message: TWMDropFiles);
var
- i:integer;
- buf:array [0..MAX_PATH] of char;
+ i: integer;
+ buf: array [0..MAX_PATH] of char;
begin
i := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0);
if i > 0 then
- try
- DragQueryFile(Message.Drop, 0, buf, sizeof(buf));
- if FileExists(buf) then
- LoadFromFile(buf);
- finally
- DragFinish(Message.Drop);
- end;
+ try
+ DragQueryFile(Message.Drop, 0, buf, sizeof(buf));
+ if FileExists(buf) then
+ LoadFromFile(buf);
+ finally
+ DragFinish(Message.Drop);
+ end;
end;
procedure TfrmMain.LoadFromFile(const Filename: string);
@@ -197,4 +198,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -47,7 +47,7 @@
procedure Match;
function GetUIOptions: TJclAnsiRegExOptions;
procedure UpdateUIOptions;
- procedure LoadFromFile(const Filename:string);
+ procedure LoadFromFile(const Filename: string);
protected
//procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
public
@@ -140,7 +140,8 @@
var
Options: TJclAnsiRegExOptions;
begin
- if RE = nil then Exit;
+ if RE = nil then
+ Exit;
Options := RE.Options;
chkIgnoreCase.Checked := roIgnoreCase in Options;
chkMultiLine.Checked := roMultiLine in Options;
@@ -173,4 +174,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -56,7 +56,7 @@
le131, le132, le133, le134, le135, le136, le137, le138, le139, le140,
le141, le142, le143, le144, le145, le146, le147, le148, le149, le150,
le151, le152, le153, le154, le155, le156, le157, le158, le159, le160);
-
+
TLargeSet = set of TLargeEnum;
TLargeSubEnum = le019 .. le150;
TLargeSubSet = set of TLargeSubEnum;
@@ -84,7 +84,7 @@
var
MyEnum: PTypeInfo;
MySubRange: PTypeInfo;
- MySet: PTypeInfo;
+ MySet: PTypeInfo;
MyCutLowerEnum: PTypeInfo;
procedure TForm1.Button1Click(Sender: TObject);
@@ -159,7 +159,7 @@
var
Writer: IJclInfoWriter;
LargeSubSet: TLargeSubSet;
- GUID: TGUID;
+ GUID: TGUID;
begin
mmResult.Lines.Clear;
@@ -169,18 +169,25 @@
try
Writer.Writeln('StrToSet with string=''[le019..le023, le033, le045..le049]''');
JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '[le019..le023, le033, le045..le049]');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
Writer.Writeln('StrToSet with string=''''');
JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
Writer.Writeln('StrToSet with string=''le019 .. le023,le033 , le045 .. le049 ''');
- JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, 'le019 .. le023,le033 , le045 .. le049 ');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet,
+ 'le019 .. le023,le033 , le045 .. le049 ');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
finally
Writer.Outdent;
@@ -200,7 +207,8 @@
Writer.Indent;
try
Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(crArrow, TypeInfo(TCursor)));
- Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) + ' (should be ' + IntToStr(crArrow) + ')');
+ Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) +
+ ' (should be ' + IntToStr(crArrow) + ')');
Writer.Writeln('');
Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(1, TypeInfo(TCursor)));
Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('1', TypeInfo(TCursor))) + ' (should be 1)');
Modified: branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -55,7 +55,7 @@
le131, le132, le133, le134, le135, le136, le137, le138, le139, le140,
le141, le142, le143, le144, le145, le146, le147, le148, le149, le150,
le151, le152, le153, le154, le155, le156, le157, le158, le159, le160);
-
+
TLargeSet = set of TLargeEnum;
TLargeSubEnum = le019 .. le150;
TLargeSubSet = set of TLargeSubEnum;
@@ -83,7 +83,7 @@
var
MyEnum: PTypeInfo;
MySubRange: PTypeInfo;
- MySet: PTypeInfo;
+ MySet: PTypeInfo;
MyCutLowerEnum: PTypeInfo;
procedure TForm1.Button1Click(Sender: TObject);
@@ -158,7 +158,7 @@
var
Writer: IJclInfoWriter;
LargeSubSet: TLargeSubSet;
- GUID: TGUID;
+ GUID: TGUID;
begin
mmResult.Lines.Clear;
@@ -168,18 +168,25 @@
try
Writer.Writeln('StrToSet with string=''[le019..le023, le033, le045..le049]''');
JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '[le019..le023, le033, le045..le049]');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
Writer.Writeln('StrToSet with string=''''');
JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
Writer.Writeln('StrToSet with string=''le019 .. le023,le033 , le045 .. le049 ''');
- JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, 'le019 .. le023,le033 , le045 .. le049 ');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True');
- Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False');
+ JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet,
+ 'le019 .. le023,le033 , le045 .. le049 ');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) +
+ ''', with WantRanges=True');
+ Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) +
+ ''', with WantRanges=False');
Writer.Writeln('');
finally
Writer.Outdent;
@@ -199,7 +206,8 @@
Writer.Indent;
try
Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(crArrow, TypeInfo(TCursor)));
- Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) + ' (should be ' + IntToStr(crArrow) + ')');
+ Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) +
+ ' (should be ' + IntToStr(crArrow) + ')');
Writer.Writeln('');
Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(1, TypeInfo(TCursor)));
Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('1', TypeInfo(TCursor))) + ' (should be 1)');
Modified: branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -3,7 +3,7 @@
interface
uses
- SysUtils, Classes, QControls, QForms, QComCtrls,
+ SysUtils, Classes, QControls, QForms, QComCtrls,
JclSysInfo;
type
@@ -73,4 +73,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -141,11 +141,12 @@
AssignFileTotalTime := StopCount(C);
CloseFile(T);
- ReadLnLabel.Caption := Format('Lines: %d, TJclMappedTextReader: %.2f ms, TStringList: %.2f ms, AssignFile: %.2f ms',
+ ReadLnLabel.Caption := Format(
+ 'Lines: %d, TJclMappedTextReader: %.2f ms, TStringList: %.2f ms, AssignFile: %.2f ms',
[LineCount, TotalTime * 1000, StringListTotalTime * 1000, AssignFileTotalTime * 1000]);
finally
Screen.Cursor := crDefault;
- end;
+ end;
end;
Modified: branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -50,7 +50,7 @@
begin
Items.BeginUpdate;
Items.Clear;
- for I := 0 to InstanceCount -1 do
+ for I := 0 to InstanceCount - 1 do
with Items.Add do
begin
Caption := IntToStr(I + 1);
@@ -124,20 +124,20 @@
// message sent from window of this instance
case ReadMessageCheck(Message, Handle) of
MyDataKind: // It is our data
- begin
- MemoChanging := True; // prevent deadlock, TMemo.OnChange is also fired now
- Memo1.Lines.BeginUpdate;
- try
+ begin
+ MemoChanging := True; // prevent deadlock, TMemo.OnChange is also fired now
+ Memo1.Lines.BeginUpdate;
+ try
// Read TStrings from the message
- ReadMessageStrings(Message, Memo1.Lines)
- finally
- Memo1.Lines.EndUpdate;
- MemoChanging := False;
- end;
- end;
- else
- inherited;
- end;
+ ReadMessageStrings(Message, Memo1.Lines)
+ finally
+ Memo1.Lines.EndUpdate;
+ MemoChanging := False;
+ end;
+ end;
+ else
+ inherited;
+ end;
end
else
inherited;
Modified: branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas
===================================================================
--- branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -2,7 +2,7 @@
interface
-uses
+uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, JclCLR;
@@ -37,62 +37,64 @@
pch: PChar;
DumpStr: string;
begin
- if AutoClear then memDump.Clear;
+ if AutoClear then
+ memDump.Clear;
ByteCount := 0;
- pch := Ptr;
+ pch := Ptr;
with TCanvas.Create do
- try
- Handle := GetDC(memDump.Handle);
- Font.Name := 'Fixedsys';
- Font.Size := 12;
- if (TextWidth('?')*WIDE_LINE_WIDTH) < memDump.ClientWidth then
- LineWidth := 16
- else if (TextWidth('?')*THIN_LINE_WIDTH) < memDump.ClientWidth then
- LineWidth := 8
- else
- LineWidth := 4;
- finally
- Free;
- end;
+ try
+ Handle := GetDC(memDump.Handle);
+ Font.Name := 'Fixedsys';
+ Font.Size := 12;
+ if (TextWidth('?') * WIDE_LINE_WIDTH) < memDump.ClientWidth then
+ LineWidth := 16
+ else
+ if (TextWidth('?') * THIN_LINE_WIDTH) < memDump.ClientWidth then
+ LineWidth := 8
+ else
+ LineWidth := 4;
+ finally
+ Free;
+ end;
with memDump.Lines do
- try
- BeginUpdate;
+ try
+ BeginUpdate;
- while ByteCount < Size do
- begin
- DumpStr := IntToHex(Base + DWord(ByteCount), 8) + ': ';
- for I:=0 to LineWidth-1 do
+ while ByteCount < Size do
begin
- if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then
- DumpStr := DumpStr + IntToHex(Integer(pch[ByteCount+I]), 2) + ' '
- else
- DumpStr := DumpStr + ' ';
- end;
+ DumpStr := IntToHex(Base + DWord(ByteCount), 8) + ': ';
+ for I := 0 to LineWidth - 1 do
+ begin
+ if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then
+ DumpStr := DumpStr + IntToHex(Integer(pch[ByteCount + I]), 2) + ' '
+ else
+ DumpStr := DumpStr + ' ';
+ end;
- DumpStr := DumpStr + '; ';
+ DumpStr := DumpStr + '; ';
- for I:=0 to LineWidth-1 do
- begin
- if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then
+ for I := 0 to LineWidth - 1 do
begin
- if CharIsAlphaNum(Char(pch[ByteCount+I])) then
- DumpStr := DumpStr + pch[ByteCount+I]
+ if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then
+ begin
+ if CharIsAlphaNum(Char(pch[ByteCount + I])) then
+ DumpStr := DumpStr + pch[ByteCount + I]
+ else
+ DumpStr := DumpStr + '.';
+ end
else
- DumpStr := DumpStr + '.'
- end
- else
- DumpStr := DumpStr + ' ';
+ DumpStr := DumpStr + ' ';
+ end;
+
+ Add(DumpStr);
+ Inc(ByteCount, LineWidth);
end;
-
- Add(DumpStr);
- Inc(ByteCount, LineWidth);
+ finally
+ EndUpdate;
end;
- finally
- EndUpdate;
- end;
memDump.Perform(WM_VSCROLL, SB_TOP, 0);
end;
Modified: branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
===================================================================
--- branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -35,12 +35,12 @@
class procedure TfrmBlobs.Execute(const AStream: TJclCLRBlobStream);
begin
with TfrmBlobs.Create(nil) do
- try
- ShowBlobs(AStream);
- ShowModal;
- finally
- Free;
- end;
+ try
+ ShowBlobs(AStream);
+ ShowModal;
+ finally
+ Free;
+ end;
end;
procedure TfrmBlobs.ShowBlobs(const AStream: TJclCLRBlobStream);
@@ -53,15 +53,15 @@
Selected: Boolean);
begin
if Selected then
- with TJclCLRBlobRecord(Item.Data) do
- TfrmAbstract.DumpBuf(Memory, Size, memDump,
- FStream.Offset + DWORD(Memory) - DWORD(FStream.Data));
+ with TJclCLRBlobRecord(Item.Data) do
+ TfrmAbstract.DumpBuf(Memory, Size, memDump,
+ FStream.Offset + DWORD(Memory) - DWORD(FStream.Data));
end;
procedure TfrmBlobs.lstBlobsData(Sender: TObject; Item: TListItem);
begin
Item.Caption := IntToStr(Item.Index);
- Item.Data := FStream.Blobs[Item.Index];
+ Item.Data := FStream.Blobs[Item.Index];
Item.SubItems.Add('$' +
IntToHex(FStream.Blobs[Item.Index].Offset, 8));
Modified: branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas
===================================================================
--- branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas 2007-11-15 11:10:35 UTC (rev 2225)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoCLRFrame.pas 2007-11-15 17:36:08 UTC (rev 2226)
@@ -7,7 +7,7 @@
ClrDemoAbstractFrame, StdCtrls, JclCLR, CheckLst, ExtCtrls, ComCtrls;
type
- TfrmCLR = class (TfrmAbstract)
+ TfrmCLR = class(TfrmAbstract)
boxFlags: TGroupBox;
edtEntryPointToken: TEdit;
edtVer: TEdit;
@@ -29,7 +29,7 @@
public
procedure ShowInfo(const ACLR: TJclCLRHeaderEx); override;
end;
-
+
var
frmCLR: TfrmCLR;
@@ -45,27 +45,27 @@
{
*********************************** TfrmCLR ************************************
}
-procedure TfrmCLR.lstResourcesSelectItem(Sender: TObject; Item: TListItem;
- Selected: Boolean);
+procedure TfrmCLR.lstResourcesSelectItem(Sender: TObject; Item: TListItem;
+ Selected: Boolean);
begin
if Selected then
- with TJclCLRResourceRecord(Item.Data) do
- DumpBuf(Memory, Size, memResources, RVA);
+ with TJclCLRResourceRecord(Item.Data) do
+ DumpBuf(Memory, Size, memResources, RVA);
end;
procedure TfrmCLR.ShowInfo(const ACLR: TJclCLRHeaderEx);
-
+
procedure UpdateFlags;
var
AFlag: TJclClrImageFlag;
begin
- for AFlag:=Low(TJclClrImageFlag) to High(TJclClrImageFlag) do
+ for AFlag := Low(TJclClrImageFlag) to High(TJclClrImageFlag) do
begin
lstFlags.Checked[Integer(AFlag)] := AFlag in ACLR.Flags;
lstFlags.ItemEnabled[Integer(AFlag)] := False;
end;
end;
-
+
procedure UpdateEntryPointToken;
var
AMethod: TJclCLRTableMethodDefRow;
@@ -84,7 +84,8 @@
else
edtEntryPointToken.Text := AMethod.Name;
end
- else if ACLR.EntryPointToken is TJclCLRTableFileRow then
+ else
+ if ACLR.EntryPointToken is TJclCLRTableFileRow then
edtEntryPointToken.Text := 'External file'
else
edtEntryPointToken.Text := '$' + IntToHex(ACLR.Header.EntryPointToken, 8);
@@ -92,85 +93,85 @@
else
edtEntryPointToken.Text := '(none)';
end;
-
+
procedure UpdateStrongNameSign;
begin
if ACLR.HasStrongNameSignature then
with ACLR.StrongNameSignature, ACLR.Header.StrongNameSignature do
DumpBuf(Memory, Size, memStrongNameSign,
- VirtualAddress-ACLR.Image.RvaToSection(VirtualAddress).PointerToRawData)
+ VirtualAddress - ACLR.Image.RvaToSection(VirtualAddress).PointerToRawData)
else
memStrongNameSign.Clear;
end;
-
+
procedure UpdateResources;
var
I: Integer;
begin
with lstResources.Items do
- try
- BeginUpdate;
- Clear;
-
- if ACLR.HasResources then
- for I:=0 to ACLR.ResourceCount-1 do
- with Add do
- begin
- Caption := IntToStr(I);
- Data := ACLR.Resources[I];
- with ACLR.Resources[I] do
- begin
- SubItems.Add('$' + IntToHex(Offset, 8));
- SubItems.Add('$' + IntToHex(RVA, 8));
- SubItems.Add(IntToStr(Size));
- end;
- end
- else
- memResources.Clear;
- finally
- EndUpdate;
- end;
+ try
+ BeginUpdate;
+ Clear;
+
+ if ACLR.HasResources then
+ for I := 0 to ACLR.ResourceCount - 1 do
+ with Add do
+ begin
+ Caption := IntToStr(I);
+ Data := ACLR.Resources[I];
+ with ACLR.Resources[I] do
+ begin
+ SubItems.Add('$' + IntToHex(Offset, 8));
+ SubItems.Add('$' + IntToHex(RVA, 8));
+ SubItems.Add(IntToStr(Size));
+ end;
+ end
+ else
+ memResources.Clear;
+ finally
+ EndUpdate;
+ end;
end;
-
+
function FormatVTableKinds(const Kinds: TJclClrVTableKinds): string;
var
AKind: TJclClrVTableKind;
begin
Result := '';
- for AKind:=Low(TJclClrVTableKind) to High(TJclClrVTableKind) do
+ for AKind := Low(TJclClrVTableKind) to High(TJclClrVTableKind) do
...
[truncated message content] |
