Menu
▾
▴
jcl-checkins-diff — SVN file check-in notifications with file differences included
You can subscribe to this list here.
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
(20) |
May
(48) |
Jun
(8) |
Jul
(23) |
Aug
(41) |
Sep
(42) |
Oct
(22) |
Nov
(17) |
Dec
(36) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2007 |
Jan
(43) |
Feb
(42) |
Mar
(17) |
Apr
(39) |
May
(16) |
Jun
(35) |
Jul
(37) |
Aug
(47) |
Sep
(49) |
Oct
(9) |
Nov
(52) |
Dec
(37) |
| 2008 |
Jan
(48) |
Feb
(21) |
Mar
(7) |
Apr
(2) |
May
(5) |
Jun
(17) |
Jul
(17) |
Aug
(40) |
Sep
(58) |
Oct
(38) |
Nov
(19) |
Dec
(32) |
| 2009 |
Jan
(67) |
Feb
(46) |
Mar
(54) |
Apr
(34) |
May
(37) |
Jun
(52) |
Jul
(67) |
Aug
(72) |
Sep
(48) |
Oct
(35) |
Nov
(27) |
Dec
(12) |
| 2010 |
Jan
(56) |
Feb
(46) |
Mar
(19) |
Apr
(14) |
May
(21) |
Jun
(3) |
Jul
(13) |
Aug
(48) |
Sep
(34) |
Oct
(51) |
Nov
(16) |
Dec
(32) |
| 2011 |
Jan
(36) |
Feb
(14) |
Mar
(12) |
Apr
(3) |
May
(5) |
Jun
(24) |
Jul
(15) |
Aug
(30) |
Sep
(21) |
Oct
(4) |
Nov
(25) |
Dec
(23) |
| 2012 |
Jan
(45) |
Feb
(42) |
Mar
(19) |
Apr
(14) |
May
(13) |
Jun
(7) |
Jul
(3) |
Aug
(46) |
Sep
(21) |
Oct
(10) |
Nov
(2) |
Dec
|
| 2013 |
Jan
(5) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <jfu...@us...> - 2007-08-09 20:19:16
|
Revision: 2112
http://jcl.svn.sourceforge.net/jcl/?rev=2112&view=rev
Author: jfudickar
Date: 2007-08-09 13:19:14 -0700 (Thu, 09 Aug 2007)
Log Message:
-----------
Little Improvements to TJclSimpleLog
Modified Paths:
--------------
trunk/jcl/source/common/JclSysUtils.pas
Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas 2007-08-09 20:14:31 UTC (rev 2111)
+++ trunk/jcl/source/common/JclSysUtils.pas 2007-08-09 20:19:14 UTC (rev 2112)
@@ -520,10 +520,22 @@
procedure OpenLog;
procedure Write(const Text: string; Indent: Integer = 0); overload;
procedure Write(Strings: TStrings; Indent: Integer = 0); overload;
+ //Writes a line to the log file. The current timestamp is written before the line.
+ procedure TimeWrite(const Text: string; Indent: Integer = 0); overload;
+ procedure TimeWrite(Strings: TStrings; Indent: Integer = 0); overload;
procedure WriteStamp(SeparatorLen: Integer = 0);
property LogFileName: string read FLogFileName;
property LogOpen: Boolean read GetLogOpen;
end;
+
+// Procedure to initialize the SimpleLog Variable
+procedure InitSimpleLog (const ALogFileName: string = '');
+
+// Global Variable to make it easier for an application wide log handling.
+// Must be initialized with InitSimpleLog before using
+var
+ SimpleLog : TJclSimpleLog;
+
{$ENDIF ~CLR}
{$IFDEF UNITVERSIONING}
@@ -3136,6 +3148,36 @@
Write(Strings[I], Indent);
end;
+procedure TJclSimpleLog.TimeWrite(const Text: string; Indent: Integer = 0);
+var
+ S: string;
+ SL: TStringList;
+ I: Integer;
+begin
+ if LogOpen then
+ begin
+ SL := TStringList.Create;
+ try
+ SL.Text := Text;
+ for I := 0 to SL.Count - 1 do
+ begin
+ S := DateTimeToStr(Now)+' : '+StringOfChar(' ', Indent) + StrEnsureSuffix(AnsiCrLf, TrimRight(SL[I]));
+ FileWrite(FLogFileHandle, Pointer(S)^, Length(S));
+ end;
+ finally
+ SL.Free;
+ end;
+ end;
+end;
+
+procedure TJclSimpleLog.TimeWrite(Strings: TStrings; Indent: Integer = 0);
+var
+ I: Integer;
+begin
+ for I := 0 to Strings.Count - 1 do
+ TimeWrite(Strings[I], Indent);
+end;
+
procedure TJclSimpleLog.WriteStamp(SeparatorLen: Integer);
begin
if SeparatorLen = 0 then
@@ -3148,10 +3190,19 @@
Write(StrRepeat('=', SeparatorLen));
end;
+procedure InitSimpleLog (const ALogFileName: string = '');
+begin
+ if Assigned(SimpleLog) then
+ FreeAndNil(SimpleLog);
+ SimpleLog := TJclSimpleLog.Create(ALogFileName);
+ SimpleLog.OpenLog;
+end;
+
{$ENDIF ~CLR}
initialization
{$IFNDEF CLR}
+ SimpleLog := nil;
{$IFDEF MSWINDOWS}
{$IFDEF THREADSAFE}
if not Assigned(GlobalMMFHandleListCS) then
@@ -3174,5 +3225,7 @@
FreeAndNil(GlobalMMFHandleListCS);
{$ENDIF THREADSAFE}
{$ENDIF MSWINDOWS}
+ if Assigned(SimpleLog) then
+ FreeAndNil(SimpleLog);
{$ENDIF ~CLR}
end.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-09 20:14:32
|
Revision: 2111
http://jcl.svn.sourceforge.net/jcl/?rev=2111&view=rev
Author: outchy
Date: 2007-08-09 13:14:31 -0700 (Thu, 09 Aug 2007)
Log Message:
-----------
Removing UTF-8 BOM
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2007-08-09 20:13:48 UTC (rev 2110)
+++ trunk/jcl/install/JclInstall.pas 2007-08-09 20:14:31 UTC (rev 2111)
@@ -1,4 +1,4 @@
-{**************************************************************************************************}
+{**************************************************************************************************}
{ }
{ Project JEDI Code Library (JCL) extension }
{ }
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-09 20:13:49
|
Revision: 2110
http://jcl.svn.sourceforge.net/jcl/?rev=2110&view=rev
Author: outchy
Date: 2007-08-09 13:13:48 -0700 (Thu, 09 Aug 2007)
Log Message:
-----------
Adding options to select VCL and Visual Clx packages
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
trunk/jcl/source/common/JclBorlandTools.pas
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2007-08-08 09:01:09 UTC (rev 2109)
+++ trunk/jcl/install/JclInstall.pas 2007-08-09 20:13:48 UTC (rev 2110)
@@ -1,4 +1,4 @@
-{**************************************************************************************************}
+{**************************************************************************************************}
{ }
{ Project JEDI Code Library (JCL) extension }
{ }
@@ -77,6 +77,8 @@
joCopyHppFiles,
joCheckHppFiles,
joPackages,
+ joVclPackage,
+ joClxPackage,
joDualPackages,
joCopyPackagesHppFiles,
joPdbCreate,
@@ -128,6 +130,7 @@
FDemoSectionName: string;
FLogFileName: string;
FSilent: Boolean;
+ FRuntimeInstallation: Boolean;
procedure AddDemo(const Directory: string; const FileInfo: TSearchRec);
procedure AddDemos(const Directory: string);
function GetDemoList: TStringList;
@@ -180,6 +183,7 @@
property OptionChecked[Option: TJclOption]: Boolean read GetOptionChecked;
property LogFileName: string read FLogFileName;
property Silent: Boolean read FSilent write FSilent;
+ property RuntimeInstallation: Boolean read FRuntimeInstallation; // false for C#Builder 1, Delphi 8 and .net targets
end;
TJclDistribution = class (TInterfacedObject, IJediProduct)
@@ -393,6 +397,8 @@
// packages
RsCaptionPackages = 'Packages';
+ RsCaptionVclPackage = 'VCL Package';
+ RsCaptionClxPackage = 'CLX package';
RsCaptionDualPackages = 'Dual packages';
RsCaptionCopyPackagesHppFiles = 'Output HPP files to %s';
@@ -489,8 +495,9 @@
RsHintCheckHppFiles = 'Compile some C++ source files to verify JCL headers';
// packages
- RsHintPackages = 'Build and eventually install JCL runtime packages (RTL, VCL and Visual ' +
- 'CLX) and optional IDE experts.';
+ RsHintPackages = 'Build and eventually install JCL runtime packages and optional IDE experts.';
+ RsHintVclPackage = 'Build JCL runtime package containing VCL extensions';
+ RsHintClxPackage = 'Build JCL runtime package containing Visual CLX extensions';
RsHintDualPackages = 'The same package introduce component for Delphi Win32 and C++Builder Win32';
RsHintCopyPackagesHppFiles = 'Output .hpp files into C++Builder''s include path instead of ' +
'the source paths.';
@@ -589,6 +596,8 @@
(Id: -1; Caption: RsCaptionCopyHppFiles; Hint: RsHintCopyHppFiles), // joCopyHppFiles
(Id: -1; Caption: RsCaptionCheckHppFiles; Hint: RsHintCheckHppFiles), // joCheckHppFiles
(Id: -1; Caption: RsCaptionPackages; Hint: RsHintPackages), // joPackages
+ (Id: -1; Caption: RsCaptionVclPackage; Hint: RsHintVclPackage), // joVclPackage
+ (Id: -1; Caption: RsCaptionClxPackage; Hint: RsHintClxPackage), // joClxPackage
(Id: -1; Caption: RsCaptionDualPackages; Hint: RsHintDualPackages), // joDualPackages
(Id: -1; Caption: RsCaptionCopyPackagesHppFiles; Hint: RsHintCopyPackagesHppFiles), // joCopyPackagesHppFiles
(Id: -1; Caption: RsCaptionPdbCreate; Hint: RsHintPdbCreate), // joPdbCreate
@@ -783,6 +792,10 @@
if CLRVersion <> '' then
FTargetName := Format('%s CLR %s', [FTargetName, CLRVersion]);
+ // exclude C#Builder 1, Delphi 8 and .net targets
+ FRunTimeInstallation := (CLRVersion = '') and ((Target.RadToolKind <> brBorlandDevStudio)
+ or ((Target.VersionNumber >= 3) and (bpDelphi32 in Target.Personalities)));
+
case TargetPlatform of
//bp32bit:
// begin
@@ -1023,8 +1036,12 @@
end;
end;
- procedure AddPackageOptions(Parent: TJclOption; RuntimeInstallation: Boolean);
+ procedure AddPackageOptions(Parent: TJclOption);
begin
+ if RuntimeInstallation and Target.SupportsVCL then
+ AddOption(joVclPackage, [goChecked], Parent);
+ if RuntimeInstallation and Target.SupportsVisualCLX then
+ AddOption(joClxPackage, [goChecked], Parent);
if (bpBCBuilder32 in Target.Personalities) and RunTimeInstallation and (CLRVersion = '') then
begin
if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber >= 4) then
@@ -1060,7 +1077,7 @@
AddOption(joPdbCreate, [goNoAutoCheck], Parent);
end;
- procedure AddExpertOptions(Parent: TJclOption; RuntimeInstallation: Boolean);
+ procedure AddExpertOptions(Parent: TJclOption);
{$IFDEF MSWINDOWS}
var
ExpertOptions: TJediInstallGUIOptions;
@@ -1166,8 +1183,6 @@
end;
end;
-var
- RunTimeInstallation: Boolean;
begin
FGUI := InstallCore.InstallGUI;
if not Assigned(GUI) then
@@ -1177,9 +1192,6 @@
GUIPage.Caption := TargetName;
GUIPage.SetIcon(Target.IdeExeFileName);
- RunTimeInstallation := (Target.RadToolKind <> brBorlandDevStudio)
- or ((Target.VersionNumber >= 3) and (bpDelphi32 in Target.Personalities));
-
AddOption(joLibrary, [goExpandable, goChecked], JediTargetOption);
if RunTimeInstallation then
@@ -1210,12 +1222,12 @@
if not Target.IsTurboExplorer then
begin
AddOption(joPackages, [goStandAloneParent, goExpandable, goChecked], joLibrary);
- AddPackageOptions(joPackages, RuntimeInstallation);
+ AddPackageOptions(joPackages);
if CLRVersion = '' then
begin
{$IFDEF MSWINDOWS}
- AddExpertOptions(joPackages, RunTimeInstallation);
+ AddExpertOptions(joPackages);
{$ENDIF MSWINDOWS}
if RunTimeInstallation then
AddDemoNodes;
@@ -1651,11 +1663,21 @@
GetDcpPath, GetBplPath, Distribution.FJclPath);
{$ENDIF MSWINDOWS}
Result := CompilePackage(FullPackageFileName(Target, JclDpk), False);
- if Target.SupportsVisualCLX then
+
+ if Result and OptionChecked[joVclPackage] then
+ begin
+ MarkOptionBegin(joVclPackage);
+ Result := Result and CompilePackage(FullPackageFileName(Target, JclVclDpk), False);
+ MarkOptionEnd(joVclPackage, Result);
+ end;
+
+ if Result and OptionChecked[joClxPackage] then
+ begin
+ MarkOptionBegin(joClxPackage);
Result := Result and CompilePackage(FullPackageFileName(Target, JclVClxDpk), False);
- if ((Target.VersionNumber >= 6) and (Target.RadToolKind <> brBorlandDevStudio))
- or ((Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber >= 3)) then
- Result := Result and CompilePackage(FullPackageFileName(Target, JclVclDpk), False);
+ MarkOptionEnd(joClxPackage, Result);
+ end;
+
MarkOptionEnd(joPackages, Result);
end
{$IFDEF MSWINDOWS}
@@ -2039,10 +2061,9 @@
UninstallPackage(FullPackageFileName(Target, JclDpk));
if (Target.RadToolKind = brBorlandDevStudio) and (Target.IDEVersionNumber = 5) then
- if Target.SupportsVisualCLX then
+ if RuntimeInstallation and Target.SupportsVisualCLX then
UninstallPackage(FullPackageFileName(Target, JclVClxDpk));
- if ((Target.VersionNumber >= 6) and (Target.RadToolKind <> brBorlandDevStudio))
- or ((Target.VersionNumber >=3) and (Target.RadToolKind = brBorlandDevStudio)) then
+ if RuntimeInstallation and Target.SupportsVCL then
UninstallPackage(FullPackageFileName(Target, JclVclDpk));
{$IFDEF MSWINDOWS}
RemoveJediRegInformation(Target.ConfigDataLocation, 'JCL');
Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas 2007-08-08 09:01:09 UTC (rev 2109)
+++ trunk/jcl/source/common/JclBorlandTools.pas 2007-08-09 20:13:48 UTC (rev 2110)
@@ -662,6 +662,7 @@
function SupportsVisualCLX: Boolean;
function SupportsVCL: Boolean;
function LibFolderName: string;
+ function ObjFolderName: string;
// Command line tools
property CommandLineTools: TCommandLineTools read FCommandLineTools;
property BCC32: TJclBCC32 read GetBCC32;
@@ -3877,6 +3878,11 @@
Result := PathAddSeparator(RootDir) + PathAddSeparator('lib');
end;
+function TJclBorRADToolInstallation.ObjFolderName: string;
+begin
+ Result := LibFolderName + PathAddSeparator('obj');
+end;
+
function TJclBorRADToolInstallation.ProcessMapFile(const BinaryFileName: string): Boolean;
{$IFDEF MSWINDOWS}
var
@@ -4244,20 +4250,26 @@
{$ENDIF KEEP_DEPRECATED}
function TJclBorRADToolInstallation.SupportsVCL: Boolean;
+const
+ VclDcp = 'vcl.dcp';
begin
{$IFDEF KYLIX}
Result := False;
{$ELSE ~KYLIX}
- Result := (RadToolKind = brBorlandDevStudio) or (VersionNumber >= 6);
+ Result := (RadToolKind = brBorlandDevStudio) or (VersionNumber >= 6)
+ and (FileExists(LibFolderName + VclDcp) or FileExists(ObjFolderName + VclDcp));
{$ENDIF ~KYLIX}
end;
function TJclBorRADToolInstallation.SupportsVisualCLX: Boolean;
+const
+ VisualClxDcp = 'visualclx.dcp';
begin
{$IFDEF KYLIX}
Result := True;
{$ELSE}
- Result := (Edition <> deSTD) and (VersionNumber in [6, 7]) and (RadToolKind <> brBorlandDevStudio);
+ Result := (Edition <> deSTD) and (VersionNumber in [6, 7]) and (RadToolKind <> brBorlandDevStudio)
+ and (FileExists(LibFolderName + VisualClxDcp) or FileExists(ObjFolderName + VisualClxDcp));
{$ENDIF KYLIX}
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <cyc...@us...> - 2007-08-08 09:01:12
|
Revision: 2109
http://jcl.svn.sourceforge.net/jcl/?rev=2109&view=rev
Author: cycocrew
Date: 2007-08-08 02:01:09 -0700 (Wed, 08 Aug 2007)
Log Message:
-----------
Minor .dtx help files update.
Modified Paths:
--------------
trunk/help/Math.dtx
trunk/help/Strings.dtx
Modified: trunk/help/Math.dtx
===================================================================
--- trunk/help/Math.dtx 2007-08-07 19:29:15 UTC (rev 2108)
+++ trunk/help/Math.dtx 2007-08-08 09:01:09 UTC (rev 2109)
@@ -26,11 +26,11 @@
for complete bytes. The bitwise function can be used to
calculate the table. So this kind of CRC calculating offers
some specialities:
- * the table based operation creates the same result as
+ * The table based operation creates the same result as
the bitwise calculation.
- * the table is reproduced by calculating the CRC of a
+ * The table is reproduced by calculating the CRC of a
single byte, using the starting value Zero.
- * the CRC check immediately creates the syndrome.
+ * The CRC check immediately creates the syndrome.
Beware, that the results of different CRC software algorithms
might be different even if the same Polynomial and starting
value is used. The algorithm might use another order of bits
@@ -1182,13 +1182,15 @@
finite or infinite (fpInfinite). If finite, it is either denormal
(fpDenormal) or normal. If normal, it is either non-zero (fpNormal)
or zero (fpZero).
- Remarks
- * Only the Extended data type allows for unsupported encodings.
- * What separates NaNs from numbers is that the former are unordered. That is,
- the result of relational operations (<, <=, =, >=, >) is not defined for NaNs.
- * Certain classes of floating point values may result from an exception
- condition if the corresponding FPU exception is masked out.
- See table below.
+Notes:
+ Only the Extended data type allows for unsupported encodings.
+
+ What separates NaNs from numbers is that the former are unordered. That is,
+ the result of relational operations (<, <=, =, >=, >) is not defined for NaNs.
+
+ Certain classes of floating point values may result from an exception
+ condition if the corresponding FPU exception is masked out.
+ See table below.
<TABLE>
Exception class Result on masked exception Result class
--------------- -------------------------- ------------
@@ -1863,7 +1865,7 @@
Idx - Index of the bit.
Result:
The return value is the value of the indexed bit.
-See also:;
+See also:
TJclASet.SetBit
--------------------------------------------------------------------------------
@@TJclASet.GetRange@Integer@Integer@Boolean
@@ -2088,9 +2090,9 @@
This operation is implemented with three different versions
depending on the type of the number to added:
- - to add a floating point number: TJclRational.Add Method (Float)
- - to add an integer number: TJclRational.Add Method (Integer)
- - to add a rational number: TJclRational.Add Method (TJclRational)
+ * To add a floating point number: TJclRational.Add Method (Float)
+ * To add an integer number: TJclRational.Add Method (Integer)
+ * To add a rational number: TJclRational.Add Method (TJclRational)
See also:
TJclRational.Add@Float
TJclRational.Add@Integer
Modified: trunk/help/Strings.dtx
===================================================================
--- trunk/help/Strings.dtx 2007-08-07 19:29:15 UTC (rev 2108)
+++ trunk/help/Strings.dtx 2007-08-08 09:01:09 UTC (rev 2109)
@@ -209,8 +209,8 @@
StrSame compares the two supplied strings and returns whether or not they are
identical.
Parameters:
- S1 - First string to compare
- S2 - Second string to compare
+ S1 - First string to compare.
+ S2 - Second string to compare.
Result:
If the two strings are identical the return value is True, if they are not the
return value is False.
@@ -274,8 +274,8 @@
If it doesn't then the prefix is prepended to the string otherwise the function
does nothing. Note that if Text is an empty string then the result will be Prefix.
Parameters:
- Prefix - The prefix to test for and apply
- Text - The string which must be forced to have a prefix
+ Prefix - The prefix to test for and apply.
+ Text - The string which must be forced to have a prefix.
Result:
The function result is a copy of the supplied Text, prefixed with Prefix.
See also:
@@ -293,8 +293,8 @@
If it does then the prefix is deleted from the string otherwise the function
does nothing.
Parameters:
- Prefix - The prefix to test for and apply
- Text - The string which must not have a prefix
+ Prefix - The prefix to test for and apply.
+ Text - The string which must not have a prefix.
Result:
The function result is a copy of the supplied Text, eventually minus the prefix.
See also:
@@ -312,8 +312,8 @@
If it doesn't then the suffix is appended to the string otherwise the function
does nothing. Note that if Text is an empty string then the result will be Suffix.
Parameters:
- Suffix - The suffix to test for and apply
- Text - The string which must be forced to have a suffix
+ Suffix - The suffix to test for and apply.
+ Text - The string which must be forced to have a suffix.
Result:
The function result is a copy of the supplied Text, with the suffix.
See also:
@@ -331,8 +331,8 @@
If it does then the suffix is deleted from the string otherwise the function
does nothing.
Parameters:
- Suffix - The suffix to test for and apply
- Text - The string which must not have a suffix
+ Suffix - The suffix to test for and apply.
+ Text - The string which must not have a suffix.
Result:
The function result is a copy of the supplied Text, eventually minus the suffix.
See also:
@@ -380,7 +380,7 @@
@@StrLower
<GROUP StringManipulation.StringTransformationRoutines>
Summary:
- Lowercases all characters in a string
+ Lowercases all characters in a string.
Description:
StrLower returns a copy of the string, converted to lowercase. That is, if you pass in 'Project JEDI' you'll get 'project jedi'.
Parameters:
@@ -397,7 +397,7 @@
@@StrLowerInPlace
<GROUP StringManipulation.StringTransformationRoutines>
Summary:
- Lowercases all characters in a string
+ Lowercases all characters in a string.
Description:
StrLower converts all characters in the supplied string to lowercase.
Parameters:
@@ -414,7 +414,7 @@
@@StrLowerBuff
<GROUP StringManipulation.StringTransformationRoutines>
Summary:
- Lowercases all characters in a string
+ Lowercases all characters in a string.
Description:
StrLowerBuff converts all characters in the supplied string to lowercase.
Parameters:
@@ -572,7 +572,7 @@
reversing it, then do not write code like S := StrReverse(S) but instead use
the StrReverseInPlace function because it's much faster.
Parameters:
- S - The string to reverse
+ S - The string to reverse.
Result:
A reversed copy of the supplied string.
See also:
@@ -721,7 +721,7 @@
results in an empty string. If the string length of the Source is odd
then a '0' is prepended internally to make up the first byte.
Parameters:
- S - A string of hex digit pairs to be converted
+ S - A string of hex digit pairs to be converted.
Result:
The string of converted bytes.
Donator:
@@ -736,7 +736,7 @@
For example, StrTrimCharLeft('000123', '0') returns '123'.
Parameters:
S - The source string from which the leading characters need to be removed.
- C - The character to remove
+ C - The character to remove.
Result:
The function returns the source string S without any leading characters C.
See also:
@@ -753,7 +753,7 @@
For example, StrTrimCharRight('123000', '0') returns '123'.
Parameters:
S - The source string from which the trailing characters need to be removed.
- C - The character to remove
+ C - The character to remove.
Result:
The function returns the source string S without any trailing characters C.
See also:
@@ -782,7 +782,7 @@
@@StrUpperInPlace
<GROUP StringManipulation.StringTransformationRoutines>
Summary:
- Uppercases all characters in a string
+ Uppercases all characters in a string.
Description:
StrUpper converts all characters in the supplied string to uppercase.
Parameters:
@@ -799,7 +799,7 @@
@@StrUpperBuff
<GROUP StringManipulation.StringTransformationRoutines>
Summary:
- Uppercases all characters in a string
+ Uppercases all characters in a string.
Description:
StrUpper converts all characters in the supplied string to uppercase.
Parameters:
@@ -988,8 +988,8 @@
</TABLE>
Parameters:
- S1 - First string to compare
- S2 - Second string to compare
+ S1 - First string to compare.
+ S2 - Second string to compare.
Result:
StrCompare returns 0 if the two strings match or the number of different characters
in case of a mismatch.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-07 19:29:17
|
Revision: 2108
http://jcl.svn.sourceforge.net/jcl/?rev=2108&view=rev
Author: outchy
Date: 2007-08-07 12:29:15 -0700 (Tue, 07 Aug 2007)
Log Message:
-----------
Fist test of code formatting
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/trees/TreeExampleMain.pas
branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.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/common/unitversioning/UnitVersioningTestMain.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/StackTrackDLLsComUnit.pas
branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas
branches/code_format/jcl/examples/windows/debug/stacktrack/StackTrackDemoMain.pas
branches/code_format/jcl/examples/windows/debug/threadexcept/ThreadExceptDemoMain.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/peviewer/PeViewer_TLB.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/JclDebugIdeConfigFrame.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/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/JclOtaExcDlgFormFrame.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgIgnoreFrame.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgRepository.pas
branches/code_format/jcl/experts/debug/dialog/JclOtaExcDlgSystemFrame.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/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/JCLOptionsFrame.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/JediRegInfo.pas
branches/code_format/jcl/install/VclGui/FrmCompile.pas
branches/code_format/jcl/install/prototypes/JediGUIInstall.pas
branches/code_format/jcl/install/prototypes/JediGUIMain.pas
branches/code_format/jcl/install/prototypes/JediGUIReadme.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/JclIniFiles.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/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/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/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/JCFSettings.cfg
Modified: branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -130,7 +130,8 @@
Value: Integer;
begin
Value := StrToIntDef(edtFind.Text, 0);
- It := JclAlgorithms.Find(List.First, List.Size, TObject(Value), SimpleCompare);
+ It := JclAlgorithms.Find(List.First, List.Size, TObject(Value),
+ SimpleCompare);
if It = nil then
lblFound.Caption := 'Not found'
else
@@ -158,7 +159,8 @@
Value: Integer;
begin
Value := StrToIntDef(edtCount.Text, 0);
- Count := JclAlgorithms.CountObject(List.First, List.Size, TObject(Value), SimpleCompare);
+ Count := JclAlgorithms.CountObject(List.First, List.Size,
+ TObject(Value), SimpleCompare);
lblCount.Caption := IntToStr(Count);
end;
@@ -243,4 +245,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/hashing/HashingExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -164,7 +164,8 @@
It := Map.Values.First;
while It.HasNext do
memResult.Items.Add(TMyObject(It.Next).Str);
- memResult.Items.Add('--------------------------------------------------------');
+ memResult.Items.Add(
+ '--------------------------------------------------------');
finally
// MyObject.Free; // Free in the map (Default: OwnsObject = True)
// KeyObject.Free;
@@ -332,4 +333,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/lists/ListExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -472,4 +472,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/lists/MyObjectList.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -33,7 +33,8 @@
function Size: Integer;
procedure Add(Index: Integer; AObject: TMyObject); overload;
- function AddAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+ function AddAll(Index: Integer; ACollection: IJclCollection): Boolean;
+ overload;
function GetObject(Index: Integer): TMyObject;
function IndexOf(AObject: TMyObject): Integer;
function LastIndexOf(AObject: TMyObject): Integer;
@@ -61,7 +62,8 @@
protected
{ IJclList }
procedure Add(Index: Integer; AObject: TMyObject); overload;
- function AddAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+ function AddAll(Index: Integer; ACollection: IJclCollection): Boolean;
+ overload;
function GetObject(Index: Integer): TMyObject;
function IndexOf(AObject: TMyObject): Integer;
function LastIndexOf(AObject: TMyObject): Integer;
@@ -97,7 +99,7 @@
function TMyObjectList.Contains(AObject: TMyObject): Boolean;
begin
-Result := inherited Contains(AObject);
+ Result := inherited Contains(AObject);
end;
function TMyObjectList.GetObject(Index: Integer): TMyObject;
@@ -131,4 +133,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -145,4 +145,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -140,4 +140,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/expreval/ExprEvalExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -54,7 +54,8 @@
procedure TForm1.EnterButtonClick(Sender: TObject);
begin
- Memo1.Lines.Add(ResultAsText(FEvaluator as TEvaluator, ExpressionInput.Text));
+ Memo1.Lines.Add(ResultAsText(FEvaluator as TEvaluator,
+ ExpressionInput.Text));
end;
procedure TForm1.FuncListClick(Sender: TObject);
Modified: branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/filesearch/QFileSearchDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -9,7 +9,8 @@
uses
SysUtils, Classes,
- Types, Qt, QGraphics, QStdCtrls, QControls, QExtCtrls, QComCtrls, QForms, QMask,
+ Types, Qt, QGraphics, QStdCtrls, QControls, QExtCtrls, QComCtrls,
+ QForms, QMask,
JclStrings, JclFileUtils, QDialogs;
type
@@ -115,7 +116,8 @@
StatusBar.Panels[2].Text := Format('Processing %s...', [Directory]);
end;
-procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSearchRec);
+procedure TFileSearchForm.AddFile(const Directory: string;
+ const FileInfo: TSearchRec);
var
ListItem: TListItem;
S: string;
@@ -124,9 +126,10 @@
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(FormatDateTime(' yyyy-mm-dd hh:nn:ss ',
+ FileDateToDateTime(FileInfo.Time)));
SubItems.Add(FileAttributesStr(FileInfo));
{$IFDEF UNIX}
if (FileInfo.Attr and faSymLink) <> 0 then
@@ -137,7 +140,8 @@
end;
end;
-procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
+procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID;
+ const Aborted: Boolean);
begin
if not FFileListLiveUpdate then
FileList.Items.EndUpdate;
@@ -145,7 +149,8 @@
if Aborted then
StatusBar.Panels[2].Text := 'Prematurely aborted.'
else
- StatusBar.Panels[2].Text := Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
+ StatusBar.Panels[2].Text :=
+ Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
FileList.Sorted := True;
StartBtn.Enabled := True;
SaveBtn.Enabled := True;
@@ -158,7 +163,8 @@
RootDirInput.Text := PathCanonicalize(RootDirInput.Text);
FFileEnumerator.SearchOption[fsLastChangeAfter] := cbLastChangeAfter.Checked;
- FFileEnumerator.SearchOption[fsLastChangeBefore] := cbLastChangeBefore.Checked;
+ FFileEnumerator.SearchOption[fsLastChangeBefore] :=
+ cbLastChangeBefore.Checked;
if FFileEnumerator.SearchOption[fsLastChangeAfter] then
FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text;
if FFileEnumerator.SearchOption[fsLastChangeBefore] then
@@ -171,7 +177,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;
@@ -195,7 +201,8 @@
FFileEnumerator.StopTask(FTaskID);
end;
-procedure TFileSearchForm.FileListColumnClick(Sender: TObject; Column: TListColumn);
+procedure TFileSearchForm.FileListColumnClick(Sender: TObject;
+ Column: TListColumn);
const
SD: array[TSortDirection] of TSortDirection = (sdDescending, sdAscending);
begin
@@ -210,8 +217,10 @@
procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject);
const
- Interest: array[TCheckBoxState] of TAttributeInterest = (aiRejected, aiRequired, aiIgnored);
- CBState: array[TAttributeInterest] of TCheckBoxState = (cbGrayed, cbUnchecked, cbChecked);
+ Interest: array[TCheckBoxState] of TAttributeInterest =
+ (aiRejected, aiRequired, aiIgnored);
+ CBState: array[TAttributeInterest] of TCheckBoxState =
+ (cbGrayed, cbUnchecked, cbChecked);
begin
with FFileEnumerator.AttributeMask do
begin
@@ -250,7 +259,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 +276,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/graphics/QClipLineDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/graphics/StretchGraphicDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -31,7 +31,7 @@
JclQGraphics,
{$ENDIF VisualCLX}
{$IFDEF HasShellCtrls}
- {$WARN UNIT_PLATFORM OFF}
+ {$WARN UNIT_PLATFORM OFF}
ShellCtrls,
{$ENDIF HasShellCtrls}
JclFileUtils;
@@ -101,8 +101,10 @@
FStretchTime: LongWord;
FPreserveAspectRatio: Boolean;
FResamplingFilter: TResamplingFilter;
- procedure AddToFileList(const Directory: string; const FileInfo: TSearchRec);
- procedure FileSearchTerminated(const ID: TFileSearchTaskID; const Aborted: Boolean);
+ procedure AddToFileList(const Directory: string;
+ const FileInfo: TSearchRec);
+ procedure FileSearchTerminated(const ID: TFileSearchTaskID;
+ const Aborted: Boolean);
function ChangeDirectory: Boolean;
procedure DoStretch;
procedure LoadFile(const AFileName: string);
@@ -118,7 +120,8 @@
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DropFiles;
{$ENDIF VCL}
protected
- property FileListIndex: Integer read GetFileListIndex write SetFileListIndex;
+ property FileListIndex: Integer read GetFileListIndex
+ write SetFileListIndex;
property FileName: string read FFileName write SetFileName;
end;
@@ -139,9 +142,10 @@
{$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;
+procedure ProcessWMDropFiles(var Msg: TWMDropFiles;
+ Callback: TWMDropFilesCallback; DropPoint: PPoint = nil); overload;
var
i: Integer;
FileName: array[0..MAX_PATH] of Char;
@@ -162,7 +166,8 @@
end;
end;
-procedure ProcessWMDropFiles(var Msg: TWMDropFiles; FileNames: TStrings; DropPoint: PPoint = nil); overload;
+procedure ProcessWMDropFiles(var Msg: TWMDropFiles; FileNames: TStrings;
+ DropPoint: PPoint = nil); overload;
begin
ProcessWMDropFiles(Msg, FileNames.Append, DropPoint);
end;
@@ -176,7 +181,8 @@
Result := (Pos(Ext, FileMask) > 0);
end;
-function IsGraphicFile(const Attr: Integer; const FileInfo: TSearchRec): Boolean; overload;
+function IsGraphicFile(const Attr: Integer;
+ const FileInfo: TSearchRec): Boolean; overload;
begin
Result := IsGraphicFile(FileInfo.Name);
end;
@@ -201,23 +207,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}
@@ -252,7 +258,8 @@
end;
end;
-procedure TStretchDemoForm.AddToFileList(const Directory: string; const FileInfo: TSearchRec);
+procedure TStretchDemoForm.AddToFileList(const Directory: string;
+ const FileInfo: TSearchRec);
begin
with FileListView.Items.Add do
begin
@@ -260,7 +267,8 @@
end;
end;
-procedure TStretchDemoForm.FileSearchTerminated(const ID: TFileSearchTaskID; const Aborted: Boolean);
+procedure TStretchDemoForm.FileSearchTerminated(const ID: TFileSearchTaskID;
+ const Aborted: Boolean);
begin
with FileListView do
Selected := FindCaption(0, FileName, False, True, False);
@@ -302,7 +310,7 @@
PageControl.ActivePage := OriginalPage
else
{$ENDIF VCL}
- PageControl.ActivePage := FLastImagePage;
+ PageControl.ActivePage := FLastImagePage;
FocusControl(PageControl);
end;
end;
@@ -331,8 +339,8 @@
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
@@ -345,7 +353,8 @@
begin
T := GetTickCount;
StretchedImage.Picture.Graphic := nil;
- JclGraphics.Stretch(W, H, FResamplingFilter, 0, OriginalImage.Picture.Graphic,
+ JclGraphics.Stretch(W, H, FResamplingFilter, 0,
+ OriginalImage.Picture.Graphic,
StretchedImage.Picture.Bitmap);
with OriginalImage.Picture do
StatusBar.Panels[0].Text := Format('Original: %d x %d', [Width, Height]);
@@ -355,7 +364,8 @@
FHeight := H;
FStretchTime := GetTickCount - T;
with StretchedImage.Picture do
- StatusBar.Panels[2].Text := Format('Resize time: %d msec', [FStretchTime]);
+ StatusBar.Panels[2].Text :=
+ Format('Resize time: %d msec', [FStretchTime]);
end;
end;
@@ -379,14 +389,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;
@@ -419,15 +429,15 @@
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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -153,13 +153,15 @@
begin
MIDIKey.Value := KeyMenu.PopupComponent.Tag;
if ShowModal = mrOK then
- FMidiOut.SendSingleNoteTuningChange(0, 0, [MidiSingleNoteTuningData(MIDIKey.Value, MIDIFrequency)]);
+ FMidiOut.SendSingleNoteTuningChange(0, 0,
+ [MidiSingleNoteTuningData(MIDIKey.Value, MIDIFrequency)]);
end;
end;
procedure TKeyboard.PitchBenderChange(Sender: TObject);
begin
- FMidiOut.SendPitchWheelChange(FChannel, PitchBender.Position + MidiPitchWheelCenter);
+ FMidiOut.SendPitchWheelChange(FChannel, PitchBender.Position +
+ MidiPitchWheelCenter);
end;
procedure TKeyboard.ModWheelChange(Sender: TObject);
@@ -191,4 +193,3 @@
end;
end.
-
Modified: branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas
===================================================================
--- branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -52,8 +52,8 @@
const
HalftonesPerOctave = 12;
- MiddleA = 440.0; // Hertz
- MidiMiddleA = 69; // A3 = 440 Hertz
+ MiddleA = 440.0; // Hertz
+ MidiMiddleA = 69; // A3 = 440 Hertz
Digits = 6;
MIDIFreqMax = 127.99993896;
FreqHertzMin = 8.17579892;
Modified: branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/numformat/QNumFormatExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -98,7 +98,8 @@
if Exponent = 0 then
S := Mantissa
else
- S := Format('%s %s %d^%d', [Mantissa, FNumFormat.Multiplier, Base, Exponent]);
+ S := Format('%s %s %d^%d', [Mantissa, FNumFormat.Multiplier,
+ Base, Exponent]);
Output.Lines.Add(Format('Base %2d: %s', [Base, S]));
end;
C.Line := 0;
@@ -116,7 +117,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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/pcre/PCREDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/pcre/QPCREDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/rtti/QRTTIDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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;
@@ -168,19 +168,33 @@
Writer.Indent;
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');
+ 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('');
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;
@@ -326,7 +340,8 @@
'Third value', 'Fourth value', 'Fifth value']);
MySubRange := JclGenerateSubRange(MyEnum, 'MySubRange', 1, 3);
MySet := JclGenerateSetType(MyEnum, 'MySet');
- MyCutLowerEnum := JclGenerateEnumTypeBasedOn('MyCutLower', TypeInfo(TLargeEnum),
+ MyCutLowerEnum := JclGenerateEnumTypeBasedOn('MyCutLower',
+ TypeInfo(TLargeEnum),
PREFIX_CUT_LOWERCASE);
end.
Modified: branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/rtti/RTTIDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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;
@@ -167,19 +167,33 @@
Writer.Indent;
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');
+ 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('');
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;
@@ -325,7 +339,8 @@
'Third value', 'Fourth value', 'Fifth value']);
MySubRange := JclGenerateSubRange(MyEnum, 'MySubRange', 1, 3);
MySet := JclGenerateSetType(MyEnum, 'MySet');
- MyCutLowerEnum := JclGenerateEnumTypeBasedOn('MyCutLower', TypeInfo(TLargeEnum),
+ MyCutLowerEnum := JclGenerateEnumTypeBasedOn('MyCutLower',
+ TypeInfo(TLargeEnum),
PREFIX_CUT_LOWERCASE);
end.
Modified: branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/textreader/TextReaderDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -72,7 +72,9 @@
TextListView.Items.Count := LineCount;
TextListView.Invalidate;
StatusBar.Panels[0].Text := ExtractFileName(FileName);
- StatusBar.Panels[1].Text := Format('Lines: %d, Counting time: %.2f ms', [LineCount, LineCountTime * 1000]);
+ StatusBar.Panels[1].Text :=
+ Format('Lines: %d, Counting time: %.2f ms',
+ [LineCount, LineCountTime * 1000]);
end;
procedure TMainForm.TextListViewData(Sender: TObject; Item: TListItem);
@@ -141,11 +143,13 @@
AssignFileTotalTime := StopCount(C);
CloseFile(T);
- ReadLnLabel.Caption := Format('Lines: %d, TJclMappedTextReader: %.2f ms, TStringList: %.2f ms, AssignFile: %.2f ms',
- [LineCount, TotalTime * 1000, StringListTotalTime * 1000, AssignFileTotalTime * 1000]);
+ 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/common/unitversioning/UnitVersioningTestMain.pas
===================================================================
--- branches/code_format/jcl/examples/common/unitversioning/UnitVersioningTestMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/common/unitversioning/UnitVersioningTestMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -127,7 +127,8 @@
begin
Idx := UnitVersioning.IndexOf('unit500.pas');
if Idx <> -1 then
- ShowMessage(Format('IndexOf %s = %d', [UnitVersioning.Items[Idx].RCSfile, Idx]))
+ ShowMessage(Format('IndexOf %s = %d',
+ [UnitVersioning.Items[Idx].RCSfile, Idx]))
else
ShowMessage('IndexOf failed');
end;
@@ -163,7 +164,8 @@
inherited Destroy;
end;
-procedure TDummyUnitVersioningProvider.LoadModuleUnitVersioningInfo(Instance: THandle);
+procedure TDummyUnitVersioningProvider.LoadModuleUnitVersioningInfo(
+ Instance: THandle);
begin
if (Instance = HInstance) and not Assigned(FUV) then
begin
@@ -178,7 +180,8 @@
end;
end;
-procedure TfrmUnitVersioningTestMain.btnTestDummyProviderClick(Sender: TObject);
+procedure TfrmUnitVersioningTestMain.btnTestDummyProviderClick(
+ Sender: TObject);
var
UnitVersioning: TUnitVersioning;
Idx: Integer;
@@ -188,13 +191,15 @@
UnitVersioning.LoadModuleUnitVersioningInfo(HInstance);
Idx := UnitVersioning.IndexOf('DummyUnit.pas');
if Idx <> -1 then
- ShowMessage(Format('IndexOf %s=%d Revision=%s', [UnitVersioning.Items[Idx].RCSfile,
+ ShowMessage(Format('IndexOf %s=%d Revision=%s',
+ [UnitVersioning.Items[Idx].RCSfile,
Idx, UnitVersioning.Items[Idx].Revision]))
else
ShowMessage('DummyProvider Test failed');
end;
-procedure TfrmUnitVersioningTestMain.btnTestGetLocationInfoStrClick(Sender: TObject);
+procedure TfrmUnitVersioningTestMain.btnTestGetLocationInfoStrClick(
+ Sender: TObject);
var
S: string;
begin
@@ -213,14 +218,16 @@
UnitVersioning := GetUnitVersioning;
UnitVersioning.RegisterProvider(TJclDefaultUnitVersioningProvider);
for I := 0 to Pred(UnitVersioning.ModuleCount) do
- UnitVersioning.LoadModuleUnitVersioningInfo(UnitVersioning.Modules[I].Instance);
+ UnitVersioning.LoadModuleUnitVersioningInfo(
+ UnitVersioning.Modules[I].Instance);
tv.Items.BeginUpdate;
try
tv.Items.Clear;
for I := 0 to Pred(UnitVersioning.ModuleCount) do
begin
tnModule := tv.Items.Add(nil, Format('%s [%d units]',
- [GetModulePath(UnitVersioning.Modules[I].Instance), UnitVersioning.Modules[I].Count]));
+ [GetModulePath(UnitVersioning.Modules[I].Instance),
+ UnitVersioning.Modules[I].Count]));
for J := 0 to Pred(UnitVersioning.Modules[I].Count) do
with UnitVersioning.Modules[I][J] do
begin
@@ -228,7 +235,8 @@
if LongFileName <> '' then
LongFileName := PathAddSeparator(LongFileName);
LongFileName := LongFileName + RCSfile;
- tv.Items.AddChild(tnModule, Format('%s %s %s', [LongFileName, Revision, Date]));
+ tv.Items.AddChild(tnModule, Format('%s %s %s',
+ [LongFileName, Revision, Date]));
end;
end;
finally
@@ -274,7 +282,8 @@
UnitList.Add(UnitVersionInfo);
end;
if not InsertUnitVersioningSection(TestDLLFileName, UnitList) then
- ShowMessage(Format('Inserting UnitVersion information section into %s failed',
+ ShowMessage(Format(
+ 'Inserting UnitVersion information section into %s failed',
[TestDLLFileName]));
finally
UnitList.Free;
Modified: branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas
===================================================================
--- branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/windows/appinst/AppInstDemoMain.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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);
@@ -70,7 +70,8 @@
BuildInstancesList;
end;
-procedure TForm1.ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean);
+procedure TForm1.ApplicationEvents1Message(var Msg: TMsg;
+ var Handled: Boolean);
begin
// AI_* messages handler. These messages are automatically send to all instances
// of the application.
@@ -124,20 +125,21 @@
// 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-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -2,7 +2,7 @@
interface
-uses
+uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, JclCLR;
@@ -14,7 +14,8 @@
class procedure DumpBuf(const Ptr: Pointer; const Size: Integer;
const memDump: TMemo; const Base: DWORD = 0;
const AutoClear: Boolean = True); overload;
- class procedure DumpBuf(const Blob: TJclCLRBlobRecord; const memDump: TMemo;
+ class procedure DumpBuf(const Blob: TJclCLRBlobRecord;
+ const memDump: TMemo;
const AutoClear: Boolean = False); overload;
end;
@@ -37,69 +38,72 @@
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;
class procedure TfrmAbstract.DumpBuf(const Blob: TJclCLRBlobRecord;
const memDump: TMemo; const AutoClear: Boolean);
begin
- TfrmAbstract.DumpBuf(Blob.Memory, Blob.Size, memDump, Blob.Offset, AutoClear);
+ TfrmAbstract.DumpBuf(Blob.Memory, Blob.Size, memDump,
+ Blob.Offset, AutoClear);
end;
end.
Modified: branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas
===================================================================
--- branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas 2007-08-07 18:49:54 UTC (rev 2107)
+++ branches/code_format/jcl/examples/windows/clr/ClrDemoBlobForm.pas 2007-08-07 19:29:15 UTC (rev 2108)
@@ -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);
-...
[truncated message content] |
|
From: <ou...@us...> - 2007-08-07 18:49:58
|
Revision: 2107
http://jcl.svn.sourceforge.net/jcl/?rev=2107&view=rev
Author: outchy
Date: 2007-08-07 11:49:54 -0700 (Tue, 07 Aug 2007)
Log Message:
-----------
Branch to review code formatted by Jedi Code Format http://sourceforge.net/projects/jedicodeformat/
Added Paths:
-----------
branches/code_format/
Copied: branches/code_format (from rev 2106, trunk)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-07 17:59:19
|
Revision: 2106
http://jcl.svn.sourceforge.net/jcl/?rev=2106&view=rev
Author: outchy
Date: 2007-08-07 10:59:10 -0700 (Tue, 07 Aug 2007)
Log Message:
-----------
Mantis 4197 Own dialog for exceptions not possible
change from TExceptionDialogClass to ExceptionDialogClass
Modified Paths:
--------------
trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
trunk/jcl/experts/debug/dialog/ExceptDlg.pas
trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas
Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas 2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas 2007-08-07 17:59:10 UTC (rev 2106)
@@ -621,7 +621,7 @@
class procedure T%FORMNAME%.ShowException(E: TObject; Thread: TJclDebugThread);
begin
if %FORMNAME% = nil then
- %FORMNAME% := T%FORMNAME%Class.Create(Application);
+ %FORMNAME% := %FORMNAME%Class.Create(Application);
try
with %FORMNAME% do
begin
Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.pas 2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.pas 2007-08-07 17:59:10 UTC (rev 2106)
@@ -565,7 +565,7 @@
class procedure TExceptionDialog.ShowException(E: TObject; Thread: TJclDebugThread);
begin
if ExceptionDialog = nil then
- ExceptionDialog := TExceptionDialogClass.Create(Application);
+ ExceptionDialog := ExceptionDialogClass.Create(Application);
try
with ExceptionDialog do
begin
Modified: trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas 2007-08-06 19:39:21 UTC (rev 2105)
+++ trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas 2007-08-07 17:59:10 UTC (rev 2106)
@@ -585,7 +585,7 @@
class procedure TExceptionDialogMail.ShowException(E: TObject; Thread: TJclDebugThread);
begin
if ExceptionDialogMail = nil then
- ExceptionDialogMail := TExceptionDialogMailClass.Create(Application);
+ ExceptionDialogMail := ExceptionDialogMailClass.Create(Application);
try
with ExceptionDialogMail do
begin
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-06 19:39:22
|
Revision: 2105
http://jcl.svn.sourceforge.net/jcl/?rev=2105&view=rev
Author: outchy
Date: 2007-08-06 12:39:21 -0700 (Mon, 06 Aug 2007)
Log Message:
-----------
Mantis 4191 Many methods with interface parameters doesn't use const keyword
Modified Paths:
--------------
trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas
trunk/jcl/source/common/JclAbstractContainers.pas
trunk/jcl/source/common/JclAlgorithms.pas
trunk/jcl/source/common/JclArrayLists.pas
trunk/jcl/source/common/JclArraySets.pas
trunk/jcl/source/common/JclBinaryTrees.pas
trunk/jcl/source/common/JclContainerIntf.pas
trunk/jcl/source/common/JclHashMaps.pas
trunk/jcl/source/common/JclHashSets.pas
trunk/jcl/source/common/JclLinkedLists.pas
trunk/jcl/source/common/JclQueues.pas
trunk/jcl/source/common/JclStacks.pas
trunk/jcl/source/common/JclVectors.pas
Modified: trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas
===================================================================
--- trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -62,7 +62,7 @@
FValue := AValue;
end;
-function IntfIntegerComparator(AIntf1, AIntf2: IInterface): Integer;
+function IntfIntegerComparator(const AIntf1, AIntf2: IInterface): Integer;
begin
Result := (AIntf1 as IIntfInteger).Value - (AIntf2 as IIntfInteger).Value;
end;
@@ -82,7 +82,8 @@
Tree.Add(Obj);
end;
- if Tree.Contains(TIntfInteger.Create(15)) then
+ Obj := TIntfInteger.Create(15);
+ if Tree.Contains(Obj) then
memoResult.Lines.Add('contains 15');
Tree.TraverseOrder := toPostOrder;
Modified: trunk/jcl/source/common/JclAbstractContainers.pas
===================================================================
--- trunk/jcl/source/common/JclAbstractContainers.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclAbstractContainers.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -71,17 +71,17 @@
protected
{ IJclStrCollection }
function Add(const AString: string): Boolean; virtual; abstract;
- function AddAll(ACollection: IJclStrCollection): Boolean; virtual; abstract;
+ function AddAll(const ACollection: IJclStrCollection): Boolean; virtual; abstract;
procedure Clear; virtual; abstract;
function Contains(const AString: string): Boolean; virtual; abstract;
- function ContainsAll(ACollection: IJclStrCollection): Boolean; virtual; abstract;
- function Equals(ACollection: IJclStrCollection): Boolean; virtual; abstract;
+ function ContainsAll(const ACollection: IJclStrCollection): Boolean; virtual; abstract;
+ function Equals(const ACollection: IJclStrCollection): Boolean; virtual; abstract;
function First: IJclStrIterator; virtual; abstract;
function IsEmpty: Boolean; virtual; abstract;
function Last: IJclStrIterator; virtual; abstract;
function Remove(const AString: string): Boolean; overload; virtual; abstract;
- function RemoveAll(ACollection: IJclStrCollection): Boolean; virtual; abstract;
- function RetainAll(ACollection: IJclStrCollection): Boolean; virtual; abstract;
+ function RemoveAll(const ACollection: IJclStrCollection): Boolean; virtual; abstract;
+ function RetainAll(const ACollection: IJclStrCollection): Boolean; virtual; abstract;
function Size: Integer; virtual; abstract;
procedure LoadFromStrings(Strings: TStrings);
procedure SaveToStrings(Strings: TStrings);
Modified: trunk/jcl/source/common/JclAlgorithms.pas
===================================================================
--- trunk/jcl/source/common/JclAlgorithms.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclAlgorithms.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -39,71 +39,74 @@
// function pointer types
type
// pointer functions for Apply Algorithms
- TIntfApplyFunction = function(AInterface: IInterface): IInterface;
+ TIntfApplyFunction = function(const AInterface: IInterface): IInterface;
TStrApplyFunction = function(const AString: string): string;
TApplyFunction = function(AObject: TObject): TObject;
// Pointer functions for comparator
- TIntfCompare = function(Obj1, Obj2: IInterface): Integer;
+ TIntfCompare = function(const Obj1, Obj2: IInterface): Integer;
TStrCompare = function(const Obj, Obj2: string): Integer;
TCompare = function(Obj1, Obj2: TObject): Integer;
// Compare functions
-function IntfSimpleCompare(Obj1, Obj2: IInterface): Integer;
+function IntfSimpleCompare(const Obj1, Obj2: IInterface): Integer;
function StrSimpleCompare(const Obj1, Obj2: string): Integer;
function SimpleCompare(Obj1, Obj2: TObject): Integer;
function IntegerCompare(Obj1, Obj2: TObject): Integer;
// Apply algorithms
-procedure Apply(First: IJclIntfIterator; Count: Integer; F: TIntfApplyFunction); overload;
-procedure Apply(First: IJclStrIterator; Count: Integer; F: TStrApplyFunction); overload;
-procedure Apply(First: IJclIterator; Count: Integer; F: TApplyFunction); overload;
+procedure Apply(const First: IJclIntfIterator; Count: Integer; F: TIntfApplyFunction); overload;
+procedure Apply(const First: IJclStrIterator; Count: Integer; F: TStrApplyFunction); overload;
+procedure Apply(const First: IJclIterator; Count: Integer; F: TApplyFunction); overload;
// Find algorithms
-function Find(First: IJclIntfIterator; Count: Integer; AInterface: IInterface;
+function Find(const First: IJclIntfIterator; Count: Integer; const AInterface: IInterface;
AComparator: TIntfCompare): IJclIntfIterator; overload;
-function Find(First: IJclStrIterator; Count: Integer; const AString: string;
+function Find(const First: IJclStrIterator; Count: Integer; const AString: string;
AComparator: TStrCompare): IJclStrIterator; overload;
-function Find(First: IJclIterator; Count: Integer; AObject: TObject;
+function Find(const First: IJclIterator; Count: Integer; AObject: TObject;
AComparator: TCompare): IJclIterator; overload;
// CountObject algorithms
-function CountObject(First: IJclIntfIterator; Count: Integer; AInterface: IInterface;
- AComparator: TIntfCompare): Integer; overload;
-function CountObject(First: IJclStrIterator; Count: Integer; const AString: string;
- AComparator: TStrCompare): Integer; overload;
-function CountObject(First: IJclIterator; Count: Integer; AObject: TObject;
+function CountObject(const First: IJclIntfIterator; Count: Integer;
+ const AInterface: IInterface; AComparator: TIntfCompare): Integer; overload;
+function CountObject(const First: IJclStrIterator; Count: Integer;
+ const AString: string; AComparator: TStrCompare): Integer; overload;
+function CountObject(const First: IJclIterator; Count: Integer; AObject: TObject;
AComparator: TCompare): Integer; overload;
// Copy algorithms
-procedure Copy(First: IJclIntfIterator; Count: Integer; Output: IJclIntfIterator); overload;
-procedure Copy(First: IJclStrIterator; Count: Integer; Output: IJclStrIterator); overload;
-procedure Copy(First: IJclIterator; Count: Integer; Output: IJclIterator); overload;
+procedure Copy(const First: IJclIntfIterator; Count: Integer;
+ const Output: IJclIntfIterator); overload;
+procedure Copy(const First: IJclStrIterator; Count: Integer;
+ const Output: IJclStrIterator); overload;
+procedure Copy(const First: IJclIterator; Count: Integer;
+ const Output: IJclIterator); overload;
// Generate algorithms
-procedure Generate(List: IJclIntfList; Count: Integer; AInterface: IInterface); overload;
-procedure Generate(List: IJclStrList; Count: Integer; const AString: string); overload;
-procedure Generate(List: IJclList; Count: Integer; AObject: TObject); overload;
+procedure Generate(const List: IJclIntfList; Count: Integer; const AInterface: IInterface); overload;
+procedure Generate(const List: IJclStrList; Count: Integer; const AString: string); overload;
+procedure Generate(const List: IJclList; Count: Integer; AObject: TObject); overload;
// Fill algorithms
-procedure Fill(First: IJclIntfIterator; Count: Integer; AInterface: IInterface); overload;
-procedure Fill(First: IJclStrIterator; Count: Integer; const AString: string); overload;
-procedure Fill(First: IJclIterator; Count: Integer; AObject: TObject); overload;
+procedure Fill(const First: IJclIntfIterator; Count: Integer; const AInterface: IInterface); overload;
+procedure Fill(const First: IJclStrIterator; Count: Integer; const AString: string); overload;
+procedure Fill(const First: IJclIterator; Count: Integer; AObject: TObject); overload;
// Reverse algorithms
-procedure Reverse(First, Last: IJclIntfIterator); overload;
-procedure Reverse(First, Last: IJclStrIterator); overload;
-procedure Reverse(First, Last: IJclIterator); overload;
+procedure Reverse(const First, Last: IJclIntfIterator); overload;
+procedure Reverse(const First, Last: IJclStrIterator); overload;
+procedure Reverse(const First, Last: IJclIterator); overload;
type
// Pointer functions for sort algorithms
- TIntfSortProc = procedure(AList: IJclIntfList; L, R: Integer; AComparator: TIntfCompare);
- TStrSortProc = procedure(AList: IJclStrList; L, R: Integer; AComparator: TStrCompare);
- TSortProc = procedure(AList: IJclList; L, R: Integer; AComparator: TCompare);
+ TIntfSortProc = procedure(const AList: IJclIntfList; L, R: Integer; AComparator: TIntfCompare);
+ TStrSortProc = procedure(const AList: IJclStrList; L, R: Integer; AComparator: TStrCompare);
+ TSortProc = procedure(const AList: IJclList; L, R: Integer; AComparator: TCompare);
-procedure QuickSort(AList: IJclIntfList; L, R: Integer; AComparator: TIntfCompare); overload;
-procedure QuickSort(AList: IJclStrList; L, R: Integer; AComparator: TStrCompare); overload;
-procedure QuickSort(AList: IJclList; L, R: Integer; AComparator: TCompare); overload;
+procedure QuickSort(const AList: IJclIntfList; L, R: Integer; AComparator: TIntfCompare); overload;
+procedure QuickSort(const AList: IJclStrList; L, R: Integer; AComparator: TStrCompare); overload;
+procedure QuickSort(const AList: IJclList; L, R: Integer; AComparator: TCompare); overload;
var
IntfSortProc: TIntfSortProc = QuickSort;
@@ -111,9 +114,9 @@
SortProc: TSortProc = QuickSort;
// Sort algorithms
-procedure Sort(AList: IJclIntfList; First, Last: Integer; AComparator: TIntfCompare); overload;
-procedure Sort(AList: IJclStrList; First, Last: Integer; AComparator: TStrCompare); overload;
-procedure Sort(AList: IJclList; First, Last: Integer; AComparator: TCompare); overload;
+procedure Sort(const AList: IJclIntfList; First, Last: Integer; AComparator: TIntfCompare); overload;
+procedure Sort(const AList: IJclStrList; First, Last: Integer; AComparator: TStrCompare); overload;
+procedure Sort(const AList: IJclList; First, Last: Integer; AComparator: TCompare); overload;
{$IFDEF UNITVERSIONING}
const
@@ -130,7 +133,7 @@
uses
SysUtils;
-function IntfSimpleCompare(Obj1, Obj2: IInterface): Integer;
+function IntfSimpleCompare(const Obj1, Obj2: IInterface): Integer;
begin
if Cardinal(Obj1) < Cardinal(Obj2) then
Result := -1
@@ -163,7 +166,7 @@
Result := Integer(Obj1) - Integer(Obj2);
end;
-procedure Apply(First: IJclIntfIterator; Count: Integer; F: TIntfApplyFunction);
+procedure Apply(const First: IJclIntfIterator; Count: Integer; F: TIntfApplyFunction);
var
I: Integer;
begin
@@ -177,7 +180,7 @@
Break;
end;
-procedure Apply(First: IJclStrIterator; Count: Integer; F: TStrApplyFunction);
+procedure Apply(const First: IJclStrIterator; Count: Integer; F: TStrApplyFunction);
var
I: Integer;
begin
@@ -191,7 +194,7 @@
Break;
end;
-procedure Apply(First: IJclIterator; Count: Integer; F: TApplyFunction);
+procedure Apply(const First: IJclIterator; Count: Integer; F: TApplyFunction);
var
I: Integer;
begin
@@ -205,8 +208,8 @@
Break;
end;
-function Find(First: IJclIntfIterator; Count: Integer; AInterface: IInterface;
- AComparator: TIntfCompare): IJclIntfIterator;
+function Find(const First: IJclIntfIterator; Count: Integer;
+ const AInterface: IInterface; AComparator: TIntfCompare): IJclIntfIterator;
var
I: Integer;
begin
@@ -225,8 +228,8 @@
Break;
end;
-function Find(First: IJclStrIterator; Count: Integer; const AString: string;
- AComparator: TStrCompare): IJclStrIterator;
+function Find(const First: IJclStrIterator; Count: Integer;
+ const AString: string; AComparator: TStrCompare): IJclStrIterator;
var
I: Integer;
begin
@@ -245,7 +248,7 @@
Break;
end;
-function Find(First: IJclIterator; Count: Integer; AObject: TObject;
+function Find(const First: IJclIterator; Count: Integer; AObject: TObject;
AComparator: TCompare): IJclIterator;
var
I: Integer;
@@ -265,8 +268,8 @@
Break;
end;
-function CountObject(First: IJclIntfIterator; Count: Integer; AInterface: IInterface;
- AComparator: TIntfCompare): Integer;
+function CountObject(const First: IJclIntfIterator; Count: Integer;
+ const AInterface: IInterface; AComparator: TIntfCompare): Integer;
var
I: Integer;
begin
@@ -278,8 +281,8 @@
Break;
end;
-function CountObject(First: IJclStrIterator; Count: Integer; const AString: string;
- AComparator: TStrCompare): Integer;
+function CountObject(const First: IJclStrIterator; Count: Integer;
+ const AString: string; AComparator: TStrCompare): Integer;
var
I: Integer;
begin
@@ -291,7 +294,7 @@
Break;
end;
-function CountObject(First: IJclIterator; Count: Integer; AObject: TObject;
+function CountObject(const First: IJclIterator; Count: Integer; AObject: TObject;
AComparator: TCompare): Integer;
var
I: Integer;
@@ -304,7 +307,8 @@
Break;
end;
-procedure Copy(First: IJclIntfIterator; Count: Integer; Output: IJclIntfIterator);
+procedure Copy(const First: IJclIntfIterator; Count: Integer;
+ const Output: IJclIntfIterator);
var
I: Integer;
begin
@@ -319,7 +323,8 @@
Break;
end;
-procedure Copy(First: IJclStrIterator; Count: Integer; Output: IJclStrIterator);
+procedure Copy(const First: IJclStrIterator; Count: Integer;
+ const Output: IJclStrIterator);
var
I: Integer;
begin
@@ -334,7 +339,8 @@
Break;
end;
-procedure Copy(First: IJclIterator; Count: Integer; Output: IJclIterator);
+procedure Copy(const First: IJclIterator; Count: Integer;
+ const Output: IJclIterator);
var
I: Integer;
begin
@@ -349,7 +355,8 @@
Break;
end;
-procedure Generate(List: IJclIntfList; Count: Integer; AInterface: IInterface);
+procedure Generate(const List: IJclIntfList; Count: Integer;
+ const AInterface: IInterface);
var
I: Integer;
begin
@@ -358,7 +365,8 @@
List.Add(AInterface);
end;
-procedure Generate(List: IJclStrList; Count: Integer; const AString: string);
+procedure Generate(const List: IJclStrList; Count: Integer;
+ const AString: string);
var
I: Integer;
begin
@@ -367,7 +375,7 @@
List.Add(AString);
end;
-procedure Generate(List: IJclList; Count: Integer; AObject: TObject);
+procedure Generate(const List: IJclList; Count: Integer; AObject: TObject);
var
I: Integer;
begin
@@ -376,7 +384,8 @@
List.Add(AObject);
end;
-procedure Fill(First: IJclIntfIterator; Count: Integer; AInterface: IInterface);
+procedure Fill(const First: IJclIntfIterator; Count: Integer;
+ const AInterface: IInterface);
var
I: Integer;
begin
@@ -390,7 +399,8 @@
Break;
end;
-procedure Fill(First: IJclStrIterator; Count: Integer; const AString: string);
+procedure Fill(const First: IJclStrIterator; Count: Integer;
+ const AString: string);
var
I: Integer;
begin
@@ -404,7 +414,7 @@
Break;
end;
-procedure Fill(First: IJclIterator; Count: Integer; AObject: TObject);
+procedure Fill(const First: IJclIterator; Count: Integer; AObject: TObject);
var
I: Integer;
begin
@@ -418,7 +428,7 @@
Break;
end;
-procedure Reverse(First, Last: IJclIntfIterator);
+procedure Reverse(const First, Last: IJclIntfIterator);
var
Obj: IInterface;
begin
@@ -436,7 +446,7 @@
end;
end;
-procedure Reverse(First, Last: IJclStrIterator);
+procedure Reverse(const First, Last: IJclStrIterator);
var
Obj: string;
begin
@@ -454,7 +464,7 @@
end;
end;
-procedure Reverse(First, Last: IJclIterator);
+procedure Reverse(const First, Last: IJclIterator);
var
Obj: TObject;
begin
@@ -472,7 +482,8 @@
end;
end;
-procedure QuickSort(AList: IJclIntfList; L, R: Integer; AComparator: TIntfCompare);
+procedure QuickSort(const AList: IJclIntfList; L, R: Integer;
+ AComparator: TIntfCompare);
var
I, J, P: Integer;
Obj: IInterface;
@@ -506,7 +517,8 @@
until I >= R;
end;
-procedure QuickSort(AList: IJclStrList; L, R: Integer; AComparator: TStrCompare);
+procedure QuickSort(const AList: IJclStrList; L, R: Integer;
+ AComparator: TStrCompare);
var
I, J, P: Integer;
Obj: string;
@@ -540,7 +552,7 @@
until I >= R;
end;
-procedure QuickSort(AList: IJclList; L, R: Integer; AComparator: TCompare);
+procedure QuickSort(const AList: IJclList; L, R: Integer; AComparator: TCompare);
var
I, J, P: Integer;
Obj: TObject;
@@ -574,17 +586,17 @@
until I >= R;
end;
-procedure Sort(AList: IJclIntfList; First, Last: Integer; AComparator: TIntfCompare);
+procedure Sort(const AList: IJclIntfList; First, Last: Integer; AComparator: TIntfCompare);
begin
IntfSortProc(AList, First, Last, AComparator);
end;
-procedure Sort(AList: IJclStrList; First, Last: Integer; AComparator: TStrCompare);
+procedure Sort(const AList: IJclStrList; First, Last: Integer; AComparator: TStrCompare);
begin
StrSortProc(AList, First, Last, AComparator);
end;
-procedure Sort(AList: IJclList; First, Last: Integer; AComparator: TCompare);
+procedure Sort(const AList: IJclList; First, Last: Integer; AComparator: TCompare);
begin
SortProc(AList, First, Last, AComparator);
end;
Modified: trunk/jcl/source/common/JclArrayLists.pas
===================================================================
--- trunk/jcl/source/common/JclArrayLists.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclArrayLists.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -48,33 +48,33 @@
protected
procedure Grow; virtual;
{ IJclIntfCollection }
- function Add(AInterface: IInterface): Boolean; overload;
- function AddAll(ACollection: IJclIntfCollection): Boolean; overload;
+ function Add(const AInterface: IInterface): Boolean; overload;
+ function AddAll(const ACollection: IJclIntfCollection): Boolean; overload;
procedure Clear;
- function Contains(AInterface: IInterface): Boolean;
- function ContainsAll(ACollection: IJclIntfCollection): Boolean;
- function Equals(ACollection: IJclIntfCollection): Boolean;
+ function Contains(const AInterface: IInterface): Boolean;
+ function ContainsAll(const ACollection: IJclIntfCollection): Boolean;
+ function Equals(const ACollection: IJclIntfCollection): Boolean;
function First: IJclIntfIterator;
function IsEmpty: Boolean;
function Last: IJclIntfIterator;
- function Remove(AInterface: IInterface): Boolean; overload;
- function RemoveAll(ACollection: IJclIntfCollection): Boolean;
- function RetainAll(ACollection: IJclIntfCollection): Boolean;
+ function Remove(const AInterface: IInterface): Boolean; overload;
+ function RemoveAll(const ACollection: IJclIntfCollection): Boolean;
+ function RetainAll(const ACollection: IJclIntfCollection): Boolean;
function Size: Integer;
{ IJclIntfList }
- procedure Insert(Index: Integer; AInterface: IInterface); overload;
- function InsertAll(Index: Integer; ACollection: IJclIntfCollection): Boolean; overload;
+ procedure Insert(Index: Integer; const AInterface: IInterface); overload;
+ function InsertAll(Index: Integer; const ACollection: IJclIntfCollection): Boolean; overload;
function GetObject(Index: Integer): IInterface;
- function IndexOf(AInterface: IInterface): Integer;
- function LastIndexOf(AInterface: IInterface): Integer;
+ function IndexOf(const AInterface: IInterface): Integer;
+ function LastIndexOf(const AInterface: IInterface): Integer;
function Remove(Index: Integer): IInterface; overload;
- procedure SetObject(Index: Integer; AInterface: IInterface);
+ procedure SetObject(Index: Integer; const AInterface: IInterface);
function SubList(First, Count: Integer): IJclIntfList;
{ IJclIntfCloneable }
function Clone: IInterface;
public
constructor Create(ACapacity: Integer = DefaultContainerCapacity); overload;
- constructor Create(ACollection: IJclIntfCollection); overload;
+ constructor Create(const ACollection: IJclIntfCollection); overload;
destructor Destroy; override;
property Capacity: Integer read FCapacity write SetCapacity;
end;
@@ -90,21 +90,21 @@
procedure Grow; virtual;
{ IJclStrCollection }
function Add(const AString: string): Boolean; overload; override;
- function AddAll(ACollection: IJclStrCollection): Boolean; overload; override;
+ function AddAll(const ACollection: IJclStrCollection): Boolean; overload; override;
procedure Clear; override;
function Contains(const AString: string): Boolean; override;
- function ContainsAll(ACollection: IJclStrCollection): Boolean; override;
- function Equals(ACollection: IJclStrCollection): Boolean; override;
+ function ContainsAll(const ACollection: IJclStrCollection): Boolean; override;
+ function Equals(const ACollection: IJclStrCollection): Boolean; override;
function First: IJclStrIterator; override;
function IsEmpty: Boolean; override;
function Last: IJclStrIterator; override;
function Remove(const AString: string): Boolean; overload; override;
- function RemoveAll(ACollection: IJclStrCollection): Boolean; override;
- function RetainAll(ACollection: IJclStrCollection): Boolean; override;
+ function RemoveAll(const ACollection: IJclStrCollection): Boolean; override;
+ function RetainAll(const ACollection: IJclStrCollection): Boolean; override;
function Size: Integer; override;
{ IJclStrList }
procedure Insert(Index: Integer; const AString: string); overload;
- function InsertAll(Index: Integer; ACollection: IJclStrCollection): Boolean; overload;
+ function InsertAll(Index: Integer; const ACollection: IJclStrCollection): Boolean; overload;
function GetString(Index: Integer): string;
function IndexOf(const AString: string): Integer;
function LastIndexOf(const AString: string): Integer;
@@ -113,7 +113,7 @@
function SubList(First, Count: Integer): IJclStrList;
public
constructor Create(ACapacity: Integer = DefaultContainerCapacity); overload;
- constructor Create(ACollection: IJclStrCollection); overload;
+ constructor Create(const ACollection: IJclStrCollection); overload;
destructor Destroy; override;
{ IJclCloneable }
function Clone: TObject;
@@ -133,21 +133,21 @@
procedure FreeObject(var AObject: TObject);
{ IJclCollection }
function Add(AObject: TObject): Boolean; overload;
- function AddAll(ACollection: IJclCollection): Boolean; overload;
+ function AddAll(const ACollection: IJclCollection): Boolean; overload;
procedure Clear;
function Contains(AObject: TObject): Boolean;
- function ContainsAll(ACollection: IJclCollection): Boolean;
- function Equals(ACollection: IJclCollection): Boolean;
+ function ContainsAll(const ACollection: IJclCollection): Boolean;
+ function Equals(const ACollection: IJclCollection): Boolean;
function First: IJclIterator;
function IsEmpty: Boolean;
function Last: IJclIterator;
function Remove(AObject: TObject): Boolean; overload;
- function RemoveAll(ACollection: IJclCollection): Boolean;
- function RetainAll(ACollection: IJclCollection): Boolean;
+ function RemoveAll(const ACollection: IJclCollection): Boolean;
+ function RetainAll(const ACollection: IJclCollection): Boolean;
function Size: Integer;
{ IJclList }
procedure Insert(Index: Integer; AObject: TObject); overload;
- function InsertAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+ function InsertAll(Index: Integer; const ACollection: IJclCollection): Boolean; overload;
function GetObject(Index: Integer): TObject;
function IndexOf(AObject: TObject): Integer;
function LastIndexOf(AObject: TObject): Integer;
@@ -158,7 +158,7 @@
function Clone: TObject;
public
constructor Create(ACapacity: Integer = DefaultContainerCapacity; AOwnsObjects: Boolean = True); overload;
- constructor Create(ACollection: IJclCollection; AOwnsObjects: Boolean = True); overload;
+ constructor Create(const ACollection: IJclCollection; AOwnsObjects: Boolean = True); overload;
destructor Destroy; override;
property Capacity: Integer read FCapacity write SetCapacity;
property OwnsObjects: Boolean read FOwnsObjects;
@@ -191,7 +191,7 @@
FSize: Integer;
protected
{ IJclIntfIterator}
- procedure Add(AInterface: IInterface);
+ procedure Add(const AInterface: IInterface);
function GetObject: IInterface;
function HasNext: Boolean;
function HasPrevious: Boolean;
@@ -200,7 +200,7 @@
function Previous: IInterface;
function PreviousIndex: Integer;
procedure Remove;
- procedure SetObject(AInterface: IInterface);
+ procedure SetObject(const AInterface: IInterface);
public
constructor Create(AOwnList: TJclIntfArrayList);
{$IFNDEF CLR}
@@ -228,7 +228,7 @@
end;
{$ENDIF ~CLR}
-procedure TIntfItr.Add(AInterface: IInterface);
+procedure TIntfItr.Add(const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -329,7 +329,7 @@
Dec(FSize);
end;
-procedure TIntfItr.SetObject(AInterface: IInterface);
+procedure TIntfItr.SetObject(const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -684,7 +684,7 @@
SetLength(FElementData, FCapacity);
end;
-constructor TJclIntfArrayList.Create(ACollection: IJclIntfCollection);
+constructor TJclIntfArrayList.Create(const ACollection: IJclIntfCollection);
begin
// (rom) disabled because the following Create already calls inherited
// inherited Create;
@@ -704,7 +704,7 @@
inherited Destroy;
end;
-procedure TJclIntfArrayList.Insert(Index: Integer; AInterface: IInterface);
+procedure TJclIntfArrayList.Insert(Index: Integer; const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -727,7 +727,7 @@
Inc(FSize);
end;
-function TJclIntfArrayList.InsertAll(Index: Integer; ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.InsertAll(Index: Integer; const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
Size: Integer;
@@ -761,7 +761,7 @@
end;
end;
-function TJclIntfArrayList.Add(AInterface: IInterface): Boolean;
+function TJclIntfArrayList.Add(const AInterface: IInterface): Boolean;
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -780,7 +780,7 @@
Result := True;
end;
-function TJclIntfArrayList.AddAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.AddAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -832,7 +832,7 @@
Result := NewList;
end;
-function TJclIntfArrayList.Contains(AInterface: IInterface): Boolean;
+function TJclIntfArrayList.Contains(const AInterface: IInterface): Boolean;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -853,7 +853,7 @@
end;
end;
-function TJclIntfArrayList.ContainsAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.ContainsAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -871,7 +871,7 @@
Result := contains(It.Next);
end;
-function TJclIntfArrayList.Equals(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.Equals(const ACollection: IJclIntfCollection): Boolean;
var
I: Integer;
It: IJclIntfIterator;
@@ -935,7 +935,7 @@
Capacity := Capacity * 4;
end;
-function TJclIntfArrayList.IndexOf(AInterface: IInterface): Integer;
+function TJclIntfArrayList.IndexOf(const AInterface: IInterface): Integer;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -976,7 +976,7 @@
Result := NewIterator;
end;
-function TJclIntfArrayList.LastIndexOf(AInterface: IInterface): Integer;
+function TJclIntfArrayList.LastIndexOf(const AInterface: IInterface): Integer;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -997,7 +997,7 @@
end;
end;
-function TJclIntfArrayList.Remove(AInterface: IInterface): Boolean;
+function TJclIntfArrayList.Remove(const AInterface: IInterface): Boolean;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -1043,7 +1043,7 @@
Dec(FSize);
end;
-function TJclIntfArrayList.RemoveAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.RemoveAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1061,7 +1061,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclIntfArrayList.RetainAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArrayList.RetainAll(const ACollection: IJclIntfCollection): Boolean;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -1079,7 +1079,7 @@
Remove(I);
end;
-procedure TJclIntfArrayList.SetObject(Index: Integer; AInterface: IInterface);
+procedure TJclIntfArrayList.SetObject(Index: Integer; const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -1134,7 +1134,7 @@
SetLength(FElementData, FCapacity);
end;
-constructor TJclStrArrayList.Create(ACollection: IJclStrCollection);
+constructor TJclStrArrayList.Create(const ACollection: IJclStrCollection);
begin
// (rom) disabled because the following Create already calls inherited
// inherited Create;
@@ -1177,7 +1177,8 @@
Inc(FSize);
end;
-function TJclStrArrayList.InsertAll(Index: Integer; ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.InsertAll(Index: Integer;
+ const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
Size: Integer;
@@ -1235,7 +1236,7 @@
Result := True;
end;
-function TJclStrArrayList.AddAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.AddAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -1309,7 +1310,7 @@
end;
end;
-function TJclStrArrayList.ContainsAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.ContainsAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -1327,7 +1328,7 @@
Result := Contains(It.Next);
end;
-function TJclStrArrayList.Equals(ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.Equals(const ACollection: IJclStrCollection): Boolean;
var
I: Integer;
It: IJclStrIterator;
@@ -1499,7 +1500,7 @@
Dec(FSize);
end;
-function TJclStrArrayList.RemoveAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.RemoveAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -1517,7 +1518,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclStrArrayList.RetainAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrArrayList.RetainAll(const ACollection: IJclStrCollection): Boolean;
var
I: Integer;
{$IFDEF THREADSAFE}
@@ -1592,7 +1593,8 @@
SetLength(FElementData, FCapacity);
end;
-constructor TJclArrayList.Create(ACollection: IJclCollection; AOwnsObjects: Boolean = True);
+constructor TJclArrayList.Create(const ACollection: IJclCollection;
+ AOwnsObjects: Boolean = True);
begin
// (rom) disabled because the following Create already calls inherited
// inherited Create;
@@ -1635,7 +1637,8 @@
Inc(FSize);
end;
-function TJclArrayList.InsertAll(Index: Integer; ACollection: IJclCollection): Boolean;
+function TJclArrayList.InsertAll(Index: Integer;
+ const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
Size: Integer;
@@ -1685,7 +1688,7 @@
Result := True;
end;
-function TJclArrayList.AddAll(ACollection: IJclCollection): Boolean;
+function TJclArrayList.AddAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -1755,7 +1758,7 @@
end;
end;
-function TJclArrayList.ContainsAll(ACollection: IJclCollection): Boolean;
+function TJclArrayList.ContainsAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -1773,7 +1776,7 @@
Result := contains(It.Next);
end;
-function TJclArrayList.Equals(ACollection: IJclCollection): Boolean;
+function TJclArrayList.Equals(const ACollection: IJclCollection): Boolean;
var
I: Integer;
It: IJclIterator;
@@ -1954,7 +1957,7 @@
Dec(FSize);
end;
-function TJclArrayList.RemoveAll(ACollection: IJclCollection): Boolean;
+function TJclArrayList.RemoveAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -1972,7 +1975,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclArrayList.RetainAll(ACollection: IJclCollection): Boolean;
+function TJclArrayList.RetainAll(const ACollection: IJclCollection): Boolean;
var
I: Integer;
{$IFDEF THREADSAFE}
Modified: trunk/jcl/source/common/JclArraySets.pas
===================================================================
--- trunk/jcl/source/common/JclArraySets.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclArraySets.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -40,18 +40,18 @@
TJclIntfArraySet = class(TJclIntfArrayList, IJclIntfCollection, IJclIntfSet,
IJclIntfCloneable)
private
- function BinarySearch(AInterface: IInterface): Integer;
+ function BinarySearch(const AInterface: IInterface): Integer;
protected
{ IJclIntfCollection }
- function Add(AInterface: IInterface): Boolean;
- function AddAll(ACollection: IJclIntfCollection): Boolean;
- function Contains(AInterface: IInterface): Boolean;
+ function Add(const AInterface: IInterface): Boolean;
+ function AddAll(const ACollection: IJclIntfCollection): Boolean;
+ function Contains(const AInterface: IInterface): Boolean;
{ IJclIntfList }
- procedure Insert(Index: Integer; AInterface: IInterface); overload;
+ procedure Insert(Index: Integer; const AInterface: IInterface); overload;
{ IJclIntfSet }
- procedure Intersect(ACollection: IJclIntfCollection);
- procedure Subtract(ACollection: IJclIntfCollection);
- procedure Union(ACollection: IJclIntfCollection);
+ procedure Intersect(const ACollection: IJclIntfCollection);
+ procedure Subtract(const ACollection: IJclIntfCollection);
+ procedure Union(const ACollection: IJclIntfCollection);
end;
TJclStrArraySet = class(TJclStrArrayList, IJclStrSet, IJclCloneable)
@@ -60,14 +60,14 @@
protected
{ IJclStrCollection }
function Add(const AString: string): Boolean; override;
- function AddAll(ACollection: IJclStrCollection): Boolean; override;
+ function AddAll(const ACollection: IJclStrCollection): Boolean; override;
function Contains(const AString: string): Boolean; override;
{ IJclStrList }
procedure Insert(Index: Integer; const AString: string); overload;
{ IJclStrSet }
- procedure Intersect(ACollection: IJclStrCollection);
- procedure Subtract(ACollection: IJclStrCollection);
- procedure Union(ACollection: IJclStrCollection);
+ procedure Intersect(const ACollection: IJclStrCollection);
+ procedure Subtract(const ACollection: IJclStrCollection);
+ procedure Union(const ACollection: IJclStrCollection);
end;
TJclArraySet = class(TJclArrayList, IJclCollection, IJclSet, IJclCloneable)
@@ -76,14 +76,14 @@
protected
{ IJclCollection }
function Add(AObject: TObject): Boolean;
- function AddAll(ACollection: IJclCollection): Boolean;
+ function AddAll(const ACollection: IJclCollection): Boolean;
function Contains(AObject: TObject): Boolean;
{ IJclList }
procedure Insert(Index: Integer; AObject: TObject); overload;
{ IJclSet }
- procedure Intersect(ACollection: IJclCollection);
- procedure Subtract(ACollection: IJclCollection);
- procedure Union(ACollection: IJclCollection);
+ procedure Intersect(const ACollection: IJclCollection);
+ procedure Subtract(const ACollection: IJclCollection);
+ procedure Union(const ACollection: IJclCollection);
end;
{$IFDEF UNITVERSIONING}
@@ -113,7 +113,7 @@
Result := 0;
end;
-function InterfaceCompare(Obj1, Obj2: IInterface): Integer;
+function InterfaceCompare(const Obj1, Obj2: IInterface): Integer;
begin
if Cardinal(Obj1) < Cardinal(Obj2) then
Result := -1
@@ -126,7 +126,7 @@
//=== { TJclIntfArraySet } ===================================================
-function TJclIntfArraySet.Add(AInterface: IInterface): Boolean;
+function TJclIntfArraySet.Add(const AInterface: IInterface): Boolean;
var
Idx: Integer;
begin
@@ -139,7 +139,7 @@
inherited Insert(Idx + 1, AInterface);
end;
-function TJclIntfArraySet.AddAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfArraySet.AddAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -157,7 +157,7 @@
Result := Add(It.Next) or Result;
end;
-function TJclIntfArraySet.BinarySearch(AInterface: IInterface): Integer;
+function TJclIntfArraySet.BinarySearch(const AInterface: IInterface): Integer;
var
HiPos, LoPos, CompPos: Integer;
Comp: Integer;
@@ -183,7 +183,7 @@
Result := HiPos;
end;
-function TJclIntfArraySet.Contains(AInterface: IInterface): Boolean;
+function TJclIntfArraySet.Contains(const AInterface: IInterface): Boolean;
var
Idx: Integer;
begin
@@ -194,7 +194,7 @@
Result := False;
end;
-procedure TJclIntfArraySet.Insert(Index: Integer; AInterface: IInterface);
+procedure TJclIntfArraySet.Insert(Index: Integer; const AInterface: IInterface);
begin
{$IFDEF CLR}
raise EJclOperationNotSupportedError.Create(RsEOperationNotSupported);
@@ -203,17 +203,17 @@
{$ENDIF CLR}
end;
-procedure TJclIntfArraySet.Intersect(ACollection: IJclIntfCollection);
+procedure TJclIntfArraySet.Intersect(const ACollection: IJclIntfCollection);
begin
RetainAll(ACollection);
end;
-procedure TJclIntfArraySet.Subtract(ACollection: IJclIntfCollection);
+procedure TJclIntfArraySet.Subtract(const ACollection: IJclIntfCollection);
begin
RemoveAll(ACollection);
end;
-procedure TJclIntfArraySet.Union(ACollection: IJclIntfCollection);
+procedure TJclIntfArraySet.Union(const ACollection: IJclIntfCollection);
begin
AddAll(ACollection);
end;
@@ -233,7 +233,7 @@
inherited Insert(Idx + 1, AString);
end;
-function TJclStrArraySet.AddAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrArraySet.AddAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -297,17 +297,17 @@
{$ENDIF CLR}
end;
-procedure TJclStrArraySet.Intersect(ACollection: IJclStrCollection);
+procedure TJclStrArraySet.Intersect(const ACollection: IJclStrCollection);
begin
RetainAll(ACollection);
end;
-procedure TJclStrArraySet.Subtract(ACollection: IJclStrCollection);
+procedure TJclStrArraySet.Subtract(const ACollection: IJclStrCollection);
begin
RemoveAll(ACollection);
end;
-procedure TJclStrArraySet.Union(ACollection: IJclStrCollection);
+procedure TJclStrArraySet.Union(const ACollection: IJclStrCollection);
begin
AddAll(ACollection);
end;
@@ -327,7 +327,7 @@
inherited Insert(Idx + 1, AObject);
end;
-function TJclArraySet.AddAll(ACollection: IJclCollection): Boolean;
+function TJclArraySet.AddAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -391,17 +391,17 @@
{$ENDIF CLR}
end;
-procedure TJclArraySet.Intersect(ACollection: IJclCollection);
+procedure TJclArraySet.Intersect(const ACollection: IJclCollection);
begin
RetainAll(ACollection);
end;
-procedure TJclArraySet.Subtract(ACollection: IJclCollection);
+procedure TJclArraySet.Subtract(const ACollection: IJclCollection);
begin
RemoveAll(ACollection);
end;
-procedure TJclArraySet.Union(ACollection: IJclCollection);
+procedure TJclArraySet.Union(const ACollection: IJclCollection);
begin
AddAll(ACollection);
end;
Modified: trunk/jcl/source/common/JclBinaryTrees.pas
===================================================================
--- trunk/jcl/source/common/JclBinaryTrees.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclBinaryTrees.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -98,18 +98,18 @@
procedure RotateRight(Node: PJclIntfBinaryNode);
protected
{ IJclIntfCollection }
- function Add(AInterface: IInterface): Boolean;
- function AddAll(ACollection: IJclIntfCollection): Boolean;
+ function Add(const AInterface: IInterface): Boolean;
+ function AddAll(const ACollection: IJclIntfCollection): Boolean;
procedure Clear;
- function Contains(AInterface: IInterface): Boolean;
- function ContainsAll(ACollection: IJclIntfCollection): Boolean;
- function Equals(ACollection: IJclIntfCollection): Boolean;
+ function Contains(const AInterface: IInterface): Boolean;
+ function ContainsAll(const ACollection: IJclIntfCollection): Boolean;
+ function Equals(const ACollection: IJclIntfCollection): Boolean;
function First: IJclIntfIterator;
function IsEmpty: Boolean;
function Last: IJclIntfIterator;
- function Remove(AInterface: IInterface): Boolean;
- function RemoveAll(ACollection: IJclIntfCollection): Boolean;
- function RetainAll(ACollection: IJclIntfCollection): Boolean;
+ function Remove(const AInterface: IInterface): Boolean;
+ function RemoveAll(const ACollection: IJclIntfCollection): Boolean;
+ function RetainAll(const ACollection: IJclIntfCollection): Boolean;
function Size: Integer;
{ IJclIntfTree }
function GetTraverseOrder: TJclTraverseOrder;
@@ -136,17 +136,17 @@
protected
{ IJclStrCollection }
function Add(const AString: string): Boolean; override;
- function AddAll(ACollection: IJclStrCollection): Boolean; override;
+ function AddAll(const ACollection: IJclStrCollection): Boolean; override;
procedure Clear; override;
function Contains(const AString: string): Boolean; override;
- function ContainsAll(ACollection: IJclStrCollection): Boolean; override;
- function Equals(ACollection: IJclStrCollection): Boolean; override;
+ function ContainsAll(const ACollection: IJclStrCollection): Boolean; override;
+ function Equals(const ACollection: IJclStrCollection): Boolean; override;
function First: IJclStrIterator; override;
function IsEmpty: Boolean; override;
function Last: IJclStrIterator; override;
function Remove(const AString: string): Boolean; override;
- function RemoveAll(ACollection: IJclStrCollection): Boolean; override;
- function RetainAll(ACollection: IJclStrCollection): Boolean; override;
+ function RemoveAll(const ACollection: IJclStrCollection): Boolean; override;
+ function RetainAll(const ACollection: IJclStrCollection): Boolean; override;
function Size: Integer; override;
{ IJclStrTree }
function GetTraverseOrder: TJclTraverseOrder;
@@ -170,17 +170,17 @@
protected
{ IJclCollection }
function Add(AObject: TObject): Boolean;
- function AddAll(ACollection: IJclCollection): Boolean;
+ function AddAll(const ACollection: IJclCollection): Boolean;
procedure Clear;
function Contains(AObject: TObject): Boolean;
- function ContainsAll(ACollection: IJclCollection): Boolean;
- function Equals(ACollection: IJclCollection): Boolean;
+ function ContainsAll(const ACollection: IJclCollection): Boolean;
+ function Equals(const ACollection: IJclCollection): Boolean;
function First: IJclIterator;
function IsEmpty: Boolean;
function Last: IJclIterator;
function Remove(AObject: TObject): Boolean;
- function RemoveAll(ACollection: IJclCollection): Boolean;
- function RetainAll(ACollection: IJclCollection): Boolean;
+ function RemoveAll(const ACollection: IJclCollection): Boolean;
+ function RetainAll(const ACollection: IJclCollection): Boolean;
function Size: Integer;
{ IJclTree }
function GetTraverseOrder: TJclTraverseOrder;
@@ -219,7 +219,7 @@
FOwnList: IJclIntfCollection;
protected
{ IJclIntfIterator }
- procedure Add(AInterface: IInterface);
+ procedure Add(const AInterface: IInterface);
function GetObject: IInterface;
function HasNext: Boolean;
function HasPrevious: Boolean;
@@ -228,19 +228,19 @@
function Previous: IInterface; virtual;
function PreviousIndex: Integer;
procedure Remove;
- procedure SetObject(AInterface: IInterface);
+ procedure SetObject(const AInterface: IInterface);
public
- constructor Create(OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode);
+ constructor Create(const OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode);
end;
-constructor TIntfItr.Create(OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode);
+constructor TIntfItr.Create(const OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode);
begin
inherited Create;
FCursor := Start;
FOwnList := OwnList;
end;
-procedure TIntfItr.Add(AInterface: IInterface);
+procedure TIntfItr.Add(const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -314,7 +314,7 @@
FOwnList.Remove(Next);
end;
-procedure TIntfItr.SetObject(AInterface: IInterface);
+procedure TIntfItr.SetObject(const AInterface: IInterface);
{$IFDEF THREADSAFE}
var
CS: IInterface;
@@ -546,10 +546,10 @@
procedure Remove;
procedure SetString(const AString: string);
public
- constructor Create(OwnList: IJclStrCollection; Start: PJclStrBinaryNode);
+ constructor Create(const OwnList: IJclStrCollection; Start: PJclStrBinaryNode);
end;
-constructor TStrItr.Create(OwnList: IJclStrCollection; Start: PJclStrBinaryNode);
+constructor TStrItr.Create(const OwnList: IJclStrCollection; Start: PJclStrBinaryNode);
begin
inherited Create;
FCursor := Start;
@@ -862,10 +862,10 @@
procedure Remove;
procedure SetObject(AObject: TObject);
public
- constructor Create(OwnList: IJclCollection; Start: PJclBinaryNode);
+ constructor Create(const OwnList: IJclCollection; Start: PJclBinaryNode);
end;
-constructor TItr.Create(OwnList: IJclCollection; Start: PJclBinaryNode);
+constructor TItr.Create(const OwnList: IJclCollection; Start: PJclBinaryNode);
begin
inherited Create;
FCursor := Start;
@@ -1179,7 +1179,7 @@
inherited Destroy;
end;
-function TJclIntfBinaryTree.Add(AInterface: IInterface): Boolean;
+function TJclIntfBinaryTree.Add(const AInterface: IInterface): Boolean;
var
NewNode: PJclIntfBinaryNode;
Current, Save: PJclIntfBinaryNode;
@@ -1276,7 +1276,7 @@
Result := True;
end;
-function TJclIntfBinaryTree.AddAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfBinaryTree.AddAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1409,7 +1409,7 @@
Result := NewTree;
end;
-function TJclIntfBinaryTree.Contains(AInterface: IInterface): Boolean;
+function TJclIntfBinaryTree.Contains(const AInterface: IInterface): Boolean;
var
{$IFDEF THREADSAFE}
CS: IInterface;
@@ -1466,7 +1466,7 @@
{$ENDIF RECURSIVE}
end;
-function TJclIntfBinaryTree.ContainsAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfBinaryTree.ContainsAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1484,7 +1484,7 @@
Result := Contains(It.Next);
end;
-function TJclIntfBinaryTree.Equals(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfBinaryTree.Equals(const ACollection: IJclIntfCollection): Boolean;
var
It, ItSelf: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1623,7 +1623,7 @@
Node.Parent := TempNode;
end;
-function TJclIntfBinaryTree.Remove(AInterface: IInterface): Boolean;
+function TJclIntfBinaryTree.Remove(const AInterface: IInterface): Boolean;
var
Current: PJclIntfBinaryNode;
Node: PJclIntfBinaryNode;
@@ -1800,7 +1800,7 @@
Dec(FCount);
end;
-function TJclIntfBinaryTree.RemoveAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfBinaryTree.RemoveAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1818,7 +1818,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclIntfBinaryTree.RetainAll(ACollection: IJclIntfCollection): Boolean;
+function TJclIntfBinaryTree.RetainAll(const ACollection: IJclIntfCollection): Boolean;
var
It: IJclIntfIterator;
{$IFDEF THREADSAFE}
@@ -1962,7 +1962,7 @@
Result := True;
end;
-function TJclStrBinaryTree.AddAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrBinaryTree.AddAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -2222,7 +2222,7 @@
{$ENDIF RECURSIVE}
end;
-function TJclStrBinaryTree.ContainsAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrBinaryTree.ContainsAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -2240,7 +2240,7 @@
Result := Contains(It.Next);
end;
-function TJclStrBinaryTree.Equals(ACollection: IJclStrCollection): Boolean;
+function TJclStrBinaryTree.Equals(const ACollection: IJclStrCollection): Boolean;
var
It, ItSelf: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -2510,7 +2510,7 @@
Dec(FCount);
end;
-function TJclStrBinaryTree.RemoveAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrBinaryTree.RemoveAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -2528,7 +2528,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclStrBinaryTree.RetainAll(ACollection: IJclStrCollection): Boolean;
+function TJclStrBinaryTree.RetainAll(const ACollection: IJclStrCollection): Boolean;
var
It: IJclStrIterator;
{$IFDEF THREADSAFE}
@@ -2718,7 +2718,7 @@
Result := True;
end;
-function TJclBinaryTree.AddAll(ACollection: IJclCollection): Boolean;
+function TJclBinaryTree.AddAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -2908,7 +2908,7 @@
{$ENDIF RECURSIVE}
end;
-function TJclBinaryTree.ContainsAll(ACollection: IJclCollection): Boolean;
+function TJclBinaryTree.ContainsAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -2926,7 +2926,7 @@
Result := Contains(It.Next);
end;
-function TJclBinaryTree.Equals(ACollection: IJclCollection): Boolean;
+function TJclBinaryTree.Equals(const ACollection: IJclCollection): Boolean;
var
It, ItSelf: IJclIterator;
{$IFDEF THREADSAFE}
@@ -3196,7 +3196,7 @@
Dec(FCount);
end;
-function TJclBinaryTree.RemoveAll(ACollection: IJclCollection): Boolean;
+function TJclBinaryTree.RemoveAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
@@ -3214,7 +3214,7 @@
Result := Remove(It.Next) and Result;
end;
-function TJclBinaryTree.RetainAll(ACollection: IJclCollection): Boolean;
+function TJclBinaryTree.RetainAll(const ACollection: IJclCollection): Boolean;
var
It: IJclIterator;
{$IFDEF THREADSAFE}
Modified: trunk/jcl/source/common/JclContainerIntf.pas
===================================================================
--- trunk/jcl/source/common/JclContainerIntf.pas 2007-08-06 14:18:48 UTC (rev 2104)
+++ trunk/jcl/source/common/JclContainerIntf.pas 2007-08-06 19:39:21 UTC (rev 2105)
@@ -57,7 +57,7 @@
IJclIntfIterator = interface
['{E121A98A-7C43-4587-806B-9189E8B2F106}']
- procedure Add(AInterface: IInterface);
+ procedure Add(const AInterface: IInterface);
function GetObject: IInterface;
function HasNext: Boolean;
function HasPrevious: Boolean;
@@ -66,7 +66,7 @@
function Previous: IInterface;
function PreviousIndex: Integer;
procedure Remove;
- procedure SetObject(AInterface: IInterface);
+ procedure SetObject(const AInterface: IInterface);
end;
IJclStrIterator = interface
@@ -99,35 +99,35 @@
IJclIntfCollection = interface
['{8E178463-4575-487A-B4D5-DC2AED3C7ACA}']
- function Add(AInterface: IInterface): Boolean;
- function AddAll(ACollection: IJclIntfCollection): Boolean;
+ function Add(const AInterface: IInterface): Boolean;
+ function AddAll(const ACollection: IJclIntfCollection): Boolean;
procedure Clear;
- function Contains(AInterface: IInterface): Boolean;
- function ContainsAll(ACollection: IJclIntfCollection): Boolean;
- function Equals(ACollection: IJclIntfCollection): Boolean;
+ function Contains(const AInterface: IInterface): Boolean;
+ function ContainsAll(const ACollection: IJclIntfCollection): Boolean;
+ function Equals(const ACollection: IJclIntfCollection): Boolean;
function First: IJclIntfIterator;
function IsEmpty: Boolean;
function Last: IJclIntfIterator;
- function Remove(AInterface: IInterface): Boolean;
- function RemoveAll(ACollection: IJclIntfCollection): Boolean;
- function RetainAll(ACollection: IJclIntfCollection): Boolean;
+ function Remove(const AInterface: IInterface): Boolean;
+ function RemoveAll(const ACollection: IJclIntfCollection): Boolean;
+ function RetainAll(const ACollection: IJclIntfCollection): Boolean;
function Size: Integer;
end;
IJclStrCollection = interface
['{3E3CFC19-E8AF-4DD7-91FA-2DF2895FC7B9}']
function Add(const AString: string): Boolean;
- function AddAll(ACollection: IJclStrCollection): Boolean;
+ function AddAll(const ACollection: IJclStrCollection): Boolean;
procedure Clear;
function Contains(const AString: string): Boolean;
- function ContainsAll(ACollection: IJclStrCollection): Boolean;
- function Equals(ACollection: IJclStrCollection): Boolean;
+ function ContainsAll(const ACollection: IJclStrCollection): Boolean;
+ function Equals(const ACollection: IJclStrCollection): Boolean;
function First: IJclStrIterator;
function IsEmpty: Boolean;
function Last: IJclStrIterator;
function Remove(const AString: string): Boolean;
- function RemoveAll(ACollection: IJclStrCollection): Boolean;
- function RetainAll(ACollection: IJclStrCollection): Boolean;
+ function RemoveAll(const ACollection: IJclStrCollection): Boolean;
+ function RetainAll(const ACollection: IJclStrCollection): Boolean;
function Size: Integer;
//Daniele Teti 27/12/2004
procedure LoadFromStrings(Strings: TStrings);
@@ -143,36 +143,36 @@
IJclCollection = interface
['{58947EF1-CD21-4DD1-AE3D-225C3AAD7EE5}']
function Add(AObject: TObject): Boolean;
- function AddAll(ACollection: IJclCollection): Boolean;
+ function AddAll(const ACollection: IJclCollection): Boolean;
procedure Clear;
function Contains(AObject: TObject): Boolean;
- function ContainsAll(ACollection: IJclCollection): Boolean;
- function Equals(ACollection: IJclCollection): Boolean;
+ function ContainsAll(const ACollection: IJclCollection): Boolean;
+ function Equals(const ACollection: IJclCollection): Boolean;
function First: IJclIterator;
function IsEmpty: Boolean;
function Last: IJclIterator;
function Remove(AObject: TObject): Boolean;
- function RemoveAll(ACollection: IJclCollection): Boolean;
- function RetainAll(ACollection: IJclCollection): Boolean;
+ function RemoveAll(const ACollection: IJclCollection): Boolean;
+ function RetainAll(const ACollection: IJclCollection): Boolean;
function Size: Integer;
end;
IJclIntfList = interface(IJclIntfCollection)
['{E14EDA4B-1DAA-4013-9E6C-CDCB365C7CF9}']
- procedure Insert(Index: Integer; AInterface: IInterface); overload;
- function InsertAll(Index: Integer; ACollection: IJclIntfCollection): Boolean; overload;
+ procedure Insert(Index: Integer; const AInterface: IInterface); overload;
+ function InsertAll(Index: Integer; const ACollection: IJclIntfCollection): Boolean; overload;
function GetObject(Index: Integer): IInterface;
- function IndexOf(AInterface: IInterface): Integer;
- function LastIndexOf(AInterface: IInterface): Integer;
+ function IndexOf(const AInterface: IInterface): Integer;
+ function LastIndexOf(const AInterface: IInterface): Integer;
function Remove(Index: Integer): IInterface; overload;
- procedure SetObject(Index: Integer; AInterface: IInterface);
+ procedure SetObject(Index: Integer; const AInterface: IInterface);
function SubList(First, Count: Integer): IJclIntfList;
end;
IJclStrList = interface(IJclStrCollection)
['{07DD7644-EAC6-4059-99FC-BEB7FBB73186}']
procedure Insert(Index: Integer; const AString: string); overload;
- function InsertAll(Index: Integer; ACollection: IJclStrCollection): Boolean; overload;
+ function InsertAll(Index: Integer; const ACollection: IJclStrCollection): Boolean; overload;
function GetString(Index: Integer): string;
function IndexOf(const AString: string): Integer;
function LastIndexOf(const AString: string): Integer;
@@ -186,7 +186,7 @@
IJclList = interface(IJclCollection)
['{8ABC70AC-5C06-43EA-AFE0-D066379BCC28}']
procedure Insert(Index: Integer; AObject: TObject); overload;
- function InsertAll(Index: Integer; ACollection: IJclCollection): Boolean; overload;
+ function InsertAll(Index: Integer; const ACollection: IJclCollection): Boolean; overload;
function GetObject(Index: Integer): TObject;
function IndexOf(AObject: TObject): Integer;
function LastIndexOf(AObject: TObject): Integer;
@@ -201,7 +201,7 @@
['{B055B427-7817-43FC-97D4-AD1845643D63}']
{$IFDEF CLR}
function GetObject(Index: Integer): IInterface;
- procedure SetObject(Index: Integer; AInterface: IInterface);
+ procedure SetObject(Index: Integer; const AInterface: IInterface);
{$ENDIF CLR}
property Items[Index: Integer]: IInterface read GetObject write SetObject; default;
end;
@@ -226,23 +226,23 @@
IJclIntfSet = interface(IJclIntfCollection)
['{E2D28852-9774-49B7-A739-5DBA2B705924}']
- procedure Intersect(ACollection: IJclIntfCollection);
- procedure Subtract(ACollection: IJclIntfCollection);
- procedure Union(ACollection: IJclIntfCollection);
+ procedure Intersect(const ACollection: IJclIntfCollection);
+ procedure Subtract(const ACollection: IJclIntfCollection);
+ procedure Union(const ACollection: IJclIntfCollection);
end;
IJclStrSet = interface(IJclStrCollection)
['{72204D85-2B68-4914-B9F2-09E5180C12E9}']
- procedure Intersect(ACollection: IJclStrCollection);
- procedure Subtract(ACollection: IJclStrCollection);
- procedure Union(ACollection: IJclStrCollection);
+ procedure Intersect(const ACollection: IJclStrCollection);
+ procedure Subtract(const ACollection: IJclStrCollection);
+ procedure Union(const ACollection: IJclStrCollection);
end;
IJclSet = interface(IJclCollection)
['{0B7CDB90-8588-4260-A54C-D87101C669EA}']
- procedure Intersect(ACollection: IJclCollection);
- procedure Subtract(ACollection: IJclCollection);
- procedure Union(ACollection: IJclCollection);
+ procedure Intersect(const ACollection: IJclCollection);
+ procedure Subtract(const ACollection: IJclCollection);
+ procedure Union(const ACollection: IJclCollection);
end;
TJclTraverseOrder = (toPreOrder, toOrder, toPostOrder);
@@ -271,36 +271,36 @@
IJclIntfIntfMap = interface
['{01D05399-4A05-4F3E-92F4-0C236BE77019}']
procedure Clear;
- function ContainsKey(Key: IInterface): Boolean;
- function ContainsValue(Value: IInterface): Boolean;
- function Equals(AMap: IJclIntfIntfMap): Boolean;
- function GetValue(Key: IInterface): IInterface;
+ function ContainsKey(const Key: IInterface): Boolean;
+ function ContainsValue(const Value: IInterface): Boolean;
+ function Equals(const AMap: IJclIntfIntfMap): Boolean;...
[truncated message content] |
|
From: <ou...@us...> - 2007-08-06 14:18:58
|
Revision: 2104
http://jcl.svn.sourceforge.net/jcl/?rev=2104&view=rev
Author: outchy
Date: 2007-08-06 07:18:48 -0700 (Mon, 06 Aug 2007)
Log Message:
-----------
Only uninstall selected targets.
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2007-08-06 12:02:36 UTC (rev 2103)
+++ trunk/jcl/install/JclInstall.pas 2007-08-06 14:18:48 UTC (rev 2104)
@@ -3531,7 +3531,7 @@
begin
AInstallation := TargetInstalls[I];
AInstallation.Silent := False;
- if AInstallation.Enabled and (not AInstallation.RemoveSettings) or not AInstallation.Uninstall(True) then
+ if AInstallation.Enabled and ((not AInstallation.RemoveSettings) or not AInstallation.Uninstall(True)) then
Success := False;
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-06 12:02:38
|
Revision: 2103
http://jcl.svn.sourceforge.net/jcl/?rev=2103&view=rev
Author: outchy
Date: 2007-08-06 05:02:36 -0700 (Mon, 06 Aug 2007)
Log Message:
-----------
Deleting jcl\lib\cX\obj directories
.obj files are now created in jcl\lib\cX\ and jcl\lib\cX\debug
Fix for C++Builder 5 and Delphi 5 to workaround an internal linker error (L1496): solved by forcing packages to be built.
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
trunk/jcl/packages/c5/JclBaseExpertC50.bpk
trunk/jcl/packages/c5/JclBaseExpertC50.dof
trunk/jcl/packages/c5/JclC50.bpk
trunk/jcl/packages/c5/JclC50.dof
trunk/jcl/packages/c5/JclDebugExpertC50.bpk
trunk/jcl/packages/c5/JclDebugExpertC50.dof
trunk/jcl/packages/c5/JclDebugExpertDLLC50.bpr
trunk/jcl/packages/c5/JclDebugExpertDLLC50.dof
trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.bpk
trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.dof
trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.bpr
trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.dof
trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.bpk
trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.dof
trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.bpr
trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.dof
trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
trunk/jcl/packages/c5/JclRepositoryExpertC50.bpk
trunk/jcl/packages/c5/JclRepositoryExpertC50.dof
trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.bpr
trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.dof
trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
trunk/jcl/packages/c5/JclSIMDViewExpertC50.bpk
trunk/jcl/packages/c5/JclSIMDViewExpertC50.dof
trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.bpr
trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.dof
trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
trunk/jcl/packages/c5/JclThreadNameExpertC50.bpk
trunk/jcl/packages/c5/JclThreadNameExpertC50.dof
trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.bpr
trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.dof
trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
trunk/jcl/packages/c5/JclUsesExpertC50.bpk
trunk/jcl/packages/c5/JclUsesExpertC50.dof
trunk/jcl/packages/c5/JclUsesExpertDLLC50.bpr
trunk/jcl/packages/c5/JclUsesExpertDLLC50.dof
trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
trunk/jcl/packages/c5/JclVersionControlExpertC50.bpk
trunk/jcl/packages/c5/JclVersionControlExpertC50.dof
trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.bpr
trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.dof
trunk/jcl/packages/c5/template.bpk
trunk/jcl/packages/c5/template.bpr
trunk/jcl/packages/c5/template.dof
trunk/jcl/packages/c6/Jcl.bpk
trunk/jcl/packages/c6/JclBaseExpert.bpk
trunk/jcl/packages/c6/JclDebugExpert.bpk
trunk/jcl/packages/c6/JclDebugExpertDLL.bpr
trunk/jcl/packages/c6/JclFavoriteFoldersExpert.bpk
trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.bpr
trunk/jcl/packages/c6/JclProjectAnalysisExpert.bpk
trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.bpr
trunk/jcl/packages/c6/JclRepositoryExpert.bpk
trunk/jcl/packages/c6/JclRepositoryExpertDLL.bpr
trunk/jcl/packages/c6/JclSIMDViewExpert.bpk
trunk/jcl/packages/c6/JclSIMDViewExpertDLL.bpr
trunk/jcl/packages/c6/JclThreadNameExpert.bpk
trunk/jcl/packages/c6/JclThreadNameExpertDLL.bpr
trunk/jcl/packages/c6/JclUsesExpert.bpk
trunk/jcl/packages/c6/JclUsesExpertDLL.bpr
trunk/jcl/packages/c6/JclVClx.bpk
trunk/jcl/packages/c6/JclVcl.bpk
trunk/jcl/packages/c6/JclVersionControlExpert.bpk
trunk/jcl/packages/c6/JclVersionControlExpertDLL.bpr
trunk/jcl/packages/c6/template.bpk
trunk/jcl/packages/c6/template.bpr
trunk/jcl/packages/d5/JclBaseExpertD50.dof
trunk/jcl/packages/d5/JclD50.dof
trunk/jcl/packages/d5/JclDebugExpertD50.dof
trunk/jcl/packages/d5/JclDebugExpertDLLD50.dof
trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.dof
trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.dof
trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.dof
trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.dof
trunk/jcl/packages/d5/JclRepositoryExpertD50.dof
trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.dof
trunk/jcl/packages/d5/JclSIMDViewExpertD50.dof
trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.dof
trunk/jcl/packages/d5/JclThreadNameExpertD50.dof
trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.dof
trunk/jcl/packages/d5/JclUsesExpertD50.dof
trunk/jcl/packages/d5/JclUsesExpertDLLD50.dof
trunk/jcl/packages/d5/JclVersionControlExpertD50.dof
trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.dof
trunk/jcl/packages/d5/template.dof
trunk/jcl/packages/k3/Jcl.bpk
trunk/jcl/packages/k3/JclVClx.bpk
trunk/jcl/packages/k3/template.bpk
trunk/jcl/source/common/JclBorlandTools.pas
Removed Paths:
-------------
trunk/jcl/lib/c5/obj/
trunk/jcl/lib/c6/obj/
trunk/jcl/lib/k3/obj/
Property Changed:
----------------
trunk/jcl/lib/d10/
trunk/jcl/lib/d10/debug/
trunk/jcl/lib/d11/
trunk/jcl/lib/d11/debug/
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/install/JclInstall.pas 2007-08-06 12:02:36 UTC (rev 2103)
@@ -120,9 +120,8 @@
FGUI: IJediInstallGUI;
FGUIBPLPathIndex: Integer;
FGUIDCPPathIndex: Integer;
- FDebugDcuDir: string;
- FLibDir: string;
- FLibObjDir: string;
+ FLibDebugDir: string;
+ FLibReleaseDir: string;
FJclDcpPath: string;
FDemoList: TStringList;
FLogLines: TJclSimpleLog;
@@ -187,9 +186,8 @@
private
FJclPath: string;
FJclBinDir: string;
- FLibDirMask: string;
+ FLibReleaseDirMask: string;
FLibDebugDirMask: string;
- FLibObjDirMask: string;
FJclSourceDir: string;
FJclSourcePath: string;
FJclExamplesDir: string;
@@ -279,9 +277,8 @@
property JclPath: string read FJclPath;
property JclBinDir: string read FJclBinDir;
- property LibDirMask: string read FLibDirMask;
+ property LibReleaseDirMask: string read FLibReleaseDirMask;
property LibDebugDirMask: string read FLibDebugDirMask;
- property LibObjDirMask: string read FLibObjDirMask;
property JclSourceDir: string read FJclSourceDir;
property JclSourcePath: string read FJclSourcePath;
property JclExamplesDir: string read FJclExamplesDir;
@@ -798,11 +795,10 @@
end;
end;
- FLibDir := MakePath(Distribution.LibDirMask);
- FJclDcpPath := PathAddSeparator(MakePath(Distribution.LibDirMask));
- FDebugDcuDir := MakePath(Distribution.FLibDebugDirMask);
- if InstallTarget is TJclBCBInstallation then
- FLibObjDir := MakePath(Distribution.FLibObjDirMask);
+ FLibReleaseDir := MakePath(Distribution.LibReleaseDirMask);
+ FLibDebugDir := MakePath(Distribution.LibDebugDirMask);
+ FJclDcpPath := PathAddSeparator(MakePath(Distribution.LibReleaseDirMask)); // packages are release
+
FDemoSectionName := Target.Name + ' demos';
FLogFileName := Format('%sbin%s%s.log', [Distribution.JclPath, DirDelimiter, TargetName]);
FLogLines := TJclSimpleLog.Create(FLogFileName);
@@ -1450,19 +1446,19 @@
if OptionChecked[joEnvLibPath] then
begin
MarkOptionBegin(joEnvLibPath);
- Result := Target.AddToLibrarySearchPath(FLibDir) and Target.AddToLibrarySearchPath(Distribution.JclSourceDir);
+ Result := Target.AddToLibrarySearchPath(FLibReleaseDir) and Target.AddToLibrarySearchPath(Distribution.JclSourceDir);
if Result then
begin
- WriteLog(Format('Added "%s;%s" to library search path.', [FLibDir, Distribution.JclSourceDir]));
+ WriteLog(Format('Added "%s;%s" to library search path.', [FLibReleaseDir, Distribution.JclSourceDir]));
{$IFDEF MSWINDOWS}
if (Target.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in Target.Personalities)
and OptionChecked[joDualPackages] then
with TJclBDSInstallation(Target) do
begin
- Result := AddToCppSearchPath(FLibDir) and AddToCppSearchPath(Distribution.JclSourceDir) and
- ((IDEVersionNumber < 5) or AddToCppLibraryPath(FLibDir));
+ Result := AddToCppSearchPath(FLibReleaseDir) and AddToCppSearchPath(Distribution.JclSourceDir) and
+ ((IDEVersionNumber < 5) or AddToCppLibraryPath(FLibReleaseDir));
if Result then
- WriteLog(Format('Added "%s;%s" to cpp search path.', [FLibDir, Distribution.JclSourceDir]))
+ WriteLog(Format('Added "%s;%s" to cpp search path.', [FLibReleaseDir, Distribution.JclSourceDir]))
else
WriteLog('Failed to add cpp search paths.');
end;
@@ -1514,9 +1510,9 @@
if Result and OptionChecked[joEnvDebugDCUPath] then
begin
MarkOptionBegin(joEnvDebugDCUPath);
- Result := Target.AddToDebugDCUPath(FDebugDcuDir);
+ Result := Target.AddToDebugDCUPath(FLibDebugDir);
if Result then
- WriteLog(Format('Added "%s" to Debug DCU Path.', [FDebugDcuDir]))
+ WriteLog(Format('Added "%s" to Debug DCU Path.', [FLibDebugDir]))
else
WriteLog('Failed to add debug DCU path');
MarkOptionEnd(joEnvDebugDCUPath, Result);
@@ -1962,17 +1958,17 @@
//ioJclEnvLibPath
if CLRVersion = '' then
begin
- if Target.RemoveFromLibrarySearchPath(FLibDir) and Target.RemoveFromLibrarySearchPath(Distribution.JclSourceDir) then
- WriteLog(Format('Removed "%s;%s" from library search path.', [FLibDir, Distribution.JclSourceDir]))
+ if Target.RemoveFromLibrarySearchPath(FLibReleaseDir) and Target.RemoveFromLibrarySearchPath(Distribution.JclSourceDir) then
+ WriteLog(Format('Removed "%s;%s" from library search path.', [FLibReleaseDir, Distribution.JclSourceDir]))
else
WriteLog('Failed to remove library search path.');
{$IFDEF MSWINDOWS}
if (Target.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in Target.Personalities) then
with TJclBDSInstallation(Target) do
begin
- if RemoveFromCppSearchPath(FLibDir) and RemoveFromCppSearchPath(Distribution.JclSourceDir) and
- ((IDEVersionNumber < 5) or RemoveFromCppLibraryPath(FLibDir)) then
- WriteLog(Format('Removed "%s;%s" from cpp search path.', [FLibDir, Distribution.JclSourceDir]))
+ if RemoveFromCppSearchPath(FLibReleaseDir) and RemoveFromCppSearchPath(Distribution.JclSourceDir) and
+ ((IDEVersionNumber < 5) or RemoveFromCppLibraryPath(FLibReleaseDir)) then
+ WriteLog(Format('Removed "%s;%s" from cpp search path.', [FLibReleaseDir, Distribution.JclSourceDir]))
else
WriteLog('Failed to remove cpp search path.');
end;
@@ -1995,8 +1991,8 @@
{$ENDIF MSWINDOWS}
//ioJclEnvDebugDCUPath
- if Target.RemoveFromDebugDCUPath(FDebugDcuDir) then
- WriteLog(Format('Removed "%s" from Debug DCU Path.', [FDebugDcuDir]));
+ if Target.RemoveFromDebugDCUPath(FLibDebugDir) then
+ WriteLog(Format('Removed "%s" from Debug DCU Path.', [FLibDebugDir]));
end;
end;
@@ -2018,17 +2014,17 @@
begin
if CLRVersion <> '' then
begin
- RemoveFileMask(FLibDir, '.dcuil');
- RemoveFileMask(FDebugDcuDir, '.dcuil');
+ RemoveFileMask(FLibReleaseDir, '.dcuil');
+ RemoveFileMask(FLibDebugDir, '.dcuil');
end
else
begin
- RemoveFileMask(FLibDir, '.dcu');
- RemoveFileMask(FDebugDcuDir, '.dcuil');
+ RemoveFileMask(FLibReleaseDir, '.dcu');
+ RemoveFileMask(FLibDebugDir, '.dcu');
if bpBCBuilder32 in Target.Personalities then
begin
- RemoveFileMask(FLibDir, '.obj');
- RemoveFileMask(FDebugDcuDir, '.obj');
+ RemoveFileMask(FLibReleaseDir, '.obj'); // compatibility
+ RemoveFileMask(FLibDebugDir, '.obj'); // compatibility
end;
end;
//ioJclCopyHppFiles: ; // TODO : Delete copied files
@@ -2347,7 +2343,7 @@
UnitList := TStringList.Create;
try
BuildFileList(PathAddSeparator(Path) + '*.pas', faAnyFile, UnitList);
- ExclusionFileName := PathAddSeparator(FLibDir) + SubDir + '.exc';
+ ExclusionFileName := PathAddSeparator(FLibReleaseDir) + SubDir + '.exc';
if FileExists(ExclusionFileName) then
begin
Exclusions := TStringList.Create;
@@ -2377,63 +2373,74 @@
Compiler.SetDefaultOptions;
//Options.Add('-D' + StringsToStr(Defines, ';'));
Compiler.Options.Add('-M');
- if Target.RADToolKind = brCppBuilder then
+ if Debug then
begin
+ Compiler.Options.Add('-$C+'); // assertions
+ Compiler.Options.Add('-$D+'); // debug informations
+ Compiler.Options.Add('-$I+'); // I/O checking
+ Compiler.Options.Add('-$L+'); // local debugging symbols
+ Compiler.Options.Add('-$O-'); // optimizations
+ Compiler.Options.Add('-$Q+'); // overflow checking
+ Compiler.Options.Add('-$R+'); // range checking
+ if CLRVersion = '' then
+ Compiler.Options.Add('-$W+'); // stack frames
+ Compiler.Options.Add('-$Y+'); // symbol reference info
+ end
+ else
+ begin
+ Compiler.Options.Add('-$C-'); // assertions
+ Compiler.Options.Add('-$D-'); // debug informations
+ Compiler.Options.Add('-$I-'); // I/O checking
+ Compiler.Options.Add('-$L-'); // local debugging symbols
+ Compiler.Options.Add('-$O+'); // optimizations
+ Compiler.Options.Add('-$Q-'); // overflow checking
+ Compiler.Options.Add('-$R-'); // range checking
+ if CLRVersion = '' then
+ Compiler.Options.Add('-$W-'); // stack frames
+ Compiler.Options.Add('-$Y-'); // symbol reference info
+ end;
+
+ if (bpBCBuilder32 in Target.Personalities) and (CLRVersion = '') then
+ begin
Compiler.Options.Add('-D_RTLDLL;NO_STRICT;USEPACKAGES'); // $(SYSDEFINES)
if Debug then
+ UnitOutputDir := FLibDebugDir
+ else
+ UnitOutputDir := FLibReleaseDir;
+
+ if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber >= 4) then
begin
- Compiler.Options.Add('-$Y+');
- Compiler.Options.Add('-$W');
- Compiler.Options.Add('-$O-');
- Compiler.Options.Add('-v');
- UnitOutputDir := FLibDir;
- Compiler.AddPathOption('N2', FLibObjDir); // .obj files
+ Compiler.AddPathOption('N0', UnitOutputDir); // .dcu files
+ //Compiler.AddPathOption('NH', FIncludeDir); // .hpp files
+ Compiler.AddPathOption('NO', UnitOutputDir); // .obj files
end
else
begin
- Compiler.Options.Add('-$YD');
- Compiler.Options.Add('-$W+');
- Compiler.Options.Add('-$O+');
- UnitOutputDir := FLibDir;
- Compiler.AddPathOption('N2', FLibObjDir); // .obj files
+ Compiler.AddPathOption('N0', UnitOutputDir); // .dcu files
+ //Compiler.AddPathOption('N1', FIncludeDir); // .hpp files
+ Compiler.AddPathOption('N2', UnitOutputDir); // .obj files
end;
- Compiler.Options.Add('-v');
Compiler.Options.Add('-JPHNE');
Compiler.Options.Add('--BCB');
- Compiler.AddPathOption('N0', UnitOutputDir); // .dcu files
- Compiler.AddPathOption('O', Format(BCBIncludePath, [Distribution.JclSourceDir, Distribution.JclSourcePath]));
- Compiler.AddPathOption('U', Format(BCBObjectPath, [Distribution.JclSourceDir, Distribution.JclSourcePath]));
+ //Compiler.AddPathOption('O', Format(BCBIncludePath, [Distribution.JclSourceDir, Distribution.JclSourcePath]));
+ //Compiler.AddPathOption('U', Format(BCBObjectPath, [Distribution.JclSourceDir, Distribution.JclSourcePath]));
end
else // Delphi
begin
if Debug then
- begin
- Compiler.Options.Add('-$O-');
- if CLRVersion = '' then
- Compiler.Options.Add('-$W+');
- Compiler.Options.Add('-$R+');
- Compiler.Options.Add('-$Q+');
- Compiler.Options.Add('-$D+');
- Compiler.Options.Add('-$L+');
- Compiler.Options.Add('-$Y+');
- UnitOutputDir := FDebugDcuDir;
- end
+ UnitOutputDir := FLibDebugDir
else
- begin
- Compiler.Options.Add('-$O+');
- Compiler.Options.Add('-$R-');
- Compiler.Options.Add('-$Q-');
- Compiler.Options.Add('-$C-');
- Compiler.Options.Add('-$D-');
- UnitOutputDir := FLibDir;
- end;
- Compiler.AddPathOption('N', UnitOutputDir);
+ UnitOutputDir := FLibReleaseDir;
+
+ Compiler.AddPathOption('N', UnitOutputDir); // .dcu files
if CLRVersion <> '' then
Compiler.Options.Add('--default-namespace:Jedi.Jcl');
- Compiler.AddPathOption('U', Distribution.JclSourcePath);
- Compiler.AddPathOption('R', Distribution.JclSourcePath);
+
end;
Compiler.AddPathOption('I', Distribution.JclSourceDir);
+ Compiler.AddPathOption('U', Distribution.JclSourcePath);
+ Compiler.AddPathOption('R', Distribution.JclSourcePath);
+
SaveDir := GetCurrentDir;
Result := SetCurrentDir(Path);
{$IFDEF WIN32}
@@ -2570,7 +2577,7 @@
'-n.' + AnsiLineBreak + // Unit output dir
'-u%s;%s' + AnsiLineBreak + // Unit directories
'-i%s', // Include path
- [Distribution.JclBinDir, FLibDir, Distribution.JclSourcePath, Distribution.JclSourceDir]));
+ [Distribution.JclBinDir, FLibReleaseDir, Distribution.JclSourcePath, Distribution.JclSourceDir]));
Result := Target.DCC32.Execute(FileName);
FileDelete(CfgFileName);
end;
@@ -3158,9 +3165,8 @@
{$IFDEF MSWINDOWS}
FJclPath := PathGetShortName(FJclPath);
{$ENDIF MSWINDOWS}
- FLibDirMask := Format('%slib' + VersionDirExp, [FJclPath]);
- FLibDebugDirMask := FLibDirMask + DirDelimiter + 'debug';
- FLibObjDirMask := FLibDirMask + DirDelimiter + 'obj';
+ FLibReleaseDirMask := Format('%slib' + VersionDirExp, [FJclPath]);
+ FLibDebugDirMask := FLibReleaseDirMask + DirDelimiter + 'debug';
FJclBinDir := FJclPath + 'bin';
FJclSourceDir := FJclPath + 'source';
FJclExamplesDir := FJclPath + 'examples';
Property changes on: trunk/jcl/lib/d10
___________________________________________________________________
Name: svn:ignore
- *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
+ *.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
*.obj
Property changes on: trunk/jcl/lib/d10/debug
___________________________________________________________________
Name: svn:ignore
- *.dcu
*.ddp
*.bpl
*.dcp
*.res
+ *.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
*.obj
Property changes on: trunk/jcl/lib/d11
___________________________________________________________________
Name: svn:ignore
- *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
+ *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
*.obj
Property changes on: trunk/jcl/lib/d11/debug
___________________________________________________________________
Name: svn:ignore
- *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
+ *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.lib
*.res
*.bpi
*.obj
Modified: trunk/jcl/packages/c5/JclBaseExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclBaseExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclBaseExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclBaseExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -54,7 +54,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclBaseExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\common;..\..\experts\common;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\common;..\..\experts\common;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -63,13 +63,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Package containing common units for JCL Experts for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Package containing common units for JCL Experts for C++Builder 5"
-b:0x58000000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclBaseExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclBaseExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclBaseExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (Jcl-R.xml)
- Last generated: 09-06-2007 20:44:07 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -130,7 +130,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\source\common;..\..\source\common;..\..\source\windows;..\..\source\vcl;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\source\common;..\..\source\common;..\..\source\windows;..\..\source\vcl;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -139,13 +139,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JEDI Code Library RTL package for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JEDI Code Library RTL package for C++Builder 5"
-b:0x48000000 -aa -Tpp -Gpr -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclDebugExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclDebugExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclDebugExpert-D.xml)
- Last generated: 30-10-2006 08:25:07 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -47,7 +47,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclDebugExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\converter;..\..\experts\debug\converter;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\converter;..\..\experts\debug\converter;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -56,13 +56,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Debug IDE extension for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Debug IDE extension for C++Builder 5"
-b:0x58020000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclDebugExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclDebugExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclDebugExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclDebugExpertDLL-L.xml)
- Last generated: 30-10-2006 08:25:07 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -47,7 +47,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclDebugExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\converter;..\..\experts\debug\converter;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\converter;..\..\experts\debug\converter;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -55,13 +55,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Debug IDE extension for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Debug IDE extension for C++Builder 5"
-b:0x58020000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclDebugExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclFavoriteFoldersExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -44,7 +44,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclFavoriteFoldersExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\favfolders;..\..\experts\favfolders;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\favfolders;..\..\experts\favfolders;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -53,13 +53,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Open and Save IDE dialogs with favorite folders for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Open and Save IDE dialogs with favorite folders for C++Builder 5"
-b:0x58040000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclFavoriteFoldersExpertDLL-L.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -44,7 +44,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclFavoriteFoldersExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\favfolders;..\..\experts\favfolders;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\favfolders;..\..\experts\favfolders;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -52,13 +52,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Open and Save IDE dialogs with favorite folders for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Open and Save IDE dialogs with favorite folders for C++Builder 5"
-b:0x58040000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclProjectAnalysisExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -45,7 +45,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclProjectAnalysisExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\projectanalyzer;..\..\experts\projectanalyzer;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\projectanalyzer;..\..\experts\projectanalyzer;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -54,13 +54,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Project Analyzer for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Project Analyzer for C++Builder 5"
-b:0x58060000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclProjectAnalysisExpertDLL-L.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -45,7 +45,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclProjectAnalysisExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\projectanalyzer;..\..\experts\projectanalyzer;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\projectanalyzer;..\..\experts\projectanalyzer;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -53,13 +53,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Project Analyzer for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Project Analyzer for C++Builder 5"
-b:0x58060000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclRepositoryExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclRepositoryExpert-D.xml)
- Last generated: 16-02-2007 19:07:51 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -58,7 +58,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclRepositoryExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\dialog;..\..\experts\debug\dialog;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\dialog;..\..\experts\debug\dialog;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -67,13 +67,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Package containing repository wizards for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Package containing repository wizards for C++Builder 5"
-b:0x58000000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclRepositoryExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclRepositoryExpertDLL-L.xml)
- Last generated: 16-02-2007 19:07:51 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -58,7 +58,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclRepositoryExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\dialog;..\..\experts\debug\dialog;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\dialog;..\..\experts\debug\dialog;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -66,13 +66,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Package containing repository wizards for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Package containing repository wizards for C++Builder 5"
-b:0x58000000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclSIMDViewExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -50,7 +50,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclSIMDViewExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\simdview;..\..\experts\debug\simdview;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\simdview;..\..\experts\debug\simdview;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -59,13 +59,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Debug Window of XMM registers for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Debug Window of XMM registers for C++Builder 5"
-b:0x58080000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclSIMDViewExpertDLL-L.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -50,7 +50,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclSIMDViewExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\simdview;..\..\experts\debug\simdview;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\simdview;..\..\experts\debug\simdview;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -58,13 +58,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Debug Window of XMM registers for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Debug Window of XMM registers for C++Builder 5"
-b:0x58080000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclThreadNameExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclThreadNameExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -44,7 +44,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclThreadNameExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\threadnames;..\..\experts\debug\threadnames;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\threadnames;..\..\experts\debug\threadnames;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -53,13 +53,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Thread Name IDE expert for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Thread Name IDE expert for C++Builder 5"
-b:0x580A0000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclThreadNameExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.bpr
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.bpr 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.bpr 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclThreadNameExpertDLL-L.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 10:26:39 UTC
*****************************************************************************
-->
<PROJECT>
@@ -44,7 +44,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclThreadNameExpertDLLC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\debug\threadnames;..\..\experts\debug\threadnames;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\debug\threadnames;..\..\experts\debug\threadnames;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -52,13 +52,13 @@
<IDLCFLAGS value="-I..\..\source -I..\..\source\windows -I..\..\source\vcl -I..\..\source\common
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-tWD -tWM- -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N2..\..\lib\c5 -N0..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Bpl -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Thread Name IDE expert for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Thread Name IDE expert for C++Builder 5"
-b:0x580A0000 -Tpd -aa -Gi -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,6 +2,8 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
[Compiler]
PackageNoLink=1
[Linker]
Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
===================================================================
(Binary files differ)
Modified: trunk/jcl/packages/c5/JclUsesExpertC50.bpk
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertC50.bpk 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclUsesExpertC50.bpk 2007-08-06 12:02:36 UTC (rev 2103)
@@ -5,7 +5,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (JclUsesExpert-D.xml)
- Last generated: 24-09-2006 19:22:39 UTC
+ Last generated: 06-08-2007 11:54:51 UTC
*****************************************************************************
-->
<PROJECT>
@@ -48,7 +48,7 @@
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="JclUsesExpertC50.cpp"/>
<INCLUDEPATH value="..\..\source;..\..\source\windows;..\..\source\vcl;..\..\source\common;..\..\experts\common;$(BCB)\include;$(BCB)\include\vcl"/>
- <LIBPATH value="..\..\experts\useswizard;..\..\experts\useswizard;..\..\lib\c5\obj;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
+ <LIBPATH value="..\..\experts\useswizard;..\..\experts\useswizard;..\..\lib\c5;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\lib\debug"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
@@ -57,13 +57,13 @@
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tWM"/>
- <PFLAGS value="-N2..\..\lib\c5\obj -N0..\..\lib\c5\obj -$YD -$W -$O- -$A8 -v -JPHNE -M
+ <PFLAGS value="-N0..\..\lib\c5 -N2..\..\lib\c5 -$YD -$W -$O- -$A8 -v -JPHNE -M
-LUvcl50 -LUdsnide50 -LUJclC50 -LUJclBaseExpertC50
-U$(BCB)\Projects\Lib -U..\..\lib\c5
"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
- <LFLAGS value="-I..\..\lib\c5\obj -D"JCL Uses Wizard for C++Builder 5"
+ <LFLAGS value="-I..\..\lib\c5 -D"JCL Uses Wizard for C++Builder 5"
-b:0x580C0000 -aa -Tpp -Gpd -x -Gn -Gl -Gi -v"/>
<OTHERFILES value=""/>
</OPTIONS>
Modified: trunk/jcl/packages/c5/JclUsesExpertC50.dof
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertC50.dof 2007-08-05 20:43:19 UTC (rev 2102)
+++ trunk/jcl/packages/c5/JclUsesExpertC50.dof 2007-08-06 12:02:36 UTC (rev 2103)
@@ -2,4 +2,6 @@
UnitOutputDir=..\..\lib\c5
SearchPath=..\..\source
Conditionals=BCB
+[Additional]
+Options=-B
Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.bpr
=============...
[truncated message content] |
|
From: <cyc...@us...> - 2007-08-05 20:43:24
|
Revision: 2102
http://jcl.svn.sourceforge.net/jcl/?rev=2102&view=rev
Author: cycocrew
Date: 2007-08-05 13:43:19 -0700 (Sun, 05 Aug 2007)
Log Message:
-----------
More .dtx help files updates.
Minor update of contributors.txt file.
Modified Paths:
--------------
trunk/help/8087.dtx
trunk/help/AppInst.dtx
trunk/help/Base.dtx
trunk/help/FileUtils.dtx
trunk/help/Multimedia.dtx
trunk/help/Streams.dtx
trunk/help/Strings.dtx
trunk/help/SysInfo.dtx
trunk/help/hlpgrps.dtx
trunk/help/pcre.dtx
trunk/jcl/docs/Contributors.txt
Modified: trunk/help/8087.dtx
===================================================================
--- trunk/help/8087.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/8087.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -14,7 +14,7 @@
An enumeration describing the set of available FPU exception masks.
Description:
An enumeration which describes the set of available FPU
- exception masks. Note that you can use theAll8087Exceptions
+ exception masks. Note that you can use the All8087Exceptions
constant whenever you need a set which includes all exception
flags.
Donator:
@@ -104,7 +104,7 @@
masked are cleared if they do not appear in the Exception
parameter.
Parameters:
- Exceptions - Set of exceptions to mask.
+ Exceptions - Set of exceptions to mask.
ClearBefore - If set to True the routine clears pending exceptions, if any, before modifying the
exception mask. This is the default behavior. If set to False the routine does not
clear pending exceptions.
@@ -153,7 +153,7 @@
not included in the Exceptions parameter are left unchanged,
unlike SetMasked8087Exceptions which modifies the entire mask.
Parameters:
- Exceptions - Exceptions to be unmasked.
+ Exceptions - Exceptions to be unmasked.
ClearBefore - If set to True any pending exceptions are
cleared before the routine returns, if set to
False pending exceptions are not cleared.
@@ -178,13 +178,13 @@
Donator:
Marcel van Brakel
@@T8087Precision.pcSingle
- Single precision (short)
+ Single precision (short).
@@T8087Precision.pcReserved
- Reserved, never actually used (convenience)
+ Reserved, never actually used (convenience).
@@T8087Precision.pcDouble
- Double precision (long)
+ Double precision (long).
@@T8087Precision.pcExtended
- Extended precision (temporary)
+ Extended precision (temporary).
--------------------------------------------------------------------------------
@@T8087Rounding
<GROUP MathRoutines.Hardware>
@@ -198,13 +198,13 @@
Donator:
Marcel van Brakel
@@T8087Rounding.rcNearestOrEven
- Rounds to the nearest or even
+ Rounds to the nearest or even.
@@T8087Rounding.rcDownInfinity
- Rounds down towards negative infinity
+ Rounds down towards negative infinity.
@@T8087Rounding.rcUpInfinity
- Rounds up towards positive infinity
+ Rounds up towards positive infinity.
@@T8087Rounding.rcChopOrTruncate
- Chops or truncates towards zero
+ Chops or truncates towards zero.
--------------------------------------------------------------------------------
@@T8087Infinity
<GROUP MathRoutines.Hardware>
@@ -235,8 +235,8 @@
version x87 FPU coprocessors or 32 bit Intel architecture
processors.
Parameters:
- Infinity - New value for the infinity control of the FPU. See
- T8087Infinity for the possible values and their meaning.
+ Infinity - New value for the infinity control of the FPU. See
+ T8087Infinity for the possible values and their meaning.
Result:
Returns the previous infinity setting of the FPU.
See also:
@@ -257,9 +257,9 @@
Set8087Precision adjusts the precision control setting of the
mathematical coprocessor.
Parameters:
- Precision - New value for the precision control of the FPU.
- See T8087Precision for the possible values
- and their meaning.
+ Precision - New value for the precision control of the FPU.
+ See T8087Precision for the possible values
+ and their meaning.
Result:
Returns the previous precision setting of the FPU.
See also:
@@ -280,9 +280,9 @@
Set8087Rounding adjusts the rounding control setting of the
mathematical coprocessor.
Parameters:
- Rounding - New value for the rounding control of the FPU.
- See T8087Rounding for the possible values and
- their meaning.
+ Rounding - New value for the rounding control of the FPU.
+ See T8087Rounding for the possible values and
+ their meaning.
Result:
Returns the previous rounding setting of the FPU.
See also:
@@ -387,7 +387,7 @@
and Get8087Rounding functions are preferred as they
shield you from the low level bit manipulation.
<TABLE>
-Bit(s) \Description
+Bit(s) Description
----------- ----------------------------------------------------
0 (IM) Invalid operation mask
1 (DM) Denormalized operand mask
@@ -426,9 +426,9 @@
Bit(s) Description
------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------
0 (IE) Invalid error such as stack overflow/underflow.
-1 (DE) Denormalized error meaning at least one operand was denormalized
-2 (ZE) Zero error indicates the divisor was 0 while the dividend was non-zero or non-infinity
-3 (OE) Overflow error indicating the result of an operation was too large to be represented. If overflow error is masked a result of infinity was returned
+1 (DE) Denormalized error meaning at least one operand was denormalized.
+2 (ZE) Zero error indicates the divisor was 0 while the dividend was non-zero or non-infinity.
+3 (OE) Overflow error indicating the result of an operation was too large to be represented. If overflow error is masked a result of infinity was returned.
4 (UE) Underflow error indicating the result of an operation was too small to be represented.
5 (PE) Precision error indicating an operand or the result exceeds the selected precision.
6 (SF) Used in some newer coprocessors to denote overflow or underflow.
Modified: trunk/help/AppInst.dtx
===================================================================
--- trunk/help/AppInst.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/AppInst.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -584,5 +584,5 @@
Petr Vones
--------------------------------------------------------------------------------
@@JclAppInstances
-<combine JclAppInstances@string>
+<COMBINE JclAppInstances@string>
TODO
Modified: trunk/help/Base.dtx
===================================================================
--- trunk/help/Base.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/Base.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -652,16 +652,16 @@
Team JCL
--------------------------------------------------------------------------------
@@JclVersionBuild
-<combine JclVersion>
+<COMBINE JclVersion>
--------------------------------------------------------------------------------
@@JclVersionMajor
-<combine JclVersion>
+<COMBINE JclVersion>
--------------------------------------------------------------------------------
@@JclVersionMinor
-<combine JclVersion>
+<COMBINE JclVersion>
--------------------------------------------------------------------------------
@@JclVersionRelease
-<combine JclVersion>
+<COMBINE JclVersion>
--------------------------------------------------------------------------------
@@MoveChar@string@Integer@string@Integer@Integer
Summary:
Modified: trunk/help/FileUtils.dtx
===================================================================
--- trunk/help/FileUtils.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/FileUtils.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -471,9 +471,9 @@
@@TJclTempFileStream
<GROUP FilesandIO.Streams>
Summary:
- Implements a temporary file-stream.
+ Implements a temporary file stream.
Description:
- TJclTempFileStream implements a temporary file-stream. The stream is created
+ TJclTempFileStream implements a temporary file stream. The stream is created
in a system defined folder reserved for temporary files and is automatically
deleted when the object is freed. The stream object is opened with full access
rights and in such manner that the stream cannot be opened by another thread.
@@ -484,6 +484,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclTempFileStream.FileName
+<GROUP FilesandIO.Streams>
Summary:
The fully qualified name of the temporary file.
Description:
@@ -494,6 +495,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclTempFileStream.Create
+<GROUP FilesandIO.Streams>
Summary:
Creates an instance of TJclTempFileStream.
Description:
@@ -525,8 +527,6 @@
String that describes the file type.
Platform:
Windows
-See also:
- PathGetDisplayName
Donator:
Pelle F. S. Liljendal
--------------------------------------------------------------------------------
@@ -583,7 +583,7 @@
is not necessarily always true.
Parameters:
FileName - The name of the file for which you want to know the display name. The file must
- physically exist on the drive or the function fails.
+ physically exist on the drive or the function fails.
Result:
If the function succeeds it returns the display name of the supplied file. If the
function fails the result is a copy of the supplied filename.
@@ -642,7 +642,7 @@
--------------------------------------------------------------------------------
@@PathCanonicalize
Summary:
- If possible, shortens a path by resolving relative path elements ('.', '..')
+ If possible, shortens a path by resolving relative path elements ('.', '..').
Description:
Canonicalizes a path. Meaning, it parses the specified path for the character
sequences '.' and '..' where '.' means skip over the next path part and '..'
@@ -724,7 +724,6 @@
Windows
See also:
PathGetLongName
- PathGetDisplayName
Donator:
Rudy Velthuis
--------------------------------------------------------------------------------
@@ -1111,6 +1110,7 @@
Backup file by creating a copy of the file with a backup file extension (*.~*).
Parameters:
FileName - The name of the file to backup.
+ Move - If set to True, the original file is renamed to the backup file. Default is False.
Result:
True on success, False otherwise. If the function fails, call GetLastError to
to get extended error information, or RaiseLastOSError to pass the information
@@ -1133,13 +1133,13 @@
The FileCopy function copies an existing file to a new file.
Parameters:
ExistingFileName - The existing file.
- NewFileName - Specifies the name of the new file, or name of a directory where the
- copy will be created.
- ReplaceExisting - Specifies how to proceed if a file of the same name as that
- specified by NewFileName already exists. If this parameter is False and the
- new file already exists, the function fails. If this parameter is True and
- the new file already exists, the function overwrites the existing file and
- succeeds.
+ NewFileName - Specifies the name of the new file, or name of a directory where the
+ copy will be created.
+ ReplaceExisting - Specifies how to proceed if a file of the same name as that
+ specified by NewFileName already exists. If this parameter is False and the
+ new file already exists, the function fails. If this parameter is True and
+ the new file already exists, the function overwrites the existing file and
+ succeeds.
Result:
If the function succeeds, the return value is True; False otherwise
Platforms:
@@ -1155,10 +1155,10 @@
Description:
Delete file with the option to send it to recycle bin.
Parameters:
- FileName - The name of the file to delete.
+ FileName - The name of the file to delete.
MoveToRecycleBin - If True, the file is move to the recycle bin/trash can (and
- still might be restored later); if False, it is to be deleted, allowing no
- recovery later.
+ still might be restored later); if False, it is to be deleted,
+ allowing no recovery later.
Result:
If the file has been successfully deleted the function returns True, otherwise
it returns False.
@@ -1614,7 +1614,7 @@
Summary:
Returns the date/time that the file was last written to.
Description:
- FileLastWrite returns the date/time that the specified file was last written to.
+ GetFileLastWrite returns the date/time that the specified file was last written to.
The return value is a UTC based TFileTime value which can be converted to the
familiar TDateTime by using FileTimeToDateTime function.
Parameters:
@@ -1634,7 +1634,7 @@
Summary:
Returns the date/time that the file was last accessed.
Description:
- FileLastAccess returns the date/time that the specified file was last accessed.
+ GetFileLastAccess returns the date/time that the specified file was last accessed.
The return value is a UTC based TFileTime value which can be converted to the
familiar TDateTime by using the FileTimeToDateTime function.
Parameters:
@@ -1653,7 +1653,7 @@
Summary:
Returns the date/time that the file was created.
Description:
- FileCreation returns the date/time that the specified file was created.
+ GetFileCreation returns the date/time that the specified file was created.
The return value is a UTC based TFileTime value which can be converted to the
familiar TDateTime by using the FileTimeToDateTime function.
Parameters:
@@ -1716,17 +1716,17 @@
<GROUP FilesandIO.FilesandDirectories>
<TABLE>
-Options \Description
+Options Description
------------------- ------------------------------------------------------
flFullNames If this flag is included, then filenames are added to
- the list including the complete path, otherwise just
- the filenames are added to the list. For example:
- "C:WindowsNOTEPAD.EXE" when using flFullNames,
- "NOTEPAD.EXE" when not using it.
-flRecursive search the specified path and subfolders for files to
- include in the list.
+ the list including the complete path, otherwise just
+ the filenames are added to the list. For example:
+ "C:WindowsNOTEPAD.EXE" when using flFullNames,
+ "NOTEPAD.EXE" when not using it.
+flRecursive Search the specified path and subfolders for files to
+ include in the list.
flMaskedSubfolders Only search folders than match the SubfoldersMask
- parameter (currently broken).
+ parameter (currently broken).
</TABLE>
Summary:
@@ -1924,6 +1924,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LanguageCount
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Number of languages in the version resource.
Description:
@@ -1937,6 +1938,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LanguageIndex
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Index into the LanguageIds array of the 'active' language.
Description:
@@ -1950,6 +1952,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LanguageIds
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
List of supported languages.
Description:
@@ -1965,6 +1968,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LanguageNames
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
List of supported languages.
Description:
@@ -1979,6 +1983,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.Comments
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the comment string.
Description:
@@ -1987,6 +1992,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.CompanyName
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the company name string.
Description:
@@ -1995,6 +2001,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileDescription
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the file description string.
Description:
@@ -2003,6 +2010,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileFlags
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Set of flags that specify the attributes of the file.
Description:
@@ -2013,6 +2021,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileOS
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Depicts the OS for which this file was designed.
Description:
@@ -2047,6 +2056,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileSubType
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Specifies the function of the file.
Description:
@@ -2086,6 +2096,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileType
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Depicts the general type of the file.
Description:
@@ -2108,6 +2119,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileVersion
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the FileVersion string.
Description:
@@ -2116,6 +2128,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.InternalName
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the internal name string.
Description:
@@ -2124,6 +2137,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.VersionLanguageId
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the language identifier of the version resource.
Description:
@@ -2132,6 +2146,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.VersionLanguageName
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the language name of the version resource.
Description:
@@ -2140,6 +2155,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LegalCopyright
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the legal copyright string.
Description:
@@ -2148,6 +2164,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.LegalTradeMarks
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the LegalTradeMarks string.
Description:
@@ -2156,6 +2173,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.OriginalFilename
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
OriginalFileName returns the value of the original filename string key.
Description:
@@ -2164,6 +2182,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.ProductName
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the product name string.
Description:
@@ -2172,6 +2191,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.ProductVersion
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the product version string.
Description:
@@ -2180,6 +2200,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.SpecialBuild
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the special build module attribute.
Description:
@@ -2192,6 +2213,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.PrivateBuild
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the private build module attribute.
Description:
@@ -2204,6 +2226,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.Items
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Allows for reading user defined keys.
Description:
@@ -2215,6 +2238,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.BinFileVersion
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the binary file version string.
Description:
@@ -2223,6 +2247,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.BinProductVersion
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Returns the binary product string.
Description:
@@ -2231,6 +2256,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.Attach
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Creates an instance of TJclFileVersionInfo using the supplied buffer.
Description:
@@ -2247,7 +2273,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.Create
-<GROUP FilesandIO.FilesandDirectories>
+<GROUP FilesandIO.FilesandDirectories.FileVersionInfo>
Summary:
Creates an instance of TJclFileVersionInfo.
Description:
@@ -2278,7 +2304,7 @@
recycle bin. The behaviour depends on the value of
MoveToRecycleBin parameter.
Parameters:
- DirectoryName - Directory to be deleted
+ DirectoryName - Directory to be deleted.
MoveToRecycleBin - If True the directory will be moved to
the system Recycle Bin instead of being
deleted.
@@ -2299,8 +2325,8 @@
If the new directory name does not exist then the existing directory is copied
as the new directory.
Parameters:
- ExistingDirectoryName - Source directory
- NewDirectoryName - Destination directory
+ ExistingDirectoryName - Source directory.
+ NewDirectoryName - Destination directory.
Platforms:
Windows NT/2000/Vista: Requires Windows NT 3.1 or later.
Windows 95/98: Requires Windows 95 or later.
@@ -2318,8 +2344,8 @@
If the new directory name does not exist then the existing directory is moved
(renamed) as the new directory.
Parameters:
- ExistingDirectoryName - Source directory
- NewDirectoryName - Destination directory
+ ExistingDirectoryName - Source directory.
+ NewDirectoryName - Destination directory.
Platforms:
Windows NT/2000/Vista: Requires Windows NT 3.1 or later.
Windows 95/98: Requires Windows 95 or later.
@@ -2380,7 +2406,8 @@
Returns Depth parts of the path excluding drive.
Description
Returns first Depth parts of the specified path excluding drive letter
- and colon. Example:
+ and colon.
+Example:
PathExtractPathDepth('c:\users\brakelm\data', 2) => 'c:\users\brakelm'
Parameters:
Depth - Specifies the maximum of path parts to return.
@@ -2436,15 +2463,21 @@
@@Win32DeleteFile
<GROUP FilesandIO.FilesandDirectories>
Summary:
- TODO
+ Delete file with the option to send it to recycle bin.
Description:
- TODO
+ Delete file with the option to send it to recycle bin.
Parameters:
- FileName -
- MoveToRecycleBin -
+ FileName - The name of the file to delete.
+ MoveToRecycleBin - If True, the file is move to the recycle bin/trash can (and
+ still might be restored later); if False, it is to be deleted,
+ allowing no recovery later.
Result:
+ If the file has been successfully deleted the function returns True, otherwise
+ it returns False.
Note:
Obsolete. Use FileDelete instead.
+See also:
+ FileDelete
Donator:
Jean-Fabien Connault
--------------------------------------------------------------------------------
@@ -2469,29 +2502,29 @@
@@Win32BackupFile
<GROUP FilesandIO.FilesandDirectories>
Summary:
- TODO
+ Backup file by creating a copy of the file with a backup file extension (*.~*).
Description:
- TODO
+ Backup file by creating a copy of the file with a backup file extension (*.~*).
Parameters:
- FileName -
- Move -
+ FileName - The name of the file to backup.
+ Move - If set to True, the original file is renamed to the backup file. Default is False.
Result:
True on success, False otherwise. If the function fails, call GetLastError to
to get extended error information, or RaiseLastOSError to pass the information
on to the user.
Note:
Obsolete. Use FileBackup instead.
-Platform:
- Windows
+See also:
+ FileBackup
Donator:
Jean-Fabien Connault
--------------------------------------------------------------------------------
@@Win32RestoreFile
<GROUP FilesandIO.FilesandDirectories>
Summary:
- TODO
+ Restore file by renaming the backup filename to original filename.
Description:
- TODO
+ Restore file by renaming the backup filename to original filename.
Parameters:
FileName - The name of the file to restore.
Result:
@@ -2500,8 +2533,8 @@
on to the user.
Note:
Obsolete. Use FileRestore instead.
-Platform:
- Windows
+See also:
+ FileRestore
Donator:
Jean-Fabien Connault
--------------------------------------------------------------------------------
@@ -2515,7 +2548,7 @@
block of version information resource from the file specified
by the FileName parameter.
Parameters:
- FileName - The fully qualified file name, the version information
+ FileName - The fully qualified file name, the version information
resource of which should be retrieved.
FixedInfo - Output parameter. Contains the root block of version
information resource if function succeedes.
@@ -2569,7 +2602,7 @@
Robert Rossmair
--------------------------------------------------------------------------------
@@TAttributeInterest.aiIgnored
-File search matching is not affected by this attribute
+File search matching is not affected by this attribute.
--------------------------------------------------------------------------------
@@TAttributeInterest.aiRequired
The attribute is required for a file to be included in the search result set.
Modified: trunk/help/Multimedia.dtx
===================================================================
--- trunk/help/Multimedia.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/Multimedia.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -23,10 +23,10 @@
protocol (language), a connector (hardware interface) and a
distribution format called Standard MIDI Files.
- For more information about MIDI, look up the MMA's <EXTLINK http://www.midi.org>website</EXTLINK>.
+ For more information about MIDI, look up the MMA's http://www.midi.org website>.
We also recommend George Hansper's MIDI
- <EXTLINK http://crystal.apana.org.au/ghansper/midi_introduction/contents.html>introduction</EXTLINK>.
+ http://crystal.apana.org.au/ghansper/midi_introduction/contents.html introduction.
--------------------------------------------------------------------------------
@@MultiMedia.WaveformAudio
<TITLE Waveform Audio>
Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/Streams.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -314,7 +314,7 @@
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclDelegatedStream.OnRead
-<combine TJclStreamReadEvent>
+<COMBINE TJclStreamReadEvent>
Summary:
Event handler called when the Read method is called.
See also:
@@ -325,7 +325,7 @@
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclDelegatedStream.OnSeek
-<combine TJclStreamSeekEvent>
+<COMBINE TJclStreamSeekEvent>
Summary:
Event handler called when the Seek method is called.
See also:
@@ -336,7 +336,7 @@
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclDelegatedStream.OnSize
-<combine TJclStreamSizeEvent>
+<COMBINE TJclStreamSizeEvent>
Summary:
Event handler called when the SetSize method is called (on
write of the Size property).
@@ -348,7 +348,7 @@
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclDelegatedStream.OnWrite
-<combine TJclStreamWriteEvent>
+<COMBINE TJclStreamWriteEvent>
Summary:
Event handler called when the Write method is called.
See also:
@@ -902,6 +902,25 @@
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteCString
+Description:
+ The WriteCString method writes a C-like string (null terminated) to this stream.
+See also:
+ TJclEasyStream.ReadCString
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
@@TJclEasyStream.WriteCurrency@Currency
Description:
The WriteCurrency method writes a currency value to this
@@ -1246,10 +1265,10 @@
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclEventStream.Seek@Int64@TSeekOrigin
-<combinewith !!OVERLOADED_Seek_TJclEventStream>
+<COMBINEWITH !!OVERLOADED_Seek_TJclEventStream>
--------------------------------------------------------------------------------
@@TJclEventStream.Seek@Longint@Word
-<combinewith !!OVERLOADED_Seek_TJclEventStream>
+<COMBINEWITH !!OVERLOADED_Seek_TJclEventStream>
--------------------------------------------------------------------------------
@@!!OVERLOADED_SetSize_TJclEventStream
Description:
@@ -1267,10 +1286,10 @@
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclEventStream.SetSize@Int64
-<combinewith !!OVERLOADED_SetSize_TJclEventStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclEventStream>
--------------------------------------------------------------------------------
@@TJclEventStream.SetSize@Longint
-<combinewith !!OVERLOADED_SetSize_TJclEventStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclEventStream>
--------------------------------------------------------------------------------
@@TJclEventStream.Write@@Longint
Description:
@@ -1335,7 +1354,7 @@
This constructor creates a new instance of the TJclBufferedStream class.
An instance is constructed based on a source stream that holds data.
Parameters:
- AStream - stream used to store data read and written to this instance.
+ AStream - Stream used to store data read and written to this instance.
AOwnsStream - Current data stream will be freed when this instance is
destroyed.
See also:
@@ -1349,7 +1368,7 @@
Description:
Destroy curent instance and its associated resources.
See also:
- TJclBufferedStream.Create@Stream@Boolean
+ TJclBufferedStream.Create
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1409,7 +1428,7 @@
If equal to 0, no data were changed.
See also:
TJclBufferedStream.Flush
- TJclBufferedStream.Write@@Longint
+ TJclBufferedStream.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1609,10 +1628,10 @@
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclStreamDecorator.Seek@Int64@TSeekOrigin
-<combinewith !!OVERLOADED_Seek_TJclStreamDecorator>
+<COMBINEWITH !!OVERLOADED_Seek_TJclStreamDecorator>
--------------------------------------------------------------------------------
@@TJclStreamDecorator.Seek@Longint@Word
-<combinewith !!OVERLOADED_Seek_TJclStreamDecorator>
+<COMBINEWITH !!OVERLOADED_Seek_TJclStreamDecorator>
--------------------------------------------------------------------------------
@@!!OVERLOADED_SetSize_TJclStreamDecorator
Summary:
@@ -1630,10 +1649,10 @@
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclStreamDecorator.SetSize@Int64
-<combinewith !!OVERLOADED_SetSize_TJclStreamDecorator>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclStreamDecorator>
--------------------------------------------------------------------------------
@@TJclStreamDecorator.SetSize@Longint
-<combinewith !!OVERLOADED_SetSize_TJclStreamDecorator>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclStreamDecorator>
--------------------------------------------------------------------------------
@@TJclStreamDecorator.AfterStreamChange
Summary:
@@ -1690,10 +1709,10 @@
Description:
This protected procedure is called just after attached stream is changed.
It may be overridden to customize its behaviour, as presently implemented,
- it calls the AfterStreamChange event.
+ it calls the TJclStreamDecorator.AfterStreamChange event.
See also:
TJclStreamDecorator.AfterStreamChange
- TJclStreamDecorator.DoBeforeStreamchange
+ TJclStreamDecorator.DoBeforeStreamChange
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1703,9 +1722,9 @@
Description:
This protected procedure is called before attached stream is changed.
It may be overridden to customize its behaviour, as presently implemented,
- it calls the BeforeStreamChange event.
+ it calls the TJclStreamDecorator.BeforeStreamChange event.
See also:
- TJclStreamDecorator.BeforeStreamchange
+ TJclStreamDecorator.BeforeStreamChange
TJclStreamDecorator.DoAfterStreamChange
Donator:
Heinz Zastrau
@@ -1714,7 +1733,7 @@
Summary:
Private field storing handler of the AfterStreamChange event.
Description:
- This field stores a reference to the handler of the AfterStreamChange event.
+ This field stores a reference to the handler of the TJclStreamDecorator.AfterStreamChange event.
See also:
TJclStreamDecorator.AfterStreamChange
Donator:
@@ -1724,7 +1743,7 @@
Summary:
Private field storing handler of the BeforeStreamChange event.
Description:
- This field stores a reference to the handler of the BeforeStreamChange event.
+ This field stores a reference to the handler of the TJclStreamDecorator.BeforeStreamChange event.
See also:
TJclStreamDecorator.BeforeStreamChange
Donator:
@@ -2147,10 +2166,10 @@
Robert Marquardt
--------------------------------------------------------------------------------
@@TJclEmptyStream.SetSize@Int64
-<combinewith !!OVERLOADED_SetSize_TJclEmptyStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclEmptyStream>
--------------------------------------------------------------------------------
@@TJclEmptyStream.SetSize@Longint
-<combinewith !!OVERLOADED_SetSize_TJclEmptyStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclEmptyStream>
--------------------------------------------------------------------------------
@@TJclEmptyStream.Read@@Longint
Summary:
@@ -2268,10 +2287,10 @@
Robert Marquardt
--------------------------------------------------------------------------------
@@TJclHandleStream.SetSize@Int64
-<combinewith !!OVERLOADED_SetSize_TJclHandleStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclHandleStream>
--------------------------------------------------------------------------------
@@TJclHandleStream.SetSize@Longint
-<combinewith !!OVERLOADED_SetSize_TJclHandleStream>
+<COMBINEWITH !!OVERLOADED_SetSize_TJclHandleStream>
--------------------------------------------------------------------------------
@@TJclHandleStream.Create@THandle
Summary:
Modified: trunk/help/Strings.dtx
===================================================================
--- trunk/help/Strings.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/Strings.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -2317,8 +2317,8 @@
identical. AnsiSameText is case insensitive and uses the users local settings for
comparisation. For more information please refer to the Windows API CompareString function.
Parameters:
- S1 - First string to compare
- S2 - Second string to compare
+ S1 - First string to compare.
+ S2 - Second string to compare.
Result:
AnsiSameText returns 0 (CSTR_EQUAL) if the two strings match.
Donator:
@@ -2654,7 +2654,7 @@
sign. Function also handles national settings for thousand
separator (see ThousandSeparator variable).
Parameters:
- S - String to be converted to float value
+ S - String to be converted to float value.
Result:
Returns the float value of the string S passed as a parameter.
If error occurs, the function returns 0.00.
Modified: trunk/help/SysInfo.dtx
===================================================================
--- trunk/help/SysInfo.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/SysInfo.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -595,7 +595,7 @@
@@GetWindowsServicePackVersion
<GROUP SystemInformationRoutines.VersionInformation>
Summary:
- Returns the installed service pack
+ Returns the installed service pack.
Description:
Returns the major version number of the latest installed Windows Service Pack.
Result:
@@ -608,8 +608,9 @@
Jean-Fabien Connault
--------------------------------------------------------------------------------
@@GetWindowsServicePackVersionString
+<GROUP SystemInformationRoutines.VersionInformation>
Summary:
- Returns the installed service pack as a string
+ Returns the installed service pack as a string.
Description:
Returns the major version number of the latest installed Windows Service Pack as a string.
Result:
Modified: trunk/help/hlpgrps.dtx
===================================================================
--- trunk/help/hlpgrps.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/hlpgrps.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -21,11 +21,11 @@
otherwise, all files including those without an MPL header, are subject to the
MPL license.
-For more information visit our <EXTLINK http://homepages.borland.com/jedi/jcl/>
-homepage</EXTLINK>.
+For more information visit our http://homepages.borland.com/jedi/jcl/
+homepage.
Note: This documentation has been created using Doc-O-Matic Professional 5.0.2.
-Many thanks to <EXTLINK http://www.toolsfactory.com/>toolsfactory</EXTLINK> for
+Many thanks to http://www.toolsfactory.com/ toolsfactory for
generously granting free licenses to the JEDI team!
--------------------------------------------------------------------------------
@@Algorithms
@@ -184,7 +184,7 @@
<GROUP JCL>
<TITLE Libraries\, Processes and Threads>
<TOPICORDER 1300>
-------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
@@MathRoutines
<GROUP JCL>
<TITLE Math Routines>
@@ -286,7 +286,6 @@
Petr Vones
--------------------------------------------------------------------------------
@@JclFileUtils.pas
-<autolink off>
Description:
This unit contains routines and classes for working with
files, directories and path strings. Additionally it contains
@@ -301,7 +300,6 @@
are specific to the Windows shell.
--------------------------------------------------------------------------------
@@JclGraphics.pas
-<autolink off>
Description:
The resampling algorithms and methods used in this library
were adapted by Anders Melander from the article "General
@@ -350,19 +348,19 @@
Petr Vones
--------------------------------------------------------------------------------
@@JclStrings.pas
-The module JclStrings contains routines for strings
-manipulation, conversion and transformation.
+Summary:
+ The module JclStrings contains routines for strings
+ manipulation, conversion and transformation.
--------------------------------------------------------------------------------
@@JclSvcCtrl.pas
-<autolink off>
-
-This unit contains routines and classes to control Windows NT services
-
-@@Regular Expressions
-TODO
-
-@@Source files
-TODO
-
+Summary:
+ This unit contains routines and classes to control Windows NT services
+--------------------------------------------------------------------------------
+@@RegularExpressions
+ TODO
+--------------------------------------------------------------------------------
+@@SourceFiles
+ TODO
+--------------------------------------------------------------------------------
@@UnitVersioning
-TODO
\ No newline at end of file
+ TODO
\ No newline at end of file
Modified: trunk/help/pcre.dtx
===================================================================
--- trunk/help/pcre.dtx 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/help/pcre.dtx 2007-08-05 20:43:19 UTC (rev 2102)
@@ -672,7 +672,7 @@
TJclAnsiRegExOption
--------------------------------------------------------------------------------
@@JclPCRE_Intro
-<title JclPCRE Introduction>
+<TITLE JclPCRE Introduction>
Summary:
An introduction to the JCL implementation of a Perl-compatible Regular
Expression engine.
@@ -694,8 +694,7 @@
pcre
--------------------------------------------------------------------------------
@@JclPCRE_Using
-<title Using the JCL PCRE Classes>
-<autolink on>
+<TITLE Using the JCL PCRE Classes>
Summary:
Using the JCL PCRE Classes.
Description:
Modified: trunk/jcl/docs/Contributors.txt
===================================================================
--- trunk/jcl/docs/Contributors.txt 2007-08-04 20:00:43 UTC (rev 2101)
+++ trunk/jcl/docs/Contributors.txt 2007-08-05 20:43:19 UTC (rev 2102)
@@ -1,6 +1,6 @@
aa...@bi...
Alan Llo...@ao...
-Alex Denissov=
+Alex Den...@uw...
Alex Kon...@mt...
Alexander Rad...@ch...
Alexei Koudinov=
@@ -12,7 +12,7 @@
Angus Joh...@rp...
Anthony Ste...@ia...
Azret Bot...@at...
-Barry Kelly=
+Barry Kel...@gm...
Bender Her...@Er...
Bernhard Ber...@ya...
Bryan Cou...@bm...
@@ -88,7 +88,7 @@
Olivier San...@us...
Patrick van Laa...@ie...
Pavel Cis...@at...
-Pelle Lil...@fi...
+Pelle F. S. Lil...@fi...
Peter Fri...@gm...
Peter McM...@kc...
Peter Pan...@ao...
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <jfu...@us...> - 2007-08-04 20:00:45
|
Revision: 2101
http://jcl.svn.sourceforge.net/jcl/?rev=2101&view=rev
Author: jfudickar
Date: 2007-08-04 13:00:43 -0700 (Sat, 04 Aug 2007)
Log Message:
-----------
Added functions to easier handle command line parameters
Modified Paths:
--------------
trunk/jcl/source/common/JclFileUtils.pas
Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas 2007-08-04 15:10:19 UTC (rev 2100)
+++ trunk/jcl/source/common/JclFileUtils.pas 2007-08-04 20:00:43 UTC (rev 2101)
@@ -968,6 +968,32 @@
// return the index of an item
function PathListItemIndex(const List, Item: string): Integer;
+
+// additional functions to access the commandline parameters of an application
+
+// returns the name of the command line parameter at position index, which is
+// separated by the given separator, if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamName (Index : Integer; const Separator : string = '=';
+ const AllowedPrefixCharacters : string = '-/'; TrimName : Boolean = true) : string;
+// returns the value of the command line parameter at position index, which is
+// separated by the given separator
+function ParamValue (Index : Integer; const Separator : string = '='; TrimValue : Boolean = true) : string; overload;
+// seaches a command line parameter where the namepart is the searchname
+// and returns the value which is which by the given separator.
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamValue (const SearchName : string; const Separator : string = '=';
+ CaseSensitive : Boolean = False;
+ const AllowedPrefixCharacters : string = '-/'; TrimValue : Boolean = true) : string; overload;
+// seaches a command line parameter where the namepart is the searchname
+// and returns the position index. if no separator is defined, the full paramstr is compared.
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamPos (const SearchName : string; const Separator : string = '=';
+ CaseSensitive : Boolean = False;
+ const AllowedPrefixCharacters : string = '-/'): Integer;
+
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
@@ -6257,6 +6283,100 @@
end;
end;
+
+// additional functions to access the commandline parameters of an application
+
+// returns the name of the command line parameter at position index, which is
+// separated by the given separator, if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamName (Index : Integer; const Separator : string = '=';
+ const AllowedPrefixCharacters : string = '-/'; TrimName : Boolean = true) : string;
+var s: string;
+ p: Integer;
+begin
+ if (index > 0) and (index <= ParamCount) then
+ begin
+ s := ParamStr(index);
+ if Pos(Copy(s, 1, 1), AllowedPrefixCharacters) > 0 then
+ s := Copy (s, 2, Length(s)-1);
+ p := Pos(Separator, s);
+ if p > 0 then
+ s := Copy (s, 1, p-1);
+ if TrimName then
+ s := Trim(s);
+ Result := s;
+ end
+ else
+ Result := '';
+end;
+
+// returns the value of the command line parameter at position index, which is
+// separated by the given separator
+function ParamValue (Index : Integer; const Separator : string = '='; TrimValue : Boolean = true) : string;
+var s: string;
+ p: Integer;
+begin
+ if (index > 0) and (index <= ParamCount) then
+ begin
+ s := ParamStr(index);
+ p := Pos(Separator, s);
+ if p > 0 then
+ s := Copy (s, p+1, Length(s)-p);
+ if TrimValue then
+ s := Trim(s);
+ Result := s;
+ end
+ else
+ Result := '';
+end;
+
+// seaches a command line parameter where the namepart is the searchname
+// and returns the value which is which by the given separator.
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamValue (const SearchName : string; const Separator : string = '=';
+ CaseSensitive : Boolean = False;
+ const AllowedPrefixCharacters : string = '-/'; TrimValue : Boolean = true) : string;
+var pName : string;
+ i : Integer;
+begin
+ Result := '';
+ for i := 1 to ParamCount do
+ begin
+ pName := ParamName(i, Separator, AllowedPrefixCharacters, True);
+ if (CaseSensitive and (pName = Trim(SearchName))) or
+ (UpperCase(pName) = Trim(UpperCase(SearchName))) then
+ begin
+ Result := ParamValue (i, Separator, TrimValue);
+ exit;
+ end;
+ end;
+end;
+
+// seaches a command line parameter where the namepart is the searchname
+// and returns the position index. if no separator is defined, the full paramstr is compared.
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamPos (const SearchName : string; const Separator : string = '=';
+ CaseSensitive : Boolean = False;
+ const AllowedPrefixCharacters : string = '-/'): Integer;
+var pName : string;
+ i : Integer;
+begin
+ Result := -1;
+ for i := 1 to ParamCount do
+ begin
+ pName := ParamName(i, Separator, AllowedPrefixCharacters, True);
+ if (CaseSensitive and (pName = SearchName)) or
+ (UpperCase(pName) = UpperCase(SearchName)) then
+ begin
+ Result := i;
+ Exit;
+ end;
+ end;
+end;
+
+
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-04 15:10:23
|
Revision: 2100
http://jcl.svn.sourceforge.net/jcl/?rev=2100&view=rev
Author: outchy
Date: 2007-08-04 08:10:19 -0700 (Sat, 04 Aug 2007)
Log Message:
-----------
Mantis 4192 the TJclBufferedStream.Size doesn't work: added SetSize method for TJclBufferedStream
+ Added SetSize methods for TJclScopedStream and TJclSectoredStream
Modified Paths:
--------------
trunk/jcl/source/common/JclStreams.pas
Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas 2007-08-04 14:39:18 UTC (rev 2099)
+++ trunk/jcl/source/common/JclStreams.pas 2007-08-04 15:10:19 UTC (rev 2100)
@@ -202,6 +202,7 @@
protected
procedure DoAfterStreamChange; override;
procedure DoBeforeStreamChange; override;
+ procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AStream: TStream; AOwnsStream: Boolean = False);
destructor Destroy; override;
@@ -267,6 +268,8 @@
FStartPos: Int64;
FCurrentPos: Int64;
FMaxSize: Int64;
+ protected
+ procedure SetSize(const NewSize: Int64); override;
public
// scopedstream starting at the current position of the ParentStream
// if MaxSize is positive or null, read and write operations cannot overrun this size or the ParentStream limitation
@@ -321,6 +324,7 @@
procedure DoAfterStreamChange; override;
procedure AfterBlockRead; virtual; // override to check protection
procedure BeforeBlockWrite; virtual; // override to compute protection
+ procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AStorageStream: TStream; AOwnsStream: Boolean = False;
ASectorOverHead: Integer = 0);
@@ -1008,6 +1012,23 @@
Result := NewPos;
end;
+procedure TJclBufferedStream.SetSize(const NewSize: Int64);
+begin
+ inherited SetSize(NewSize);
+ if NewSize < (FBufferStart + FBufferMaxModifiedPos) then
+ begin
+ FBufferMaxModifiedPos := NewSize - FBufferStart;
+ if FBufferMaxModifiedPos < 0 then
+ FBufferMaxModifiedPos := 0;
+ end;
+ if NewSize < (FBufferStart + FBufferCurrentSize) then
+ begin
+ FBufferCurrentSize := NewSize - FBufferStart;
+ if FBufferCurrentSize < 0 then
+ FBufferCurrentSize := 0;
+ end;
+end;
+
function TJclBufferedStream.Write(const Buffer; Count: Longint): Longint;
begin
Result := Count;
@@ -1351,6 +1372,17 @@
FCurrentPos := Result;
end;
+procedure TJclScopedStream.SetSize(const NewSize: Int64);
+var
+ ScopedNewSize: Int64;
+begin
+ if (FMaxSize >= 0) and (NewSize >= (FStartPos + FMaxSize)) then
+ ScopedNewSize := FMaxSize + FStartPos
+ else
+ ScopedNewSize := NewSize;
+ inherited SetSize(ScopedNewSize);
+end;
+
function TJclScopedStream.Write(const Buffer; Count: Longint): Longint;
begin
if (MaxSize >= 0) and ((FCurrentPos + Count) > MaxSize) then
@@ -1489,6 +1521,11 @@
+ Position mod TotalSectorSize; // offset in sector
end;
+procedure TJclSectoredStream.SetSize(const NewSize: Int64);
+begin
+ inherited SetSize(FlatToSectored(NewSize));
+end;
+
//=== { TJclCRC16Stream } ====================================================
procedure TJclCRC16Stream.AfterBlockRead;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-04 14:39:21
|
Revision: 2099
http://jcl.svn.sourceforge.net/jcl/?rev=2099&view=rev
Author: outchy
Date: 2007-08-04 07:39:18 -0700 (Sat, 04 Aug 2007)
Log Message:
-----------
Overriding TJclStream.SetSize(Longint) is useless.
Modified Paths:
--------------
trunk/jcl/source/common/JclStreams.pas
Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas 2007-08-03 20:40:07 UTC (rev 2098)
+++ trunk/jcl/source/common/JclStreams.pas 2007-08-04 14:39:18 UTC (rev 2099)
@@ -69,7 +69,6 @@
private
FHandle: THandle;
protected
- procedure SetSize(NewSize: Longint); override;
procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AHandle: THandle);
@@ -103,8 +102,7 @@
TJclEmptyStream = class(TJclStream)
protected
- procedure SetSize(NewSize: Longint); overload; override;
- procedure SetSize(const NewSize: Int64); overload; override;
+ procedure SetSize(const NewSize: Int64); override;
public
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
@@ -174,8 +172,7 @@
protected
procedure DoAfterStreamChange; virtual;
procedure DoBeforeStreamChange; virtual;
- procedure SetSize(NewSize: Longint); overload; override;
- procedure SetSize(const NewSize: Int64); overload; override;
+ procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AStream: TStream; AOwnsStream: Boolean = False);
destructor Destroy; override;
@@ -224,8 +221,7 @@
protected
procedure DoBeforeStreamChange; override;
procedure DoAfterStreamChange; override;
- procedure SetSize(NewSize: Longint); overload; override;
- procedure SetSize(const NewSize: Int64); overload; override;
+ procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AStream: TStream; ANotification: TStreamNotifyEvent = nil;
AOwnsStream: Boolean = False);
@@ -494,11 +490,6 @@
end;
{$ENDIF LINUX}
-procedure TJclHandleStream.SetSize(NewSize: Longint);
-begin
- SetSize(Int64(NewSize));
-end;
-
procedure TJclHandleStream.SetSize(const NewSize: Int64);
begin
Seek(NewSize, soBeginning);
@@ -569,11 +560,6 @@
// a stream which stays empty no matter what you do
// so it is a Unix /dev/null equivalent
-procedure TJclEmptyStream.SetSize(NewSize: Longint);
-begin
- // nothing
-end;
-
procedure TJclEmptyStream.SetSize(const NewSize: Int64);
begin
// nothing
@@ -873,12 +859,6 @@
Result := -1;
end;
-procedure TJclStreamDecorator.SetSize(NewSize: Longint);
-begin
- if Assigned(FStream) then
- Stream.Size := NewSize;
-end;
-
procedure TJclStreamDecorator.SetSize(const NewSize: Int64);
begin
if Assigned(FStream) then
@@ -1104,12 +1084,6 @@
DoNotification;
end;
-procedure TJclEventStream.SetSize(NewSize: Longint);
-begin
- inherited SetSize(NewSize);
- DoNotification;
-end;
-
procedure TJclEventStream.SetSize(const NewSize: Int64);
begin
inherited SetSize(NewSize);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-03 20:40:09
|
Revision: 2098
http://jcl.svn.sourceforge.net/jcl/?rev=2098&view=rev
Author: outchy
Date: 2007-08-03 13:40:07 -0700 (Fri, 03 Aug 2007)
Log Message:
-----------
removing useless entries (VclDev and ClxDev targets)
Modified Paths:
--------------
trunk/jcl/packages/xml/JclVClx-R.xml
trunk/jcl/packages/xml/JclVcl-R.xml
Modified: trunk/jcl/packages/xml/JclVClx-R.xml
===================================================================
--- trunk/jcl/packages/xml/JclVClx-R.xml 2007-08-03 20:39:22 UTC (rev 2097)
+++ trunk/jcl/packages/xml/JclVClx-R.xml 2007-08-03 20:40:07 UTC (rev 2098)
@@ -19,7 +19,5 @@
<Contains>
<File Name="..\..\source\visclx\JclQGraphUtils.pas" Targets="Clx" Formname="" Condition=""/>
<File Name="..\..\source\visclx\JclQGraphics.pas" Targets="Clx" Formname="" Condition=""/>
- <File Name="..\..\source\prototypes\JclQGraphUtils.pas" Targets="ClxDev" Formname="" Condition=""/>
- <File Name="..\..\source\prototypes\JclQGraphics.pas" Targets="ClxDev" Formname="" Condition=""/>
</Contains>
</Package>
Modified: trunk/jcl/packages/xml/JclVcl-R.xml
===================================================================
--- trunk/jcl/packages/xml/JclVcl-R.xml 2007-08-03 20:39:22 UTC (rev 2097)
+++ trunk/jcl/packages/xml/JclVcl-R.xml 2007-08-03 20:40:07 UTC (rev 2098)
@@ -23,8 +23,6 @@
<File Name="..\..\source\vcl\JclPrint.pas" Targets="Vcl" Formname="" Condition=""/>
<File Name="..\..\source\vcl\JclGraphUtils.pas" Targets="Vcl" Formname="" Condition=""/>
<File Name="..\..\source\vcl\JclGraphics.pas" Targets="Vcl" Formname="" Condition=""/>
- <File Name="..\..\source\prototypes\JclGraphUtils.pas" Targets="VclDev" Formname="" Condition=""/>
- <File Name="..\..\source\prototypes\JclGraphics.pas" Targets="VclDev" Formname="" Condition=""/>
<File Name="..\..\source\vcl\JclFont.pas" Targets="Vcl" Formname="" Condition=""/>
</Contains>
</Package>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-03 20:39:26
|
Revision: 2097
http://jcl.svn.sourceforge.net/jcl/?rev=2097&view=rev
Author: outchy
Date: 2007-08-03 13:39:22 -0700 (Fri, 03 Aug 2007)
Log Message:
-----------
Improved version info
Modified Paths:
--------------
trunk/jcl/packages/d10.net/Jedi.Jcl.dpr
trunk/jcl/packages/d10.net/template.dpr
trunk/jcl/packages/d9.net/Jedi.Jcl.dpr
trunk/jcl/packages/d9.net/template.dpr
Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.dpr
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.dpr 2007-08-02 20:18:09 UTC (rev 2096)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.dpr 2007-08-03 20:39:22 UTC (rev 2097)
@@ -40,14 +40,14 @@
[assembly: AssemblyTitle('JEDI Code Library')]
[assembly: AssemblyDescription('JEDI Code Library RTL package')]
[assembly: AssemblyConfiguration('')]
-[assembly: AssemblyCompany('')]
-[assembly: AssemblyProduct('JCL')]
-[assembly: AssemblyCopyright('')]
+[assembly: AssemblyCompany('Project JEDI')]
+[assembly: AssemblyProduct('JEDI Code Library')]
+[assembly: AssemblyCopyright('Copyright (C) 1999, 2007 Project JEDI')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
// MajorVersion.MinorVersion.BuildNumber.Revision
-[assembly: AssemblyVersion('1.0.*')]
+[assembly: AssemblyVersion('1.101.0.2647')]
// Package signature
[assembly: AssemblyDelaySign(false)]
Modified: trunk/jcl/packages/d10.net/template.dpr
===================================================================
--- trunk/jcl/packages/d10.net/template.dpr 2007-08-02 20:18:09 UTC (rev 2096)
+++ trunk/jcl/packages/d10.net/template.dpr 2007-08-03 20:39:22 UTC (rev 2097)
@@ -15,14 +15,14 @@
[assembly: AssemblyTitle('JEDI Code Library')]
[assembly: AssemblyDescription('%DESCRIPTION%')]
[assembly: AssemblyConfiguration('')]
-[assembly: AssemblyCompany('')]
-[assembly: AssemblyProduct('JCL')]
-[assembly: AssemblyCopyright('')]
+[assembly: AssemblyCompany('Project JEDI')]
+[assembly: AssemblyProduct('JEDI Code Library')]
+[assembly: AssemblyCopyright('Copyright (C) 1999, 2007 Project JEDI')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
// MajorVersion.MinorVersion.BuildNumber.Revision
-[assembly: AssemblyVersion('1.0.*')]
+[assembly: AssemblyVersion('%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER%.%RELEASE_NUMBER%.%BUILD_NUMBER%')]
// Package signature
[assembly: AssemblyDelaySign(false)]
Modified: trunk/jcl/packages/d9.net/Jedi.Jcl.dpr
===================================================================
--- trunk/jcl/packages/d9.net/Jedi.Jcl.dpr 2007-08-02 20:18:09 UTC (rev 2096)
+++ trunk/jcl/packages/d9.net/Jedi.Jcl.dpr 2007-08-03 20:39:22 UTC (rev 2097)
@@ -40,14 +40,14 @@
[assembly: AssemblyTitle('JEDI Code Library')]
[assembly: AssemblyDescription('JEDI Code Library RTL package')]
[assembly: AssemblyConfiguration('')]
-[assembly: AssemblyCompany('')]
-[assembly: AssemblyProduct('JCL')]
-[assembly: AssemblyCopyright('')]
+[assembly: AssemblyCompany('Project JEDI')]
+[assembly: AssemblyProduct('JEDI Code Library')]
+[assembly: AssemblyCopyright('Copyright (C) 1999, 2007 Project JEDI')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
// MajorVersion.MinorVersion.BuildNumber.Revision
-[assembly: AssemblyVersion('1.0.*')]
+[assembly: AssemblyVersion('1.101.0.2647')]
// Package signature
[assembly: AssemblyDelaySign(false)]
Modified: trunk/jcl/packages/d9.net/template.dpr
===================================================================
--- trunk/jcl/packages/d9.net/template.dpr 2007-08-02 20:18:09 UTC (rev 2096)
+++ trunk/jcl/packages/d9.net/template.dpr 2007-08-03 20:39:22 UTC (rev 2097)
@@ -15,14 +15,14 @@
[assembly: AssemblyTitle('JEDI Code Library')]
[assembly: AssemblyDescription('%DESCRIPTION%')]
[assembly: AssemblyConfiguration('')]
-[assembly: AssemblyCompany('')]
-[assembly: AssemblyProduct('JCL')]
-[assembly: AssemblyCopyright('')]
+[assembly: AssemblyCompany('Project JEDI')]
+[assembly: AssemblyProduct('JEDI Code Library')]
+[assembly: AssemblyCopyright('Copyright (C) 1999, 2007 Project JEDI')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
// MajorVersion.MinorVersion.BuildNumber.Revision
-[assembly: AssemblyVersion('1.0.*')]
+[assembly: AssemblyVersion('%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER%.%RELEASE_NUMBER%.%BUILD_NUMBER%')]
// Package signature
[assembly: AssemblyDelaySign(false)]
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-08-02 20:18:20
|
Revision: 2096
http://jcl.svn.sourceforge.net/jcl/?rev=2096&view=rev
Author: outchy
Date: 2007-08-02 13:18:09 -0700 (Thu, 02 Aug 2007)
Log Message:
-----------
Fixed exception if IDE was not launched before starting installation (test if HKCU\Software\Borland\XXX is present).
Modified Paths:
--------------
trunk/jcl/source/common/JclBorlandTools.pas
Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas 2007-07-28 07:43:19 UTC (rev 2095)
+++ trunk/jcl/source/common/JclBorlandTools.pas 2007-08-02 20:18:09 UTC (rev 2096)
@@ -5501,7 +5501,8 @@
PersonalitiesList := TStringList.Create;
try
PersonalitiesKeyName := VersionKeyName + '\Personalities';
- if RegKeyExists(HKEY_LOCAL_MACHINE, PersonalitiesKeyName) then
+ if RegKeyExists(HKEY_LOCAL_MACHINE, PersonalitiesKeyName)
+ and RegKeyExists(HKEY_CURRENT_USER, PersonalitiesKeyName) then // IDE was launched one time at least
RegGetValueNames(HKEY_LOCAL_MACHINE, PersonalitiesKeyName, PersonalitiesList);
for J := Low(Personalities) to High(Personalities) do
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <cyc...@us...> - 2007-07-28 07:43:23
|
Revision: 2095
http://jcl.svn.sourceforge.net/jcl/?rev=2095&view=rev
Author: cycocrew
Date: 2007-07-28 00:43:19 -0700 (Sat, 28 Jul 2007)
Log Message:
-----------
More .dtx help files updates.
Modified Paths:
--------------
trunk/help/Base.dtx
trunk/help/Bitmap32.dtx
trunk/help/Com.dtx
trunk/help/Debug.dtx
trunk/help/FileUtils.dtx
trunk/help/Math.dtx
trunk/help/NTFS.dtx
trunk/help/RTTI.dtx
trunk/help/Registry.dtx
trunk/help/Security.dtx
trunk/help/Shell.dtx
trunk/help/Streams.dtx
trunk/help/Strings.dtx
trunk/help/SvcCtrl.dtx
trunk/help/SysInfo.dtx
trunk/help/hlpgrps.dtx
trunk/help/pcre.dtx
Modified: trunk/help/Base.dtx
===================================================================
--- trunk/help/Base.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Base.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -66,7 +66,7 @@
This type is provided for compatibility with FPC. When compiling with Delphi or
Kylix use the type defined in SysUtils.pas instead.
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@SysErrorMessage
<GROUP BaseServices.FPCCompatibility>
@@ -81,7 +81,7 @@
Result:
Returns the error message string associated with the specified Windows API error code.
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@EJclError
<GROUP BaseServices.ErrorHandling>
@@ -140,7 +140,7 @@
Exceptions of the EJclInternalError exception class are raised if some
internal consistency check fails.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@EJclWin32Error
<GROUP BaseServices.ErrorHandling>
@@ -635,7 +635,7 @@
EWin32Error exception with the error code and message associated with that error.
This routine is provided for backwards compatibility.
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@IInterface
<GROUP BaseServices.Compatibility>
@@ -649,7 +649,7 @@
alias for IInterface. For more information see the Delphi for IUnknown or IInterface
depending on your Delphi version.
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@JclVersionBuild
<combine JclVersion>
@@ -835,4 +835,4 @@
--------------------------------------------------------------------------------
@@TDynWordArray
Summary:
- Type for a dynamic array of Word (unsigned 16-bit integer).
\ No newline at end of file
+ Type for a dynamic array of Word (unsigned 16-bit integer).
Modified: trunk/help/Bitmap32.dtx
===================================================================
--- trunk/help/Bitmap32.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Bitmap32.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -1886,12 +1886,12 @@
All functions perform clipping.
Platform:
VCL
-Donator:
- Alex Denissov
See also:
Graphics_Naming_Conventions
TJclBitmap32
TColor32
+Donator:
+ Alex Denissov
@@PolyLineAS
<GROUP Graphics.Bitmaps>
<COMBINE PolyLine>
@@ -2175,5 +2175,4 @@
TScanLine
Donator:
Alex Denissov
---------------------------------------------------------------------------------
-
+--------------------------------------------------------------------------------
\ No newline at end of file
Modified: trunk/help/Com.dtx
===================================================================
--- trunk/help/Com.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Com.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -66,7 +66,7 @@
GetMDACVersion returns the version of MDAC (Microsoft Data Access) installed on
the target system.
Result:
- The MDAC version in the form a.b.c.d
+ The MDAC version in the form a.b.c.d.
Donator:
Kevin S. Gallagher
--------------------------------------------------------------------------------
Modified: trunk/help/Debug.dtx
===================================================================
--- trunk/help/Debug.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Debug.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -1736,7 +1736,7 @@
Description:
TimeStamp holds the date and time of creation of the list.
Donator:
- Hallvard Vassbotn
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackInfoList
<GROUP Debugging.Stackinforoutines>
@@ -1924,7 +1924,7 @@
Donator:
Marcel Bestebroer
@@TExceptFrameKind.efkUnknown
- Unknown exception frame (most likely an exception frame inside a non-Borland library.
+ Anonymous exception frame (most likely an exception frame inside a non-Borland library.
@@TExceptFrameKind.efkFinally
A try...finally frame. Note that the compiler inserts implicit try...finally blocks for any method, function or procedure with parameters and/or variables that need clean up (eg. long strings, dynamic arrays, interface references).
@@TExceptFrameKind.efkAnyException
@@ -2348,4 +2348,4 @@
If the given procedure name contains a '.', the string after the '.' is returned,
otherwise the entire string is returned.
Donator:
- Petr Vones
\ No newline at end of file
+ Petr Vones
Modified: trunk/help/FileUtils.dtx
===================================================================
--- trunk/help/FileUtils.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/FileUtils.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -23,7 +23,7 @@
<TITLE NTFS>
<TOPICORDER 100>
--------------------------------------------------------------------------------
-@@FilesandIO.Pathmanipulation
+@@FilesandIO.PathManipulation
<GROUP FilesandIO>
<TITLE Path manipulation>
<TOPICORDER 300>
@@ -39,7 +39,7 @@
<TOPICORDER 100>
--------------------------------------------------------------------------------
@@DriveLetters
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Set of valid characters to use as drive letters.
Description:
@@ -51,7 +51,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathDevicePrefix
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Prefix used to specify a physical device under Windows.
Description:
@@ -64,7 +64,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathSeparator
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Character used as path element separator.
Description:
@@ -76,7 +76,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathUncPrefix
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Prefix for UNC path names.
Description:
@@ -100,9 +100,9 @@
The size of the file, in bytes. If the function fails to determine the size of
the file it raises an exception.
Donator:
- David Hervieux (Win32 code)
+ David Hervieux (Win32)
Contributor:
- Robert Rossmair (Unix code)
+ Robert Rossmair (Unix)
--------------------------------------------------------------------------------
@@TJclFileMappingView
<GROUP FilesandIO.Streams.FileMapping>
@@ -668,7 +668,7 @@
Jean-Fabien Connault
--------------------------------------------------------------------------------
@@PathGetLongName
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Returns the long name of a path.
Description:
@@ -689,7 +689,7 @@
Rudy Velthuis
--------------------------------------------------------------------------------
@@PathGetLongName2
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary
Returns the long name of a path.
Description
@@ -709,7 +709,7 @@
PathGetLongName
--------------------------------------------------------------------------------
@@PathGetShortName
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Returns the short name of a path.
Description:
@@ -729,7 +729,7 @@
Rudy Velthuis
--------------------------------------------------------------------------------
@@PathGetRelativePath
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
TODO
Description:
@@ -742,7 +742,7 @@
Robert Rossmair
--------------------------------------------------------------------------------
@@PathGetTempPath
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Retrieves the path of the directory designated for temporary files.
Description:
@@ -757,7 +757,7 @@
Robert Rossmair
--------------------------------------------------------------------------------
@@PathIsChild
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Checks whether Path is a child of Base.
Description:
@@ -776,7 +776,7 @@
Anthony Steele
--------------------------------------------------------------------------------
@@PathIsAbsolute
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Tests if a path is an absolute path.
Description:
@@ -794,7 +794,7 @@
Robert Marquardt
--------------------------------------------------------------------------------
@@PathIsDiskDevice
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Tests whether a path denotes a disk device.
Description:
@@ -815,7 +815,7 @@
Robert Rossmair
--------------------------------------------------------------------------------
@@PathIsUNC
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Tests whether a path is a UNC path.
Description:
@@ -837,7 +837,7 @@
Robert Marquardt
--------------------------------------------------------------------------------
@@PathExtractElements
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Extracts all elements from a path.
Description:
@@ -854,7 +854,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathAddSeparator
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Forces the string to end with a directory separator.
Description:
@@ -872,7 +872,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathAddExtension
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Adds the extension to a path.
Description:
@@ -890,7 +890,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathAppend
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Concatenates two paths.
Description:
@@ -905,7 +905,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathBuildRoot
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Creates a root path for the given drive number.
Description:
@@ -919,7 +919,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathCommonPrefix
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Compares two paths for a common prefix.
Description:
@@ -936,7 +936,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathCompactPath
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Compacts a path to fit within the given pixel width.
Description:
@@ -968,7 +968,7 @@
Anonymous
--------------------------------------------------------------------------------
@@PathExtractFileDirFixed
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Extracts drive and directory parts from a filename.
Description:
@@ -986,7 +986,7 @@
Anthony Steele
--------------------------------------------------------------------------------
@@PathExtractFileNameNoExt
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Extracts the filename without the extension.
Description:
@@ -1001,7 +1001,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathRemoveExtension
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Removes the extension from a path.
Description:
@@ -1016,7 +1016,7 @@
Marcel van Brakel
--------------------------------------------------------------------------------
@@PathRemoveSeparator
-<GROUP FilesandIO.Pathmanipulation>
+<GROUP FilesandIO.PathManipulation>
Summary:
Removes a trailing directory separator from a path.
Description:
@@ -1826,7 +1826,7 @@
Notes:
This function is a replacement for the FileUtils.DirectoryExists function from the Delphi RTL to avoid dependency on that particular unit. There's nothing wrong with that function except that the unit uses Forms etc. which add significant resources and startup time to your application (if it doesn't use these units already).
Donator:
- Unknown (Win32)
+ Anonymous (Win32)
Contributor:
Robert Rossmair (Unix)
--------------------------------------------------------------------------------
@@ -1992,7 +1992,7 @@
Description:
CompanyName returns the value of the company name string key.
Donator:
- Marcel van Brake
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.FileDescription
Summary:
@@ -2113,7 +2113,7 @@
Description:
FileVersion returns the value of the file version string key.
Donator:
- Marcel van Brake
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclFileVersionInfo.InternalName
Summary:
@@ -2525,7 +2525,8 @@
See also:
VersionResourceAvailable
TJclFileVersionInfo
-Donator: Marcel van Brakel
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@CreateSymbolicLink
<GROUP FilesandIO.FilesandDirectories>
Modified: trunk/help/Math.dtx
===================================================================
--- trunk/help/Math.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Math.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -1402,7 +1402,7 @@
SetPrecisionTolerance
SetPrecisionToleranceToEpsilon
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@CalcMachineEpsSingle
<GROUP MathRoutines.Floatsupport>
@@ -1419,7 +1419,7 @@
SetPrecisionTolerance
SetPrecisionToleranceToEpsilon
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@CalcMachineEpsDouble
<GROUP MathRoutines.Floatsupport>
@@ -1436,7 +1436,7 @@
SetPrecisionTolerance
SetPrecisionToleranceToEpsilon
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@CalcMachineEpsExtended
<GROUP MathRoutines.Floatsupport>
@@ -1453,7 +1453,7 @@
SetPrecisionTolerance
SetPrecisionToleranceToEpsilon
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@Exp
<GROUP MathRoutines.Exponential>
@@ -1464,7 +1464,7 @@
Parameters:
X - Value for which to calculate the exp.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@IsFloatZero
<GROUP MathRoutines.Floatsupport>
@@ -1480,7 +1480,7 @@
IsInfinite
IsSpecialValue
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@IsPrimeFactor
<GROUP MathRoutines.Miscellaneous>
@@ -1499,7 +1499,7 @@
IsPrimeTD
IsRelativePrime
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@IsPrimeRM
<GROUP MathRoutines.Miscellaneous>
@@ -1517,7 +1517,7 @@
SetPrimalityTest
IsPrime
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@IsPrimeTD
<GROUP MathRoutines.Miscellaneous>
@@ -1531,7 +1531,7 @@
Parameters:
N - The value to test.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@IsSpecialValue
<GROUP MathRoutines.Floatsupport>
@@ -1559,7 +1559,7 @@
See also:
TODO
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@SetPrecisionTolerance
<GROUP MathRoutines.Floatsupport>
@@ -1573,7 +1573,7 @@
See also:
SetPrecisionToleranceToEpsilon
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@SetPrecisionToleranceToEpsilon
<GROUP MathRoutines.Floatsupport>
@@ -1586,7 +1586,7 @@
Parameters:
TODO
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@SetPrimalityTest
<GROUP MathRoutines.Miscellaneous>
@@ -2094,4 +2094,4 @@
See also:
TJclRational.Add@Float
TJclRational.Add@Integer
- TJclRational.Add@TJclRational
\ No newline at end of file
+ TJclRational.Add@TJclRational
Modified: trunk/help/NTFS.dtx
===================================================================
--- trunk/help/NTFS.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/NTFS.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -787,7 +787,7 @@
Requirements:
Windows NT 3.51, 4.0, 2000 or XP
Donator:
- Unknown
+ Anonymous
Contributor:
Anonymous
--------------------------------------------------------------------------------
@@ -804,7 +804,7 @@
Requirements:
The specified file must reside on an NTFS formatted volume
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@NtfsFindHardLinks
Summary:
@@ -827,7 +827,7 @@
Requirements:
Path must point to a directory on an NTFS formatted volume.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@NtfsDeleteHardLinks
Description: Given the name of a file, this function deletes all hard links (including the specified one). This will result in
@@ -841,4 +841,4 @@
Note that in case of failure the function attempts to restore the hard links it had already deleted, but
it can't be guarenteed that this will succeed. So in case of failure, some hard links might already have been deleted
Donator:
- Unknown
\ No newline at end of file
+ Anonymous
Modified: trunk/help/RTTI.dtx
===================================================================
--- trunk/help/RTTI.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/RTTI.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -395,7 +395,7 @@
@@JclIsClass
<GROUP RuntimeTypeInformation.Classoperatorhooking>
Summary:
- Is class operator replacement
+ Is class operator replacement.
Description:
JclIsClass is an is class operator replacement. This implementation is
an exact copy of the one in the system.pas unit.
@@ -412,7 +412,7 @@
@@JclIsClassByName
<GROUP RuntimeTypeInformation.Classoperatorhooking>
Summary:
- Is class operator replacement
+ Is class operator replacement.
Description:
JclIsClassByName is an is class operator replacement. This implementation
checks the class by it's name.
@@ -431,7 +431,7 @@
@@JclTypeInfo
<GROUP RuntimeTypeInformation.RTTIretrieval>
Summary:
- Retrieve RTTI information
+ Retrieve RTTI information.
Description:
JclTypeInfo retrieves and interface to RTTI information given a pointer to the
type info structure. ATypeInfo can be obtained through a call to
@@ -445,7 +445,7 @@
@@IJclBaseInfo
<GROUP RuntimeTypeInformation.RTTIretrieval.IJclBaseInfo>
Summary:
- Basic type info interface
+ Basic type info interface.
Description:
IJclBaseInfo is the base interface of type information retrieval. It provides two
method for outputting the RTTI
@@ -788,9 +788,9 @@
--------------------------------------------------------------------------------
@@IJclSetTypeInfo.BaseType
Summary:
- An interface to the base type
+ An interface to the base type.
Description:
- BaseType is an interface to the base type for the set
+ BaseType is an interface to the base type for the set.
Background:
When the compiler finds a set declaration similar to TMySet = set of
Modified: trunk/help/Registry.dtx
===================================================================
--- trunk/help/Registry.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Registry.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -792,5 +792,5 @@
Notes:
Obsolete, use RegWriteInt64 instead (which creates REG_QWORD values).
Donator:
- Unknown
---------------------------------------------------------------------------------
\ No newline at end of file
+ Anonymous
+--------------------------------------------------------------------------------
Modified: trunk/help/Security.dtx
===================================================================
--- trunk/help/Security.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Security.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -246,7 +246,7 @@
Notes:
Under Windows 95/98/Millenium Edition, this function always returns an empty string.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@GetUserObjectName
<GROUP Windows.Security.Privileges>
@@ -261,7 +261,7 @@
Notes:
Under Windows 95/98/Millenium Edition, this function always returns an empty result.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@SetUserObjectFullAccess
<GROUP Windows.Security.Privileges>
@@ -278,4 +278,4 @@
Under Windows 95/98/Millenium Edition, this function does nothing; in addition,
it always returns True.
Donator:
- Unknown
\ No newline at end of file
+ Anonymous
Modified: trunk/help/Shell.dtx
===================================================================
--- trunk/help/Shell.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Shell.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -72,7 +72,7 @@
of the namespace (root of the lefthand treeview).
Parameters:
FolderID - Special folder ID to open. One of the CSIDL_XXX constants must be specified here (see ShlObj.pas for the full list).
- Parent - Handle of the window to serve as the parent of any dialogs displayed
+ Parent - Handle of the window to serve as the parent of any dialogs displayed.
Result:
If the function succeeds the result is True, otherwise it is False.
See also:
@@ -235,7 +235,7 @@
@@SHEnumFolderFirst
<GROUP Windows.Shell.FilesandFolders>
Summary:
- Begins the enumeration of the items in a folder
+ Begins the enumeration of the items in a folder.
Description:
SHEnumFolderFirst begins the enumeration of all items in the specified folder that
match the specified Flags. If the function succeeds then the return value is True
@@ -963,7 +963,7 @@
If the function succeeds the return value is the item identifier list of the
specified path, relative to the specified Folder. If the function fails the
return value is nil. Note that the caller is responsible for eventually releasing
- the memory associated with the returned pidl by calling PidlFree
+ the memory associated with the returned pidl by calling PidlFree.
See also:
PidlToPath
PathToPidlBind
@@ -1072,7 +1072,7 @@
return value is False.
Parameters:
Source - The item identifier to copy.
- Dest - The item identifier that receives a copy of Source. Note that you must eventually free this item identifier by calling PidlFree
+ Dest - The item identifier that receives a copy of Source. Note that you must eventually free this item identifier by calling PidlFree.
Result:
If the function succeeds then the return value is True, otherwise it is False.
Donator:
@@ -1089,7 +1089,7 @@
assumes that the memory associated with the item identifier was allocated by the
Shell's memory allocator and will fail if this is not the case.
Parameters:
- IdList - The item identifier list whose associated memory shall be freed
+ IdList - The item identifier list whose associated memory shall be freed.
Result:
If the function succeeds the return value is True and IdList is set to nil. If
the function fails the return value is False and the IdList parameter will retain
Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Streams.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -271,7 +271,7 @@
See also:
TJclEventStream
Donator:
- Florent Ocuhet
+ Florent Ouchet
--------------------------------------------------------------------------------
@@TJclDelegatedStream.FOnRead
Summary:
@@ -412,7 +412,7 @@
Parameters:
Sender - Object that triggers the event.
Offset - Number of bytes to seek from specified origin.
- Count - Origin (valid values are soBeginning, soCurrent or soEnd)
+ Count - Origin (valid values are soBeginning, soCurrent or soEnd).
Result:
Returns the new position from the beginning of the stream.
Donator:
@@ -480,11 +480,12 @@
@@TJclScopedStream.FStartPos
Description:
Private field to store the original position of ParentStream
- on creation of this object
+ on creation of this object.
+See also:
+ TJclScopedStream.StartPos
+ TJclScopedStream.ParentStream
Donator:
Florent Ouchet
-See also:
- TJclScopedStream.StartPos TJclScopedStream.ParentStream
--------------------------------------------------------------------------------
@@TJclScopedStream.MaxSize
Summary:
@@ -517,7 +518,7 @@
--------------------------------------------------------------------------------
@@TJclScopedStream.StartPos
Summary:
- Origin of the translation in position
+ Origin of the translation in position.
Description:
This property exposes the initial position of the data stream
when this virtual stream was created.
@@ -537,8 +538,8 @@
Parameters:
AParentStream - Data stream storing data that can be
read/written by this virtual stream.
- AMaxSize - Maximum size of this virtual stream (set 0
- not to limit).
+ AMaxSize - Maximum size of this virtual stream (set 0
+ not to limit).
Donator:
Florent Ouchet
--------------------------------------------------------------------------------
@@ -1139,7 +1140,7 @@
--------------------------------------------------------------------------------
@@TJclEventStream.FNotification
Description:
- Private field to store event handler
+ Private field to store event handler.
See also:
TJclEventStream.OnNotification
Donator:
@@ -1147,7 +1148,7 @@
--------------------------------------------------------------------------------
@@TJclEventStream.OnNotification
Summary:
- Notification event
+ Notification event.
Description:
The OnNotification event is fired on every operations on the
stream (read/write/seek).
@@ -1175,10 +1176,10 @@
Description:
Create a new instance of the TJclEventStream class.
Parameters:
- AStream - Stream where data are written/read
- ANotification - Notification handler
+ AStream - Stream where data are written/read.
+ ANotification - Notification handler.
AOwnsStream - if set, current stream is destroyed when this
- instance is destroyed
+ instance is destroyed.
See also:
TJclEventStream.OnNotification
Donator:
@@ -1304,11 +1305,11 @@
--------------------------------------------------------------------------------
@@TJclBufferedStream.BufferHit
Summary:
- Test if data at current position is in buffer
+ Test if data at current position is in buffer.
Description:
This internal helper tests if data at current position are stored in buffer.
Returns:
- True if data is in buffer
+ True if data is in buffer.
See also:
TJclBufferedStream.LoadBuffer
Donator:
@@ -1392,7 +1393,7 @@
This field stores the number of bytes valid in buffer. This number may be
different of BufferSize on the following situation: end of stream is reached
or data are being appended to the end of the stream. FbufferCurrentSize is
- always less or equal to Buffersize
+ always less or equal to Buffersize.
See also:
TJclBufferedStream.FBuffer
TJclBufferedStream.BufferSize
@@ -1440,10 +1441,10 @@
Flush modifications in buffer to data stream.
Description:
By calling this function, all modifications made to bytes in buffer (by calls
- to TJclBufferedStream.Write@@Longint) are written to data stream.
+ to TJclBufferedStream.Write) are written to data stream.
See also:
TJclBufferedStream.FBufferMaxModifiedPos
- TJclBufferedStream.Write@@Longint
+ TJclBufferedStream.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1454,9 +1455,9 @@
This field stores current position of this stream. Its value is updated on
every accesses (Read/Write/Seek).
See also:
- TJclBufferedStream.Read@@Longint
- TJclBufferedStream.Seek@Int64@TSeekOrigin
- TJclBufferedStream.Write@@Longint
+ TJclBufferedStream.Read
+ TJclBufferedStream.Seek
+ TJclBufferedStream.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1468,7 +1469,7 @@
and eventually data that will be appended to this stream on next time the
buffer is flushed.
See also:
- TJclBufferedStream.Seek@Int64@TSeekOrigin
+ TJclBufferedStream.Seek
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1520,13 +1521,13 @@
Effective number of bytes that were read.
See also:
TJclBufferedStream.WriteToBuffer
- TJclBufferedStream.Read@@Longint
+ TJclBufferedStream.Read
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclBufferedStream.Seek@Int64@TSeekOrigin
Summary:
- Overridden function of TStream.Seek
+ Overridden function of TStream.Seek.
Description:
This function seeks current position in stream. For a more complete
description, refer to TStream.Seek documentation.
@@ -1536,14 +1537,14 @@
Returns:
New position in stream from beginning.
See also:
- TJclBufferedStream.Read@@Longint
- TJclBufferedStream.Write@@Longint
+ TJclBufferedStream.Read
+ TJclBufferedStream.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclBufferedStream.Write@@Longint
Summary:
- Overriden function of TStream.Write
+ Overriden function of TStream.Write.
Description:
This funtion writes data to cache buffer. If it is too small, it is flushed
until all requested data are written. For a more complete description, refer
@@ -1554,8 +1555,8 @@
Returns:
Effective number of written bytes.
See also:
- TJclBufferedStream.Read@@Longint
- TJclBufferedStream.Seek@Int64@TSeekOrigin
+ TJclBufferedStream.Read
+ TJclBufferedStream.Seek
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1564,8 +1565,7 @@
Write data to cache buffer.
Description:
This function tries to write Count bytes to cache buffer. It is called in a
- loop by TJclBufferedStream.Write@@Longint to have the requested number of
- bytes.
+ loop by TJclBufferedStream.Write to have the requested number of bytes.
Parameters:
Buffer - Memory location that contains data to be written.
Count - Number of requested bytes.
@@ -1574,7 +1574,7 @@
Effective number of bytes that were written.
See also:
TJclBufferedStream.WriteToBuffer
- TJclBufferedStream.Read@@Longint
+ TJclBufferedStream.Read
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1603,8 +1603,8 @@
Returns:
New position in stream relative to beginning. -1 in case of error.
See also:
- TJclStreamDecorator.Read@@Longint
- TJclStreamDecorator.Write@@Longint
+ TJclStreamDecorator.Read
+ TJclStreamDecorator.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1623,9 +1623,9 @@
Parameters:
NewSize - requested new size in bytes.
See also:
- TJclStreamDecorator.Read@@Longint
- TJclStreamDecorator.Seek@Int64@Longint
- TJclStreamDecorator.Write@@Longint
+ TJclStreamDecorator.Read
+ TJclStreamDecorator.Seek
+ TJclStreamDecorator.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1665,8 +1665,8 @@
Description:
This constructor creates a new instance of the TJclStreamDecorator class.
Parameters:
- AStream - attached stream.
- AOwnsStream - attached stream will be freed when this instance is destroyed.
+ AStream - Attached stream.
+ AOwnsStream - Attached stream will be freed when this instance is destroyed.
See also:
TJclStreamDecorator.Destroy
TJclStreamDecorator.Stream
@@ -1680,7 +1680,7 @@
This overridden destructor destroys this instance and all its associated
resources.
See also:
- TJclStreamDecorator.Create@TStream@Boolean
+ TJclStreamDecorator.Create
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1773,8 +1773,8 @@
Returns:
Number of bytes that were effectively placed in the buffer.
See also:
- TJclStreamDecorator.Seek@Int64@TSeekOrigin
- TJclStreamDecorator.Write@@Longint
+ TJclStreamDecorator.Seek
+ TJclStreamDecorator.Write
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1783,9 +1783,9 @@
Setter of the Stream property.
Description:
This function executes required operations to change attached stream:
- - calling DoBeforeStreamChange internal notifier.
- - eventually free attached stream if OwnsStream is set.
- - calling DoAfterStreamchanged internal notifier.
+ - Calling DoBeforeStreamChange internal notifier.
+ - Eventually free attached stream if OwnsStream is set.
+ - Calling DoAfterStreamchanged internal notifier.
Parameters:
Value - new stream to attach.
See also:
@@ -1804,7 +1804,7 @@
this instance owns attached streams which will be freed when no more needed
(when changed or when this instance is destroyed).
See also:
- TJclStreamDecorator.SetStream@TStream
+ TJclStreamDecorator.SetStream
TJclStreamDecorator.OwnsStream
Donator:
Heinz Zastrau
@@ -1821,8 +1821,8 @@
Returns:
Number of bytes that were effectively written.
See also:
- TJclStreamDecorator.Read@@Longint
- TJclStreamDecorator.Seek@Int64@TSeekOrigin
+ TJclStreamDecorator.Read
+ TJclStreamDecorator.Seek
Donator:
Heinz Zastrau
--------------------------------------------------------------------------------
@@ -1952,7 +1952,7 @@
Returns:
Random data on 8 bits.
See also:
- TJclRandomStream.Read@@Longint
+ TJclRandomStream.Read
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -1979,7 +1979,7 @@
--------------------------------------------------------------------------------
@@TJclRandomStream.Read@@Longint
Summary:
- Overridden function of TStream.Read
+ Overridden function of TStream.Read.
Description:
This function fills specified buffer with the requested number of bytes of
random data. For a more complete description of this function, refer to
@@ -2002,7 +2002,7 @@
It sets the random seed value to a specified value.
This function is a wrapper around System.RandomSeed.
Parameters:
- Value - new value for the random seed.
+ Value - New value for the random seed.
See also:
TJclRandomStream.RandSeed
Donator:
@@ -2028,7 +2028,7 @@
This field contains current position of the stream. This value is updated
after every operations.
See also:
- TJclNullStream.Seek@Int64@TSeekOrigin
+ TJclNullStream.Seek
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2039,7 +2039,7 @@
This field contains current size of the stream. This value is updated after
every operations.
See also:
- TJclNullStream.Seek@Int64@TSeekOrigin
+ TJclNullStream.Seek
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2057,9 +2057,9 @@
Returns:
Number of bytes that were effectively read.
See also:
- TJclNullStream.Seek@Int64@TSeekOrigin
- TJclNullStream.SetSize@Int64
- TJclNullStream.Write@@Longint
+ TJclNullStream.Seek
+ TJclNullStream.SetSize
+ TJclNullStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2077,9 +2077,9 @@
New position in the stream relative to the beginning. This function returns
-1 in case of error.
See also:
- TJclNullStream.Read@@Longint
- TJclNullStream.SetSize@Int64
- TJclNullStream.Write@@Longint
+ TJclNullStream.Read
+ TJclNullStream.SetSize
+ TJclNullStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2090,11 +2090,11 @@
This procedure sets a new size for the stream. For a more complete
description of this procedure, refer to the documentation of TStream.SetSize.
Parameters:
- Value - new size in bytes.
+ Value - New size in bytes.
See also:
- TJclNullStream.Read@@Longint
- TJclNullStream.Seek@Int64@TSeekOrigin
- TJclNullStream.Write@@Longint
+ TJclNullStream.Read
+ TJclNullStream.Seek
+ TJclNullStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2112,9 +2112,9 @@
Returns:
Number of bytes that were effectively written.
See also:
- TJclNullStream.Read@@Longint
- TJclNullStream.Seek@Int64@TSeekOrigin
- TJclNullStream.SetSize@Int64
+ TJclNullStream.Read
+ TJclNullStream.Seek
+ TJclNullStream.SetSize
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2138,11 +2138,11 @@
description of this procedure, refer to the documentation of TStream.SetSize.
As implemented, this function does nothing to keep stream size to 0.
Parameters:
- Value - new size in bytes.
+ Value - New size in bytes.
See also:
- TJclEmptyStream.Read@@Longint
- TJclEmptyStream.Seek@Int64@TSeekOrigin
- TJclEmptyStream.Write@@Longint
+ TJclEmptyStream.Read
+ TJclEmptyStream.Seek
+ TJclEmptyStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2165,9 +2165,9 @@
Returns:
Number of bytes that were effectively read (in this case 0).
See also:
- TJclEmptyStream.Seek@Int64@TSeekOrigin
- TJclEmptyStream.SetSize@Int64
- TJclEmptyStream.Write@@Longint
+ TJclEmptyStream.Seek
+ TJclEmptyStream.SetSize
+ TJclEmptyStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2187,9 +2187,9 @@
New position in the stream relative to the beginning (always 0). This
function returns -1 in case of error.
See also:
- TJclEmptyStream.Read@@Longint
- TJclEmptyStream.SetSize@Int64
- TJclEmptyStream.Write@@Longint
+ TJclEmptyStream.Read
+ TJclEmptyStream.SetSize
+ TJclEmptyStream.Write
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2207,9 +2207,9 @@
Returns:
Number of bytes that were effectively written (0).
See also:
- TJclEmptyStream.Read@@Longint
- TJclEmptyStream.Seek@Int64@TSeekOrigin
- TJclEmptyStream.SetSize@Int64
+ TJclEmptyStream.Read
+ TJclEmptyStream.Seek
+ TJclEmptyStream.SetSize
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2248,7 +2248,7 @@
Description:
This destructor destroys current instance and all its associated resources.
See also:
- TJclFileStream.Create@string@Word@Cardinal
+ TJclFileStream.Create
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
@@ -2291,7 +2291,7 @@
Description:
Private field to store the value of the Handle property.
See also:
- TJclHandleStream.Hande
+ TJclHandleStream.Handle
Donator:
Robert Marquardt
--------------------------------------------------------------------------------
Modified: trunk/help/Strings.dtx
===================================================================
--- trunk/help/Strings.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/Strings.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -1191,7 +1191,7 @@
See also:
StrNIPos
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@StrNIPos
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -1213,7 +1213,7 @@
See also:
StrNPos
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@StrMatch
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -2252,7 +2252,7 @@
A string consisting of the specified string, repeated until
the length of the string is exactly L.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrCharPosLower@AnsiString@Integer
<GROUP StringManipulation.StringTransformationRoutines>
@@ -2322,7 +2322,7 @@
Result:
AnsiSameText returns 0 (CSTR_EQUAL) if the two strings match.
Donator:
- JCL Team
+ Team JCL
--------------------------------------------------------------------------------
@@StrAnsiToOem
<GROUP StringManipulation.StringTransformationRoutines>
@@ -2336,7 +2336,7 @@
Result:
The translated string.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrOemToAnsi
<GROUP StringManipulation.StringTransformationRoutines>
@@ -2350,7 +2350,7 @@
Result:
The translated string.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrCharsCount
<GROUP StringManipulation.StringTransformationRoutines>
@@ -2365,7 +2365,7 @@
Result:
The number of occurrences of Chars in S.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrKeepChars
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -2383,7 +2383,7 @@
Result:
A string containing only characters which are within Chars.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrReplace
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -2423,7 +2423,7 @@
Result:
The string with all replacements performed.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrReplaceChars
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -2439,7 +2439,7 @@
Result:
The string with all replacements performed.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrReplaceButChars
<GROUP StringManipulation.StringSearchandReplaceRoutines>
@@ -2455,7 +2455,7 @@
Result:
The string with all replacements performed.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@StrMatches
<GROUP StringManipulation.StringTestRoutines>
@@ -2512,7 +2512,7 @@
Result:
The number of occurrences of SubS in S.
Donator:
- Unknown
+ Anonymous
--------------------------------------------------------------------------------
@@AnsiNull
Modified: trunk/help/SvcCtrl.dtx
===================================================================
--- trunk/help/SvcCtrl.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/SvcCtrl.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -81,9 +81,9 @@
@@TJclSCManager
<GROUP Windows.ServiceControl>
Description:
- TODO
+ TODO
Donator:
- Flier Lu
+ Flier Lu
--------------------------------------------------------------------------------
@@GetServiceStatus@SC_HANDLE
<GROUP Windows.ServiceControl>
Modified: trunk/help/SysInfo.dtx
===================================================================
--- trunk/help/SysInfo.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/SysInfo.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -503,7 +503,7 @@
Donator:
Marcel van Brakel
@@TWindowsVersion.wvUnknown
- Unknown Windows version. This can happen when a new Windows version is released
+ Anonymous Windows version. This can happen when a new Windows version is released
after JCL or if you are running a Windows version with a different build number
then expected. For example a beta version.
@@TWindowsVersion.wvWin95
@@ -1129,7 +1129,8 @@
The Windows directory or an empty string on failure.
See also:
GetWindowsSystemFolder
-Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@GetWindowsSystemFolder
<GROUP SystemInformationRoutines.CommonFolders>
@@ -2706,7 +2707,7 @@
Donator:
Peter Friese
@@TAPMLineStatus.alsUnknown
- Unknown line status. This will be the result if the function could not determine the current line status.
+ Anonymous line status. This will be the result if the function could not determine the current line status.
@@TAPMLineStatus.alsOnline
The PC is connected to a power plug.
@@TAPMLineStatus.alsOffline
@@ -2725,7 +2726,7 @@
Donator:
Peter Friese
@@TAPMBatteryFlag.abfUnknown
- Unknown battery status. The system could not read the battery status.
+ Anonymous battery status. The system could not read the battery status.
@@TAPMBatteryFlag.abfHigh
The battery is charged.
@@TAPMBatteryFlag.abfLow
@@ -2770,7 +2771,7 @@
Returns the number of seconds of battery life reamining, or -1 if this time is unknown.
Description:
Returns the number of seconds of battery life reamining, or -1 if this time is
- unknown.
+ Anonymous.
Result:
The remaining battery life time in seconds.
Donator:
@@ -3047,7 +3048,7 @@
Surfaces the information provided by the OpenGL library (if any) relating to
the version and vendor of the OpenGL library in the parameters passed.
Donator:
- Anonymous
+ Anonymous
--------------------------------------------------------------------------------
@@IsUACEnabled
<GROUP SystemInformationRoutines.UserAccountControl>
Modified: trunk/help/hlpgrps.dtx
===================================================================
--- trunk/help/hlpgrps.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/hlpgrps.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -339,8 +339,8 @@
Contributors:
Marcel van Brakel
Stephane Fillon
- Eric S.Fisher
- Peter Friese,
+ Eric S. Fisher
+ Peter Friese
Anonymous
Andreas Hausladen
Manlio Laschena
Modified: trunk/help/pcre.dtx
===================================================================
--- trunk/help/pcre.dtx 2007-07-26 20:54:13 UTC (rev 2094)
+++ trunk/help/pcre.dtx 2007-07-28 07:43:19 UTC (rev 2095)
@@ -464,7 +464,7 @@
14 missing )
15 reference to non-existent subpattern
16 erroffset passed as NULL
-17 unknown option bit(s) set
+17 Anonymous option bit(s) set
18 missing ) after comment
19 parentheses nested too deeply
20 regular expression too large
@@ -477,7 +477,7 @@
27 conditional group contains more than two branches
28 assertion expected after (?(
29 (?R or (?digits must be followed by )
-30 unknown POSIX class name
+30 Anonymous POSIX class name
31 POSIX collating elements are not supported
32 this version of PCRE is not compiled with PCRE_UTF8 support
33 spare error
@@ -494,7 +494,7 @@
44 invalid UTF-8 string
45 support for \\P, \\p, and \\X has not been compiled
46 malformed \\P or \\p sequence
-47 unknown property name after \\P or \\p
+47 Anonymous property name after \\P or \\p
48 subpattern name is too long (maximum 32 characters)
49 too many named subpatterns (maximum 10,000)
50 repeated subpattern is too long
@@ -804,4 +804,4 @@
EPCREError
pcrepattern
pcre_compile
- pcre_exec
\ No newline at end of file
+ pcre_exec
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-07-26 20:54:15
|
Revision: 2094
http://jcl.svn.sourceforge.net/jcl/?rev=2094&view=rev
Author: outchy
Date: 2007-07-26 13:54:13 -0700 (Thu, 26 Jul 2007)
Log Message:
-----------
some fixes for C++ headers
Modified Paths:
--------------
trunk/jcl/source/prototypes/JclWin32.pas
trunk/jcl/source/prototypes/win32api/NtSecApi.int
trunk/jcl/source/prototypes/win32api/ObjBase.int
trunk/jcl/source/windows/JclWin32.pas
Modified: trunk/jcl/source/prototypes/JclWin32.pas
===================================================================
--- trunk/jcl/source/prototypes/JclWin32.pas 2007-07-24 11:54:49 UTC (rev 2093)
+++ trunk/jcl/source/prototypes/JclWin32.pas 2007-07-26 20:54:13 UTC (rev 2094)
@@ -82,29 +82,31 @@
{$HPPEMIT '#define LONG64 System::LONG64'}
{$HPPEMIT ''}
{$ENDIF COMPILER5}
-{$HPPEMIT '#include "WinDef.h"'}
-{$HPPEMIT '#include "WinNT.h"'}
-{$HPPEMIT '#include "WinBase.h"'}
-{$HPPEMIT '#include "BaseTsd.h"'}
-{$HPPEMIT '#include "ImageHlp.h"'}
-{$HPPEMIT '#include "lm.h"'}
-{$HPPEMIT '#include "Nb30.h"'}
-{$HPPEMIT '#include "RasDlg.h"'}
+{$HPPEMIT '#include <WinDef.h>'}
+{$HPPEMIT '#include <WinNT.h>'}
+{$HPPEMIT '#include <WinBase.h>'}
+{$HPPEMIT '#include <BaseTsd.h>'}
+{$HPPEMIT '#include <ImageHlp.h>'}
+{$HPPEMIT '#include <lm.h>'}
+{$HPPEMIT '#include <Nb30.h>'}
+{$HPPEMIT '#include <RasDlg.h>'}
{$IFDEF COMPILER6_UP}
-{$HPPEMIT '#include "Reason.h"'}
+{$HPPEMIT '#include <Reason.h>'}
{$ENDIF COMPILER6_UP}
-{$HPPEMIT '#include "ShlWApi.h"'}
-{$HPPEMIT '#include "WinError.h"'}
-{$HPPEMIT '#include "WinIoCtl.h"'}
-{$HPPEMIT '#include "WinUser.h"'}
-{$HPPEMIT '#include "Powrprof.h"}
+{$HPPEMIT '#include <ShlWApi.h>'}
+{$HPPEMIT '#include <WinError.h>'}
+{$HPPEMIT '#include <WinIoCtl.h>'}
+{$HPPEMIT '#include <WinUser.h>'}
+//{$HPPEMIT '#include <Powrprof.h>'}
{$HPPEMIT '#include <delayimp.h>'}
-{$HPPEMIT '#include "propidl.h"'}
-{$HPPEMIT '#include "msidefs.h"'}
-{$HPPEMIT '#include "shlguid.h"'}
-{$HPPEMIT '#include "imgguids.h"'}
-{$HPPEMIT '#include "objbase.h"'}
-{$HPPEMIT '#include "ntsecapi.h"'}
+{$HPPEMIT '#include <propidl.h>'}
+{$HPPEMIT '#include <msidefs.h>'}
+{$HPPEMIT '#include <shlguid.h>'}
+{$IFDEF COMPILER6_UP}
+{$HPPEMIT '#include <imgguids.h>'}
+{$ENDIF COMPILER6_UP}
+{$HPPEMIT '#include <objbase.h>'}
+{$HPPEMIT '#include <ntsecapi.h>'}
{$HPPEMIT ''}
{$IFDEF CLR}
Modified: trunk/jcl/source/prototypes/win32api/NtSecApi.int
===================================================================
--- trunk/jcl/source/prototypes/win32api/NtSecApi.int 2007-07-24 11:54:49 UTC (rev 2093)
+++ trunk/jcl/source/prototypes/win32api/NtSecApi.int 2007-07-26 20:54:13 UTC (rev 2094)
@@ -47,18 +47,31 @@
const
POLICY_VIEW_LOCAL_INFORMATION = $00000001;
+ {$EXTERNALSYM POLICY_VIEW_LOCAL_INFORMATION}
POLICY_VIEW_AUDIT_INFORMATION = $00000002;
+ {$EXTERNALSYM POLICY_VIEW_AUDIT_INFORMATION}
POLICY_GET_PRIVATE_INFORMATION = $00000004;
+ {$EXTERNALSYM POLICY_GET_PRIVATE_INFORMATION}
POLICY_TRUST_ADMIN = $00000008;
+ {$EXTERNALSYM POLICY_TRUST_ADMIN}
POLICY_CREATE_ACCOUNT = $00000010;
+ {$EXTERNALSYM POLICY_CREATE_ACCOUNT}
POLICY_CREATE_SECRET = $00000020;
+ {$EXTERNALSYM POLICY_CREATE_SECRET}
POLICY_CREATE_PRIVILEGE = $00000040;
+ {$EXTERNALSYM POLICY_CREATE_PRIVILEGE}
POLICY_SET_DEFAULT_QUOTA_LIMITS = $00000080;
+ {$EXTERNALSYM POLICY_SET_DEFAULT_QUOTA_LIMITS}
POLICY_SET_AUDIT_REQUIREMENTS = $00000100;
+ {$EXTERNALSYM POLICY_SET_AUDIT_REQUIREMENTS}
POLICY_AUDIT_LOG_ADMIN = $00000200;
+ {$EXTERNALSYM POLICY_AUDIT_LOG_ADMIN}
POLICY_SERVER_ADMIN = $00000400;
+ {$EXTERNALSYM POLICY_SERVER_ADMIN}
POLICY_LOOKUP_NAMES = $00000800;
+ {$EXTERNALSYM POLICY_LOOKUP_NAMES}
POLICY_NOTIFICATION = $00001000;
+ {$EXTERNALSYM POLICY_NOTIFICATION}
POLICY_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or
POLICY_VIEW_LOCAL_INFORMATION or
@@ -73,10 +86,12 @@
POLICY_AUDIT_LOG_ADMIN or
POLICY_SERVER_ADMIN or
POLICY_LOOKUP_NAMES);
+ {$EXTERNALSYM POLICY_ALL_ACCESS}
POLICY_READ = (STANDARD_RIGHTS_READ or
POLICY_VIEW_AUDIT_INFORMATION or
POLICY_GET_PRIVATE_INFORMATION);
+ {$EXTERNALSYM POLICY_READ}
POLICY_WRITE = (STANDARD_RIGHTS_WRITE or
POLICY_TRUST_ADMIN or
@@ -87,15 +102,18 @@
POLICY_SET_AUDIT_REQUIREMENTS or
POLICY_AUDIT_LOG_ADMIN or
POLICY_SERVER_ADMIN);
+ {$EXTERNALSYM POLICY_WRITE}
POLICY_EXECUTE = (STANDARD_RIGHTS_EXECUTE or
POLICY_VIEW_LOCAL_INFORMATION or
POLICY_LOOKUP_NAMES);
+ {$EXTERNALSYM POLICY_EXECUTE}
// NtSecApi.h line 914
type
_POLICY_INFORMATION_CLASS = (
- PolicyAuditLogInformation = 1,
+ picFill0,
+ PolicyAuditLogInformation,
PolicyAuditEventsInformation,
PolicyPrimaryDomainInformation,
PolicyPdAccountInformation,
@@ -108,10 +126,15 @@
PolicyAuditFullQueryInformation,
PolicyDnsDomainInformation,
PolicyDnsDomainInformationInt);
+ {$EXTERNALSYM _POLICY_INFORMATION_CLASS}
POLICY_INFORMATION_CLASS = _POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM POLICY_INFORMATION_CLASS}
PPOLICY_INFORMATION_CLASS = ^POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM PPOLICY_INFORMATION_CLASS}
TPolicyInformationClass = POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM TPolicyInformationClass}
PPolicyInformationClass = PPOLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM PPolicyInformationClass}
// NtSecApi.h line 1031
//
Modified: trunk/jcl/source/prototypes/win32api/ObjBase.int
===================================================================
--- trunk/jcl/source/prototypes/win32api/ObjBase.int 2007-07-24 11:54:49 UTC (rev 2093)
+++ trunk/jcl/source/prototypes/win32api/ObjBase.int 2007-07-26 20:54:13 UTC (rev 2094)
@@ -5,12 +5,18 @@
// objbase.h line 390
const
STGFMT_STORAGE = 0;
+ {$EXTERNALSYM STGFMT_STORAGE}
STGFMT_NATIVE = 1;
+ {$EXTERNALSYM STGFMT_NATIVE}
STGFMT_FILE = 3;
+ {$EXTERNALSYM STGFMT_FILE}
STGFMT_ANY = 4;
+ {$EXTERNALSYM STGFMT_ANY}
STGFMT_DOCFILE = 5;
+ {$EXTERNALSYM STGFMT_DOCFILE}
// This is a legacy define to allow old component to builds
STGFMT_DOCUMENT = 0;
+ {$EXTERNALSYM STGFMT_DOCUMENT}
// objbase.h line 913
Modified: trunk/jcl/source/windows/JclWin32.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32.pas 2007-07-24 11:54:49 UTC (rev 2093)
+++ trunk/jcl/source/windows/JclWin32.pas 2007-07-26 20:54:13 UTC (rev 2094)
@@ -77,29 +77,31 @@
{$HPPEMIT '#define LONG64 System::LONG64'}
{$HPPEMIT ''}
{$ENDIF COMPILER5}
-{$HPPEMIT '#include "WinDef.h"'}
-{$HPPEMIT '#include "WinNT.h"'}
-{$HPPEMIT '#include "WinBase.h"'}
-{$HPPEMIT '#include "BaseTsd.h"'}
-{$HPPEMIT '#include "ImageHlp.h"'}
-{$HPPEMIT '#include "lm.h"'}
-{$HPPEMIT '#include "Nb30.h"'}
-{$HPPEMIT '#include "RasDlg.h"'}
+{$HPPEMIT '#include <WinDef.h>'}
+{$HPPEMIT '#include <WinNT.h>'}
+{$HPPEMIT '#include <WinBase.h>'}
+{$HPPEMIT '#include <BaseTsd.h>'}
+{$HPPEMIT '#include <ImageHlp.h>'}
+{$HPPEMIT '#include <lm.h>'}
+{$HPPEMIT '#include <Nb30.h>'}
+{$HPPEMIT '#include <RasDlg.h>'}
{$IFDEF COMPILER6_UP}
-{$HPPEMIT '#include "Reason.h"'}
+{$HPPEMIT '#include <Reason.h>'}
{$ENDIF COMPILER6_UP}
-{$HPPEMIT '#include "ShlWApi.h"'}
-{$HPPEMIT '#include "WinError.h"'}
-{$HPPEMIT '#include "WinIoCtl.h"'}
-{$HPPEMIT '#include "WinUser.h"'}
-{$HPPEMIT '#include "Powrprof.h"}
+{$HPPEMIT '#include <ShlWApi.h>'}
+{$HPPEMIT '#include <WinError.h>'}
+{$HPPEMIT '#include <WinIoCtl.h>'}
+{$HPPEMIT '#include <WinUser.h>'}
+//{$HPPEMIT '#include <Powrprof.h>'}
{$HPPEMIT '#include <delayimp.h>'}
-{$HPPEMIT '#include "propidl.h"'}
-{$HPPEMIT '#include "msidefs.h"'}
-{$HPPEMIT '#include "shlguid.h"'}
-{$HPPEMIT '#include "imgguids.h"'}
-{$HPPEMIT '#include "objbase.h"'}
-{$HPPEMIT '#include "ntsecapi.h"'}
+{$HPPEMIT '#include <propidl.h>'}
+{$HPPEMIT '#include <msidefs.h>'}
+{$HPPEMIT '#include <shlguid.h>'}
+{$IFDEF COMPILER6_UP}
+{$HPPEMIT '#include <imgguids.h>'}
+{$ENDIF COMPILER6_UP}
+{$HPPEMIT '#include <objbase.h>'}
+{$HPPEMIT '#include <ntsecapi.h>'}
{$HPPEMIT ''}
{$IFDEF CLR}
@@ -7123,12 +7125,18 @@
// objbase.h line 390
const
STGFMT_STORAGE = 0;
+ {$EXTERNALSYM STGFMT_STORAGE}
STGFMT_NATIVE = 1;
+ {$EXTERNALSYM STGFMT_NATIVE}
STGFMT_FILE = 3;
+ {$EXTERNALSYM STGFMT_FILE}
STGFMT_ANY = 4;
+ {$EXTERNALSYM STGFMT_ANY}
STGFMT_DOCFILE = 5;
+ {$EXTERNALSYM STGFMT_DOCFILE}
// This is a legacy define to allow old component to builds
STGFMT_DOCUMENT = 0;
+ {$EXTERNALSYM STGFMT_DOCUMENT}
// objbase.h line 913
@@ -7207,18 +7215,31 @@
const
POLICY_VIEW_LOCAL_INFORMATION = $00000001;
+ {$EXTERNALSYM POLICY_VIEW_LOCAL_INFORMATION}
POLICY_VIEW_AUDIT_INFORMATION = $00000002;
+ {$EXTERNALSYM POLICY_VIEW_AUDIT_INFORMATION}
POLICY_GET_PRIVATE_INFORMATION = $00000004;
+ {$EXTERNALSYM POLICY_GET_PRIVATE_INFORMATION}
POLICY_TRUST_ADMIN = $00000008;
+ {$EXTERNALSYM POLICY_TRUST_ADMIN}
POLICY_CREATE_ACCOUNT = $00000010;
+ {$EXTERNALSYM POLICY_CREATE_ACCOUNT}
POLICY_CREATE_SECRET = $00000020;
+ {$EXTERNALSYM POLICY_CREATE_SECRET}
POLICY_CREATE_PRIVILEGE = $00000040;
+ {$EXTERNALSYM POLICY_CREATE_PRIVILEGE}
POLICY_SET_DEFAULT_QUOTA_LIMITS = $00000080;
+ {$EXTERNALSYM POLICY_SET_DEFAULT_QUOTA_LIMITS}
POLICY_SET_AUDIT_REQUIREMENTS = $00000100;
+ {$EXTERNALSYM POLICY_SET_AUDIT_REQUIREMENTS}
POLICY_AUDIT_LOG_ADMIN = $00000200;
+ {$EXTERNALSYM POLICY_AUDIT_LOG_ADMIN}
POLICY_SERVER_ADMIN = $00000400;
+ {$EXTERNALSYM POLICY_SERVER_ADMIN}
POLICY_LOOKUP_NAMES = $00000800;
+ {$EXTERNALSYM POLICY_LOOKUP_NAMES}
POLICY_NOTIFICATION = $00001000;
+ {$EXTERNALSYM POLICY_NOTIFICATION}
POLICY_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or
POLICY_VIEW_LOCAL_INFORMATION or
@@ -7233,10 +7254,12 @@
POLICY_AUDIT_LOG_ADMIN or
POLICY_SERVER_ADMIN or
POLICY_LOOKUP_NAMES);
+ {$EXTERNALSYM POLICY_ALL_ACCESS}
POLICY_READ = (STANDARD_RIGHTS_READ or
POLICY_VIEW_AUDIT_INFORMATION or
POLICY_GET_PRIVATE_INFORMATION);
+ {$EXTERNALSYM POLICY_READ}
POLICY_WRITE = (STANDARD_RIGHTS_WRITE or
POLICY_TRUST_ADMIN or
@@ -7247,10 +7270,12 @@
POLICY_SET_AUDIT_REQUIREMENTS or
POLICY_AUDIT_LOG_ADMIN or
POLICY_SERVER_ADMIN);
+ {$EXTERNALSYM POLICY_WRITE}
POLICY_EXECUTE = (STANDARD_RIGHTS_EXECUTE or
POLICY_VIEW_LOCAL_INFORMATION or
POLICY_LOOKUP_NAMES);
+ {$EXTERNALSYM POLICY_EXECUTE}
// NtSecApi.h line 914
type
@@ -7269,10 +7294,15 @@
PolicyAuditFullQueryInformation,
PolicyDnsDomainInformation,
PolicyDnsDomainInformationInt);
+ {$EXTERNALSYM _POLICY_INFORMATION_CLASS}
POLICY_INFORMATION_CLASS = _POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM POLICY_INFORMATION_CLASS}
PPOLICY_INFORMATION_CLASS = ^POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM PPOLICY_INFORMATION_CLASS}
TPolicyInformationClass = POLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM TPolicyInformationClass}
PPolicyInformationClass = PPOLICY_INFORMATION_CLASS;
+ {$EXTERNALSYM PPolicyInformationClass}
// NtSecApi.h line 1031
//
@@ -7410,7 +7440,7 @@
ModuleHandle := GetModuleHandle(PChar(ModuleName));
if ModuleHandle = 0 then
begin
- ModuleHandle := SafeLoadLibrary(ModuleName);
+ ModuleHandle := SafeLoadLibrary(PChar(ModuleName));
if ModuleHandle = 0 then
raise EJclError.CreateResFmt(@RsELibraryNotFound, [ModuleName]);
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-07-24 11:54:53
|
Revision: 2093
http://svn.sourceforge.net/jcl/?rev=2093&view=rev
Author: outchy
Date: 2007-07-24 04:54:49 -0700 (Tue, 24 Jul 2007)
Log Message:
-----------
Some documentation for streams (continued)
Modified Paths:
--------------
trunk/help/Streams.dtx
Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx 2007-07-23 18:42:54 UTC (rev 2092)
+++ trunk/help/Streams.dtx 2007-07-24 11:54:49 UTC (rev 2093)
@@ -1286,4 +1286,1068 @@
TJclEventStream.Seek
TJclEventStream.SetSize
Donator:
- Heinz Zastrau
\ No newline at end of file
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream
+Summary:
+ Stream class with buffered read/write accesses.
+Description:
+ The TJclBufferedStream class implements a buffered access to an existing data
+ stream. Multiples small read and write operations will be grouped into
+ predefined size accesses (see TJclBufferedStream.BufferSize). If medium access
+ of original data stream is slow (disk or network access), read and write
+ operations will be globally speeded up.
+See also:
+ TJclBufferedStream.BufferSize
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.BufferHit
+Summary:
+ Test if data at current position is in buffer
+Description:
+ This internal helper tests if data at current position are stored in buffer.
+Returns:
+ True if data is in buffer
+See also:
+ TJclBufferedStream.LoadBuffer
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.BufferSize
+Summary:
+ Size of internal buffer in bytes.
+Description:
+ This property exposes the size of cache buffer in memory in bytes. Changes
+ made to this property will be applied next time a buffer is loaded.
+See also:
+ TJclBufferedStream.FBuffer
+ TJclBufferedStream.FBufferMaxModifiedPos
+ TJclBufferedStream.FBufferCurrentSize
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Create@TStream@Boolean
+Summary:
+ Constructor of the TJclBufferedStream class.
+Description:
+ This constructor creates a new instance of the TJclBufferedStream class.
+ An instance is constructed based on a source stream that holds data.
+Parameters:
+ AStream - stream used to store data read and written to this instance.
+ AOwnsStream - Current data stream will be freed when this instance is
+ destroyed.
+See also:
+ TJclBufferedStream.Destroy
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Destroy
+Summary:
+ Destructor of the TJclBuffered class.
+Description:
+ Destroy curent instance and its associated resources.
+See also:
+ TJclBufferedStream.Create@Stream@Boolean
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.DoAfterStreamChange
+Summary:
+ Internal notification function.
+Description:
+ This function initializes stream position after source stream is changed and
+ invalidates current buffer.
+See also:
+ TJclBufferedStream.DoBeforeStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.DoBeforeStreamChange
+Summary:
+ Internal notification function.
+Description:
+ This function flushes data in buffer before soure stream is changed.
+See also:
+ TJclBufferedStream.DoAfterStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FBuffer
+Summary:
+ Buffer to cache data.
+Description:
+ Array of byte to store data to group multiple small read and write operations.
+See also:
+ TJclBufferedStream.BufferSize
+ TJclBufferedStream.FBufferMaxModifiedPos
+ TJclBufferedStream.FBufferCurrentSize
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FBufferCurrentSize
+Summary:
+ Number of bytes valid in buffer.
+Description:
+ This field stores the number of bytes valid in buffer. This number may be
+ different of BufferSize on the following situation: end of stream is reached
+ or data are being appended to the end of the stream. FbufferCurrentSize is
+ always less or equal to Buffersize
+See also:
+ TJclBufferedStream.FBuffer
+ TJclBufferedStream.BufferSize
+ TJclBufferedStream.FBufferMaxModifiedPos
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FBufferMaxModifiedPos
+Summary:
+ Stores the index of first non modified data in buffer.
+Description:
+ This field indicates the number of bytes that will be flushed in buffer.
+ If equal to 0, no data were changed.
+See also:
+ TJclBufferedStream.Flush
+ TJclBufferedStream.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FBufferSize
+Summary:
+ Stores maximum buffer size in bytes.
+Description:
+ This field stores the maximum size of the buffer in bytes. Changes made to
+ this field will be applied next time a buffer is loaded.
+See also:
+ TJclBufferedStream.BufferSize
+ TJclBufferedStream.LoadBuffer
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FBufferStart
+Summary:
+ Position of the buffer in source stream.
+Description:
+ This field stores the position of the first byte of buffer in data stream.
+See also:
+ TJclBufferedStream.FBuffer
+ TJclBufferedStream.LoadBuffer
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Flush
+Summary:
+ Flush modifications in buffer to data stream.
+Description:
+ By calling this function, all modifications made to bytes in buffer (by calls
+ to TJclBufferedStream.Write@@Longint) are written to data stream.
+See also:
+ TJclBufferedStream.FBufferMaxModifiedPos
+ TJclBufferedStream.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.FPosition
+Summary:
+ Position of this stream.
+Description:
+ This field stores current position of this stream. Its value is updated on
+ every accesses (Read/Write/Seek).
+See also:
+ TJclBufferedStream.Read@@Longint
+ TJclBufferedStream.Seek@Int64@TSeekOrigin
+ TJclBufferedStream.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.GetCalcedSize
+Summary:
+ Computes size of stream including appended bytes not flushed yet.
+Description:
+ This function computes the size of this stream considering data stream size
+ and eventually data that will be appended to this stream on next time the
+ buffer is flushed.
+See also:
+ TJclBufferedStream.Seek@Int64@TSeekOrigin
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.LoadBuffer
+Summary:
+ Loads a buffer of data from attached stream.
+Description:
+ This function loads a buffer of data at current position in attached stream.
+ It tries to read BufferSize bytes and accordingly sets FBufferCurrentSize.
+Returns:
+ This function returns true if any data were loaded (one byte or more).
+See also:
+ TJclBufferedStream.FBuffer
+ TJclBufferedStream.FBufferCurrentSize
+ TJclBufferedStream.BufferSize
+ TJclBufferedStream.Flush
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Read@@Longint
+Summary:
+ Overloaded version of TStream.Read.
+Description:
+ By calling this function, data are read from buffered stream. If not all data
+ are cached, a new buffer is cached and so on.
+Parameters:
+ Buffer - Memory location to store read data.
+ Count - Requested size in bytes.
+Returns:
+ Effective number of bytes that were read (less or equal to Count).
+See also:
+ TJclBufferedStream.FBuffer
+ TJclBufferedStream.LoadBuffer
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.ReadFromBuffer@@Longint@Longint
+Summary:
+ Read data from cache buffer.
+Description:
+ This function tries to read Count bytes from cache buffer. It is called in a
+ loop by TJclBufferedStream.Read@@Longint to have the requested number of
+ bytes.
+Parameters:
+ Buffer - Memory location to store loaded data.
+ Count - Number of requested bytes.
+ Start - Starting position in cache buffer.
+Returns:
+ Effective number of bytes that were read.
+See also:
+ TJclBufferedStream.WriteToBuffer
+ TJclBufferedStream.Read@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Seek@Int64@TSeekOrigin
+Summary:
+ Overridden function of TStream.Seek
+Description:
+ This function seeks current position in stream. For a more complete
+ description, refer to TStream.Seek documentation.
+Parameters
+ Offset - Number of byte to seek from origin.
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd).
+Returns:
+ New position in stream from beginning.
+See also:
+ TJclBufferedStream.Read@@Longint
+ TJclBufferedStream.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.Write@@Longint
+Summary:
+ Overriden function of TStream.Write
+Description:
+ This funtion writes data to cache buffer. If it is too small, it is flushed
+ until all requested data are written. For a more complete description, refer
+ to TStream.Write documentation.
+Parameters:
+ Buffer - Data to be written.
+ Count - Number of bytes to be written.
+Returns:
+ Effective number of written bytes.
+See also:
+ TJclBufferedStream.Read@@Longint
+ TJclBufferedStream.Seek@Int64@TSeekOrigin
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclBufferedStream.WriteToBuffer@@Longint@Longint
+Summary:
+ Write data to cache buffer.
+Description:
+ This function tries to write Count bytes to cache buffer. It is called in a
+ loop by TJclBufferedStream.Write@@Longint to have the requested number of
+ bytes.
+Parameters:
+ Buffer - Memory location that contains data to be written.
+ Count - Number of requested bytes.
+ Start - Starting position in cache buffer.
+Returns:
+ Effective number of bytes that were written.
+See also:
+ TJclBufferedStream.WriteToBuffer
+ TJclBufferedStream.Read@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator
+Summary:
+ Wrapper around TStream to expose a flexible TJclStream interface.
+Description:
+ The TJclStreamDecorator class inherits from TJclStream which make changes
+ between version 5 and 6 of Delphi transparent (changes from Longint to Int64).
+ The attached stream can be changed between 2 read/write/seek operations.
+See also:
+ TJclStreamDecorator.Stream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_Seek_TJclStreamDecorator
+Summary:
+ Overridden function of TStream.Seek.
+Description:
+ By calling this function, the position is translated given the Offset and
+ Origin parameters. For a more complete description, refers to TStream.Seek
+ documentation.
+Parameters:
+ Offset - Offset to seek from origin.
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd).
+Returns:
+ New position in stream relative to beginning. -1 in case of error.
+See also:
+ TJclStreamDecorator.Read@@Longint
+ TJclStreamDecorator.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Seek@Int64@TSeekOrigin
+<combinewith !!OVERLOADED_Seek_TJclStreamDecorator>
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Seek@Longint@Word
+<combinewith !!OVERLOADED_Seek_TJclStreamDecorator>
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_SetSize_TJclStreamDecorator
+Summary:
+ Overridden function of TStream.SetSize.
+Description:
+ Change the size of attached stream. For a more complete description, refer
+ to TStream.SetSize documentation.
+Parameters:
+ NewSize - requested new size in bytes.
+See also:
+ TJclStreamDecorator.Read@@Longint
+ TJclStreamDecorator.Seek@Int64@Longint
+ TJclStreamDecorator.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.SetSize@Int64
+<combinewith !!OVERLOADED_SetSize_TJclStreamDecorator>
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.SetSize@Longint
+<combinewith !!OVERLOADED_SetSize_TJclStreamDecorator>
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.AfterStreamChange
+Summary:
+ Event triggered after attached stream is changed.
+Description:
+ Event handler attached to this property will be called after every changes
+ of attached stream.
+See also:
+ TJclStreamDecorator.BeforeStreamChange
+ TJclStreamDecorator.DoAfterStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.BeforeStreamChange
+Summary:
+ Event triggered before attached stream is changed.
+Description:
+ Event handler attached to this property will be called before every changes
+ of attached stream.
+See also:
+ TJclStreamDecorator.AfterStreamChange
+ TJclStreamDecorator.DoBeforeStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Create@TStream@Boolean
+Summary:
+ Constructor of the TJclStreamDecorator class.
+Description:
+ This constructor creates a new instance of the TJclStreamDecorator class.
+Parameters:
+ AStream - attached stream.
+ AOwnsStream - attached stream will be freed when this instance is destroyed.
+See also:
+ TJclStreamDecorator.Destroy
+ TJclStreamDecorator.Stream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Destroy
+Summary:
+ Destroy an instance of TJclStreamDecorator.
+Description:
+ This overridden destructor destroys this instance and all its associated
+ resources.
+See also:
+ TJclStreamDecorator.Create@TStream@Boolean
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.DoAfterStreamChange
+Summary:
+ Internal notification triggered after attached stream is changed.
+Description:
+ This protected procedure is called just after attached stream is changed.
+ It may be overridden to customize its behaviour, as presently implemented,
+ it calls the AfterStreamChange event.
+See also:
+ TJclStreamDecorator.AfterStreamChange
+ TJclStreamDecorator.DoBeforeStreamchange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.DoBeforeStreamChange
+Summary:
+ Internal notification triggered before attached stream is changed.
+Description:
+ This protected procedure is called before attached stream is changed.
+ It may be overridden to customize its behaviour, as presently implemented,
+ it calls the BeforeStreamChange event.
+See also:
+ TJclStreamDecorator.BeforeStreamchange
+ TJclStreamDecorator.DoAfterStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.FAfterStreamChange
+Summary:
+ Private field storing handler of the AfterStreamChange event.
+Description:
+ This field stores a reference to the handler of the AfterStreamChange event.
+See also:
+ TJclStreamDecorator.AfterStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.FBeforeStreamChange
+Summary:
+ Private field storing handler of the BeforeStreamChange event.
+Description:
+ This field stores a reference to the handler of the BeforeStreamChange event.
+See also:
+ TJclStreamDecorator.BeforeStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.FOwnsStream
+Summary:
+ Private field storing value of the OwnsStream property.
+Description:
+ This field stores the value of the OwnsStream property.
+See also:
+ TJclStreamDecorator.OwnsStream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.FStream
+Summary:
+ Private field storing value of the Stream property.
+Description:
+ This field stores the value of the Stream property.
+See also:
+ TJclStreamDecorator.Stream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.OwnsStream
+Summary:
+ Indicates that this instance owns attached stream.
+Description:
+ If set, attached stream will be freed when a new stream is attached or when
+ this instance is destroyed.
+See also:
+ TJclStreamDecorator.Stream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Read@@Longint
+Summary:
+ Overridden function of TStream.Read.
+Description:
+ By calling this function, data are read from attached stream. For a more
+ complete declaration, refer to TStream.Read documentation.
+Parameters:
+ Buffer - Memory location to store data that were read.
+ Count - Number of requested bytes.
+Returns:
+ Number of bytes that were effectively placed in the buffer.
+See also:
+ TJclStreamDecorator.Seek@Int64@TSeekOrigin
+ TJclStreamDecorator.Write@@Longint
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.SetStream@TStream
+Summary:
+ Setter of the Stream property.
+Description:
+ This function executes required operations to change attached stream:
+ - calling DoBeforeStreamChange internal notifier.
+ - eventually free attached stream if OwnsStream is set.
+ - calling DoAfterStreamchanged internal notifier.
+Parameters:
+ Value - new stream to attach.
+See also:
+ TJclStreamDecorator.Stream
+ TJclStreamDecorator.DoBeforeStreamChange
+ TJclStreamDecorator.OwnsStream
+ TJclStreamDecorator.DoAfterStreamChange
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Stream
+Summary:
+ Property exposing attached stream.
+Description:
+ This property exposes attached stream. If the OwnsStream property is set,
+ this instance owns attached streams which will be freed when no more needed
+ (when changed or when this instance is destroyed).
+See also:
+ TJclStreamDecorator.SetStream@TStream
+ TJclStreamDecorator.OwnsStream
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclStreamDecorator.Write@@Longint
+Summary:
+ Overridden function of TStream.Write.
+Description:
+ By calling this function, data are written to attached stream. For a more
+ complete declaration, refer to TStream.Write documentation.
+Parameters:
+ Buffer - Memory location to get data to be written.
+ Count - Number of requested bytes.
+Returns:
+ Number of bytes that were effectively written.
+See also:
+ TJclStreamDecorator.Read@@Longint
+ TJclStreamDecorator.Seek@Int64@TSeekOrigin
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Add@TStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Clear
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Count
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Create
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Delete@Integer
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Destroy
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.FReadStreamIndex
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.FStreams
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.GetCount
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.GetReadStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.GetStream@Integer
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Read@@Longint
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.ReadStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.ReadStreamIndex
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Remove@TStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Seek@Int64@TSeekOrigin
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.SetReadStream@TStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.SetReadStreamIndex@Integer
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.SetSize@Int64
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.SetStream@Integer@TStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Streams
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclMultiplexStream.Write@@Longint
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclRandomStream
+Summary:
+ Stream that contains an unlimited amount of random data.
+Description:
+ This class implements a stream containing an ulimited amount of random data.
+ Data written to this stream will be discarded.
+See also:
+ TJclNullStream
+ TJclEmptyStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclRandomStream.GetRandSeed
+Summary:
+ Property getter for random seed value.
+Description:
+ This function returns current random seed value (System.RandomSeed).
+Returns:
+ Random seed value.
+See also:
+ TJclRandomStream.RandSeed
+ TJclRandomStream.Randomize
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclRandomStream.RandomData
+Summary:
+ Generate a byte containing a random value.
+Description:
+ This function is called in loop by TJclRandomSeed.Read@@Longint to fill
+ buffer with random data.
+Returns:
+ Random data on 8 bits.
+See also:
+ TJclRandomStream.Read@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclRandomStream.Randomize
+Summary:
+ Initialize the random seed.
+Description:
+ This function initializes the random seed value with a value computed from
+ computer time. It calls System.Randomize.
+See also:
+ TJclRandomStream.RandSeed
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclRandomStream.RandSeed
+Summary:
+ Property exposing current random seed value.
+Description:
+ The random seed value is used to generate randomized data.
+See also:
+ TJclRandomStream.RandomData
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclRandomStream.Read@@Longint
+Summary:
+ Overridden function of TStream.Read
+Description:
+ This function fills specified buffer with the requested number of bytes of
+ random data. For a more complete description of this function, refer to
+ TStream.Read documentation.
+Parameters:
+ Buffer - Memory location to be filled.
+ Count - Number of bytes to fill.
+Returns:
+ Effective number of bytes that were filled with random values.
+See also:
+ TJclRandomStream.RandomData
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclRandomStream.SetRandSeed@Longint
+Summary:
+ Set random seed to a new value.
+Description:
+ This function is the setter of the TJclRandomStream.SetRandSeed property.
+ It sets the random seed value to a specified value.
+ This function is a wrapper around System.RandomSeed.
+Parameters:
+ Value - new value for the random seed.
+See also:
+ TJclRandomStream.RandSeed
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream
+Summary:
+ Stream containing only zeros and discarding all writes.
+Description:
+ This stream class returns zeros on read operations and discards all changes
+ made in write operations. The quantity of data is unlimited but position and
+ size are updated after every operations.
+See also:
+ TJclEmptyStream
+ TJclRandomStream
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.FPosition
+Summary:
+ Private field storing stream position.
+Description:
+ This field contains current position of the stream. This value is updated
+ after every operations.
+See also:
+ TJclNullStream.Seek@Int64@TSeekOrigin
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.FSize
+Summary:
+ Private field storing stream size.
+Description:
+ This field contains current size of the stream. This value is updated after
+ every operations.
+See also:
+ TJclNullStream.Seek@Int64@TSeekOrigin
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.Read@@Longint
+Summary:
+ Overridden function of TStream.Read.
+Description:
+ This function reads the specified number of bytes from the stream. As
+ implemented in this class, all returned bytes are set to 0. For a more
+ complete description of this function, refer to the documentation of
+ TStream.Read.
+Parameters:
+ Buffer - Memory location to store data.
+ Count - Requested number of bytes.
+Returns:
+ Number of bytes that were effectively read.
+See also:
+ TJclNullStream.Seek@Int64@TSeekOrigin
+ TJclNullStream.SetSize@Int64
+ TJclNullStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.Seek@Int64@TSeekOrigin
+Summary:
+ Overridden function of TStream.Seek.
+Description:
+ This function seeks of the specified number of byte from specified origin.
+ For a more complete description of this function, refer to the documentation
+ of TStream.Seek.
+Parameters:
+ Offset - Specified number of bytes to seek from origin.
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd).
+Returns:
+ New position in the stream relative to the beginning. This function returns
+ -1 in case of error.
+See also:
+ TJclNullStream.Read@@Longint
+ TJclNullStream.SetSize@Int64
+ TJclNullStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.SetSize@Int64
+Summary:
+ Overridden procedure of TStream.SetSize.
+Description:
+ This procedure sets a new size for the stream. For a more complete
+ description of this procedure, refer to the documentation of TStream.SetSize.
+Parameters:
+ Value - new size in bytes.
+See also:
+ TJclNullStream.Read@@Longint
+ TJclNullStream.Seek@Int64@TSeekOrigin
+ TJclNullStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclNullStream.Write@@Longint
+Summary:
+ Overridden function of TStream.Write.
+Description:
+ This function writes the specified number of bytes to the stream. As
+ implemented in this class, this function does nothing. For a more complete
+ description of this function, refer to the documentation of TStream.Write.
+ This function returns the value of Count parameters but discards all changes.
+Parameters:
+ Buffer - Memory location to store data.
+ Count - Requested number of bytes.
+Returns:
+ Number of bytes that were effectively written.
+See also:
+ TJclNullStream.Read@@Longint
+ TJclNullStream.Seek@Int64@TSeekOrigin
+ TJclNullStream.SetSize@Int64
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclEmptyStream
+Summary:
+ Empty stream class.
+Description:
+ This stream class is designed to always stay empty. All operations such as
+ Read,Write,Seek and Setsize do nothing.
+See also:
+ TJclNullStream
+ TJclRandomStream
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_SetSize_TJclEmptyStream
+Summary:
+ Overridden procedure of TStream.SetSize.
+Description:
+ This procedure sets a new size for the stream. For a more complete
+ description of this procedure, refer to the documentation of TStream.SetSize.
+ As implemented, this function does nothing to keep stream size to 0.
+Parameters:
+ Value - new size in bytes.
+See also:
+ TJclEmptyStream.Read@@Longint
+ TJclEmptyStream.Seek@Int64@TSeekOrigin
+ TJclEmptyStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclEmptyStream.SetSize@Int64
+<combinewith !!OVERLOADED_SetSize_TJclEmptyStream>
+--------------------------------------------------------------------------------
+@@TJclEmptyStream.SetSize@Longint
+<combinewith !!OVERLOADED_SetSize_TJclEmptyStream>
+--------------------------------------------------------------------------------
+@@TJclEmptyStream.Read@@Longint
+Summary:
+ Overridden function of TStream.Read.
+Description:
+ This function reads the specified number of bytes from the stream. As
+ implemented in this class, it returns 0. For a more complete description of
+ this function, refer to the documentation of TStream.Read.
+Parameters:
+ Buffer - Memory location to store data.
+ Count - Requested number of bytes.
+Returns:
+ Number of bytes that were effectively read (in this case 0).
+See also:
+ TJclEmptyStream.Seek@Int64@TSeekOrigin
+ TJclEmptyStream.SetSize@Int64
+ TJclEmptyStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclEmptyStream.Seek@Int64@TSeekOrigin
+Summary:
+ Overridden function of TStream.Seek.
+Description:
+ This function seeks of the specified number of byte from specified origin.
+ As implemented, this function will keep current position tied to 0, if any
+ change is requested, it returns -1 flagging an error.
+ For a more complete description of this function, refer to the documentation
+ of TStream.Seek.
+Parameters:
+ Offset - Specified number of bytes to seek from origin.
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd).
+Returns:
+ New position in the stream relative to the beginning (always 0). This
+ function returns -1 in case of error.
+See also:
+ TJclEmptyStream.Read@@Longint
+ TJclEmptyStream.SetSize@Int64
+ TJclEmptyStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclEmptyStream.Write@@Longint
+Summary:
+ Overridden function of TStream.Write.
+Description:
+ This function writes the specified number of bytes to the stream. As
+ implemented in this class, this function returns 0: no bytes were written to
+ the stream. For a more complete description of this function, refer to the
+ documentation of TStream.Write.
+Parameters:
+ Buffer - Memory location to store data.
+ Count - Requested number of bytes.
+Returns:
+ Number of bytes that were effectively written (0).
+See also:
+ TJclEmptyStream.Read@@Longint
+ TJclEmptyStream.Seek@Int64@TSeekOrigin
+ TJclEmptyStream.SetSize@Int64
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclFileStream
+Summary:
+ Stream class storing data in a file.
+Description:
+ This stream class stores its data in file whose name is specified in this
+ class constructor. This class implements the same behaviour as TFileStream
+ but inherits from TJclStream.
+See also:
+ TJclHandleStream
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclFileStream.Create@string@Word@Cardinal
+Summary:
+ Constructor of the TJclFileStream class.
+Description:
+ This constructor creates a new instance of the TJclFileStream class.
+Parameters:
+ FileName - File used to get and store data.
+ Mode - File access mode (fmCreate or any combination of fmOpenRead,
+ fmOpenWrite, fmOpenReadWrite, fmShareCompat, fmShareExclusive,
+ fmShareDenyWrite, fmShareDenyRead, fmShareDenyNonefmCreate).
+ Rights - (Unix only, valid only if Mode is fmCreate) Bit set specifying
+ file access rights
+See also:
+ TJclFileStream.Destroy
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclFileStream.Destroy
+Summary:
+ Instance destructor.
+Description:
+ This destructor destroys current instance and all its associated resources.
+See also:
+ TJclFileStream.Create@string@Word@Cardinal
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream
+Summary:
+ Ancestor class for all streams based on an handle.
+Description:
+ This class implements all methods to use a valid handle as a storage area for
+ the data of this stream.
+See also:
+ TJclFileStream
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_SetSize_TJclHandleStream
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.SetSize@Int64
+<combinewith !!OVERLOADED_SetSize_TJclHandleStream>
+--------------------------------------------------------------------------------
+@@TJclHandleStream.SetSize@Longint
+<combinewith !!OVERLOADED_SetSize_TJclHandleStream>
+--------------------------------------------------------------------------------
+@@TJclHandleStream.Create@THandle
+Summary:
+ Constructor of the TJclHandleStream class.
+Description:
+ This constructor creates a new instance of the TJclHandleStream class and
+ attaches this instance to the specified handle.
+Parameters:
+ AHandle - Handle to store data. It may be a file handle, a socket or every
+ other data handle).
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.FHandle
+Summary:
+ Private field associated with the Handle property.
+Description:
+ Private field to store the value of the Handle property.
+See also:
+ TJclHandleStream.Hande
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.Handle
+Summary:
+ Property exposing attached handle.
+Description:
+ This property exposes the handle attached to that instance.
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.Read@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.Seek@Int64@TSeekOrigin
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclHandleStream.Write@@Longint
+Donator:
+ Robert Marquardt
+--------------------------------------------------------------------------------
+@@TJclStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_Seek_TJclStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclStream.Seek@Int64@TSeekOrigin
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclStream.Seek@Longint@Word
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_SetSize_TJclStream
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclStream.SetSize@Int64
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclStream.SetSize@Longint
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@EJclStreamError
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TSeekOrigin
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-07-23 18:42:57
|
Revision: 2092
http://svn.sourceforge.net/jcl/?rev=2092&view=rev
Author: outchy
Date: 2007-07-23 11:42:54 -0700 (Mon, 23 Jul 2007)
Log Message:
-----------
zlibh.pas was missing for Kylix
Modified Paths:
--------------
trunk/jcl/packages/k3/Jcl.bpk
trunk/jcl/packages/k3/Jcl.dpk
trunk/jcl/packages/xml/Jcl-R.xml
Modified: trunk/jcl/packages/k3/Jcl.bpk
===================================================================
--- trunk/jcl/packages/k3/Jcl.bpk 2007-07-22 09:13:00 UTC (rev 2091)
+++ trunk/jcl/packages/k3/Jcl.bpk 2007-07-23 18:42:54 UTC (rev 2092)
@@ -58,6 +58,7 @@
..\..\lib\k3\obj\JclVectors.obj
..\..\lib\k3\obj\JclWideStrings.obj
..\..\lib\k3\obj\pcre.obj
+ ..\..\lib\k3\obj\zlibh.obj
"/>
<RESFILES value="Jcl.res"/>
<DEFFILE value=""/>
@@ -157,6 +158,7 @@
<FILE FILENAME="../../source/common/JclVectors.pas" FORMNAME="" UNITNAME="JclVectors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="../../source/common/JclWideStrings.pas" FORMNAME="" UNITNAME="JclWideStrings" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="../../source/common/pcre.pas" FORMNAME="" UNITNAME="pcre" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
+ <FILE FILENAME="../../source/unix/zlibh.pas" FORMNAME="" UNITNAME="zlibh" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="rtl.bpi" FORMNAME="" UNITNAME="rtl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
Modified: trunk/jcl/packages/k3/Jcl.dpk
===================================================================
--- trunk/jcl/packages/k3/Jcl.dpk 2007-07-22 09:13:00 UTC (rev 2091)
+++ trunk/jcl/packages/k3/Jcl.dpk 2007-07-23 18:42:54 UTC (rev 2092)
@@ -4,7 +4,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (Jcl-R.xml)
- Last generated: 16-06-2007 19:35:02 UTC
+ Last generated: 23-07-2007 18:36:47 UTC
-----------------------------------------------------------------------------
}
@@ -93,7 +93,8 @@
JclValidation in '../../source/common/JclValidation.pas' ,
JclVectors in '../../source/common/JclVectors.pas' ,
JclWideStrings in '../../source/common/JclWideStrings.pas' ,
- pcre in '../../source/common/pcre.pas'
+ pcre in '../../source/common/pcre.pas' ,
+ zlibh in '../../source/unix/zlibh.pas'
;
end.
Modified: trunk/jcl/packages/xml/Jcl-R.xml
===================================================================
--- trunk/jcl/packages/xml/Jcl-R.xml 2007-07-22 09:13:00 UTC (rev 2091)
+++ trunk/jcl/packages/xml/Jcl-R.xml 2007-07-23 18:42:54 UTC (rev 2092)
@@ -111,5 +111,6 @@
<File Name="..\..\source\vcl\JclGraphUtils.pas" Targets="c5,d5" Formname="" Condition=""/>
<File Name="..\..\source\vcl\JclFont.pas" Targets="c5,d5" Formname="" Condition=""/>
<File Name="..\..\source\vcl\JclPrint.pas" Targets="c5,d5" Formname="" Condition=""/>
+ <File Name="..\..\source\unix\zlibh.pas" Targets="Kylix" Formname="" Condition=""/>
</Contains>
</Package>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <cyc...@us...> - 2007-07-22 09:13:10
|
Revision: 2091
http://svn.sourceforge.net/jcl/?rev=2091&view=rev
Author: cycocrew
Date: 2007-07-22 02:13:00 -0700 (Sun, 22 Jul 2007)
Log Message:
-----------
Updated Font.dtx and Streams.dtx help files.
Updated Guidelines.txt file (this file provides syntax guidelines to write help entries).
Modified Paths:
--------------
trunk/help/Font.dtx
trunk/help/Guidelines.txt
trunk/help/Streams.dtx
Modified: trunk/help/Font.dtx
===================================================================
--- trunk/help/Font.dtx 2007-07-21 20:59:54 UTC (rev 2090)
+++ trunk/help/Font.dtx 2007-07-22 09:13:00 UTC (rev 2091)
@@ -1,6 +1,42 @@
--------------------------------------------------------------------------------
@@SetObjectFontToSystemFont@TObject@TFontType
-\ \
+Summary:
+ This procedure sets the font of an object to the proper font based on the
+ object type and the Windows operation system version.
+Description:
+ Almost each Windows operating system version comes with a different font set
+ applicable to various UI objects. The SetObjectFontToSystemFont procedure
+ enables support of multiple Windows operating system versions while setting
+ font type to the correct "style".
+Parameters:
+ AObject - The object which font is to be changed.
+ FontType - The font type. It is set to ftAuto by default.
+See also:
+ TFontType
+Donator:
+ Jean-Fabien Connault
--------------------------------------------------------------------------------
@@TFontType
-\ \
+Summary:
+ Defines which font type will be applied to objects.
+Description:
+ Here are the possible values for TFontType:
+
+ * ftAuto - The font type (style) will be selected automatically based on
+ object type (TFont, TMemo, TRichEdit or others).
+ * ftCaption - The font type will be forced to "Caption" style. It usually applies
+ to anything different from TMemo and TRichEdit objects.
+ Here are the fonts used:
+ * Segoe UI 9 on Windows Vista/Server 2008
+ * Tahoma 8 on Windows 2000/XP
+ * MS Sans Serif 8 on other Windows versions
+ * ftContent - The font type will be forced to "Content" style. It usually applies
+ to TMemo and TRichEdit objects.
+ Here are the fonts used:
+ * Calibri UI 9 on Windows Vista/Server 2008
+ * Verdana 8 on Windows 2000/XP
+ * MS Sans Serif 8 on other Windows versions
+See also:
+ SetObjectFontToSystemFont
+Donator:
+ Jean-Fabien Connault
\ No newline at end of file
Modified: trunk/help/Guidelines.txt
===================================================================
--- trunk/help/Guidelines.txt 2007-07-21 20:59:54 UTC (rev 2090)
+++ trunk/help/Guidelines.txt 2007-07-22 09:13:00 UTC (rev 2091)
@@ -36,17 +36,20 @@
Contributor2
--------------------------------------------------------------------------------
-The section are listed in the specific order outlined in the sample.
+HINTS
+-----
-Sentences are always ended with a '.'.
-
-"Notes" is always spelled with an 's' at the end.
-
-If one donator only then spell "Donator" instead of "Donators".
-
-If one contributor only then spell "Contributor" instead of "Contributors".
-
-If a section is missing entries, use the TODO keyword.
-
-Exceptions, Example, Requirements and Visibility sections are rarely used.
-
+* The section are listed in the specific order outlined in the sample.
+* Sentences are always ended with a '.'.
+* "Notes" is always spelled with an 's' at the end.
+* If one donator only then spell "Donator" instead of "Donators".
+* If one contributor only then spell "Contributor" instead of "Contributors".
+* If a section is missing entries, use the TODO keyword.
+* "Platforms" section is rarely used.
+* "Exceptions", "Example", "Requirements" and "Visibility" sections are very rarely used.
+* "See Also:" -> "See also:" (lowercase 'a').
+* No '\' char when a new line starts.
+* In "See also" section, one reference per line.
+* Make sure that ':' is present after section name.
+* "Returns:" -> "Result:".
+* Make sure that "Parameters" and "Result" entries are ended with a '.' char.
Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx 2007-07-21 20:59:54 UTC (rev 2090)
+++ trunk/help/Streams.dtx 2007-07-22 09:13:00 UTC (rev 2091)
@@ -451,6 +451,8 @@
TJclScopedStream.MaxSize).
See also:
TJclScopedStream.MaxSize
+Donator:
+ Florent Ouchet
--------------------------------------------------------------------------------
@@TJclScopedStream.FCurrentPos
Description:
@@ -461,7 +463,7 @@
@@TJclScopedStream.FMaxSize
Description:
Private field to store maximum position available (if any).
-See Also:
+See also:
TJclScopedStream.MaxSize
Donator:
Florent Ouchet
@@ -470,18 +472,18 @@
Description:
Private field to store a reference to the stream containing
the data.
+See also:
+ TJclScopedStream.ParentStream
Donator:
Florent Ouchet
-See Also:
- TJclScopedStream.ParentStream
--------------------------------------------------------------------------------
@@TJclScopedStream.FStartPos
Description:
Private field to store the original position of ParentStream
- \on creation of this object
+ on creation of this object
Donator:
Florent Ouchet
-See Also:
+See also:
TJclScopedStream.StartPos TJclScopedStream.ParentStream
--------------------------------------------------------------------------------
@@TJclScopedStream.MaxSize
@@ -495,10 +497,11 @@
If not set (=0), every bytes following position StartPos will
be available in data stream.
+See also:
+ TJclScopedStream.ParentStream
+ TJclScopedStream.StartPos
Donator:
Florent Ouchet
-See Also:
- TJclScopedStream.ParentStream TJclScopedStream.StartPos
--------------------------------------------------------------------------------
@@TJclScopedStream.ParentStream
Summary:
@@ -506,10 +509,11 @@
Description:
This property exposes the stream providing and storing data
for this virtual stream.
+See also:
+ TJclScopedStream.StartPos
+ TJclScopedStream.MaxSize
Donator:
Florent Ouchet
-See Also:
- TJclScopedStream.StartPos TJclScopedStream.MaxSize
--------------------------------------------------------------------------------
@@TJclScopedStream.StartPos
Summary:
@@ -517,10 +521,11 @@
Description:
This property exposes the initial position of the data stream
when this virtual stream was created.
+See also:
+ TJclScopedStream.ParentStream
+ TJclScopedStream.MaxSize
Donator:
Florent Ouchet
-See Also:
- TJclScopedStream.ParentStream TJclScopedStream.MaxSize
--------------------------------------------------------------------------------
@@TJclScopedStream.Create@TStream@Int64
Summary:
@@ -538,33 +543,44 @@
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclScopedStream.Read@@Longint
+Summary:
+ TODO
Description:
Overridden method of TStream.Read, all calls to this methods
are redirected to the ParentStream.Read.
-See Also:
-TJclScopedStream.Seek TJclScopedStream.Write
+See also:
+ TJclScopedStream.Seek
+ TJclScopedStream.Write
Donator:
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclScopedStream.Seek@Int64@TSeekOrigin
+Summary:
+ TODO
Description:
Overridden method of TStream.Seek, all calls to this methods
are redirected to the ParentStream.Seek.
-See Also:
- TJclScopedStream.Read TJclScopedStream.Write
+See also:
+ TJclScopedStream.Read
+ TJclScopedStream.Write
Donator:
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclScopedStream.Write@@Longint
+Summary:
+ TODO
Description:
Overridden method of TStream.Write, all calls to this methods
are redirected to the ParentStream.Write.
-See Also:
- TJclScopedStream.Read TJclScopedStream.Seek
+See also:
+ TJclScopedStream.Read
+ TJclScopedStream.Seek
Donator:
Florent Ouchet
--------------------------------------------------------------------------------
@@TJclEasyStream
+Summary:
+ TODO
Description:
The TJclEasyStream class helps read and write operations of
common data types to stream.
@@ -572,407 +588,538 @@
Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclEasyStream.IsEqual@TStream
+Summary:
+ TODO
Description:
The IsEqual method compares data of this instance to data of
reference stream for difference. Result is set accordingly.
+Parameters:
+ Stream - Reference stream for comparisons.
+Result:
+ Returns true if streams are equal, false otherwise.
Donator:
Heinz Zastrau
-Parameters:
- Stream - Reference stream for comparisons
-Returns:
- \Returns true if streams are equal, false otherwise.
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadBoolean
Description:
The ReadBoolean method reads a boolean value from this stream (1 byte length).
+Result:
+ Boolean value.
+See also:
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteBoolean TJclEasyStream.ReadChar
- TJclEasyStream.ReadCString TJclEasyStream.ReadCurrency
- TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns
- Boolean value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadChar
Description:
The ReadChar method reads a character value from this stream (1 byte length).
+See also:
+ TJclEasyStream.WriteChar
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ Character value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteChar TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadCString TJclEasyStream.ReadCurrency
- TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- Character value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadCString
Description:
The ReadCString method reads a C-like string (null terminated) from this stream.
+See also:
+ TJclEasyStream.WriteCString
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ String value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteCString TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCurrency
- TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- String value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadCurrency
Description:
- The ReadCurrency method reads a currency value from this stream
- (8 bytes length).
+ The ReadCurrency method reads a currency value from this stream (8 bytes length).
+See also:
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ Currency value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteCurrency TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- Currency value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadDateTime
Description:
- The ReadDateTime method reads a TDateTime value from this stream
- (8 bytes length).
+ The ReadDateTime method reads a TDateTime value from this stream (8 bytes length).
+See also:
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ TDateTime value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteDateTime TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDouble
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- TDateTime value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadDouble
Description:
The ReadDouble method reads a double precision floating point
value from this stream (8 bytes length).
+See also:
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ Double precision floating point value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteDouble TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- Double precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadExtended
Description:
The ReadExtended method reads an extended precision floating
point value from this stream (10 bytes length).
+Result:
+ Extended precision floating point value.
+See also:
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteExtended TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadInt64
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- Extended precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadInt64
Description:
- The ReadInt64 method reads a 64-bit integer value from this stream
- (8 bytes length).
+ The ReadInt64 method reads a 64-bit integer value from this stream (8 bytes length).
+See also:
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ 64 bit integer value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteInt64 TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
- TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- 64 bit integer value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadInteger
Description:
- The ReadInteger method reads a 32 bit integer value from this stream
- (4 bytes length).
+ The ReadInteger method reads a 32 bit integer value from this stream (4 bytes length).
+See also:
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ 32 bit integer value.
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteInteger TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
- TJclEasyStream.ReadInt64 TJclEasyStream.ReadShortString
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- 32 bit integer value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadShortString
Description:
The ReadShortString method reads a short string value from this stream
(max 255 characters).
+See also:
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.ReadSizedString
+Result:
+ Short string value
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteShortString TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
- TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
- TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
-Returns:
- \Short string value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadSingle
Description:
The ReadSingle method reads a single precision floating point
value from this stream (4 bytes length).
+Result:
+ Single precision floating point value.
+See also:
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSizedString
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteSingle TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
- TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
- TJclEasyStream.ReadShortString TJclEasyStream.ReadSizedString
-Returns:
- Single precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.ReadSizedString
Description:
The ReadSizedString method reads a prefixed length string
value from this stream (max 2G characters).
+Result:
+ String value.
+See also:
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.WriteSizedString TJclEasyStream.ReadBoolean
- TJclEasyStream.ReadChar TJclEasyStream.ReadCString
- TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
- TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
- TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
- TJclEasyStream.ReadShortString TJclEasyStream.ReadSingle
-Returns:
- String value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteBoolean@Boolean
Description:
The WriteBoolean method writes a boolean value to this stream
(1 byte length).
+Parameters:
+ Value - Boolean value.
+See also:
+ TJclEasyStream.ReadBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadBoolean TJclEasyStream.WriteChar
- TJclEasyStream.WriteCurrency TJclEasyStream.WriteDateTime
- TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Boolean value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteChar@Char
Description:
The WriteChar method writes a character value to this stream
(1 byte length).
+Parameters:
+ Value - Character value.
+See also:
+ TJclEasyStream.ReadChar
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadChar TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteCurrency TJclEasyStream.WriteDateTime
- TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Character value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteCurrency@Currency
Description:
The WriteCurrency method writes a currency value to this
stream (8 bytes length).
+Parameters:
+ Value - Currency value.
+See also:
+ TJclEasyStream.ReadCurrency
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadCurrency TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteDateTime
- TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Currency value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteDateTime@TDateTime
Description:
The WriteDateTime method writes a TDateTime value to this
stream (8 bytes length).
+Parameters:
+ Value - TDateTime value.
+See also:
+ TJclEasyStream.ReadDateTime
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadDateTime TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - TDateTime value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteDouble@Double
Description:
The WriteDouble method writes a double precision floating
point value to this stream (8 bytes length).
+Parameters:
+ Value - Double precision floating point value.
+See also:
+ TJclEasyStream.ReadDouble
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadDouble TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteExtended
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Double precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteExtended@Extended
Description:
The WriteExtended method writes an extended precision
floating point value to this stream (10 bytes length).
+Parameters:
+ Value - Extended precision floating point value.
+See also:
+ TJclEasyStream.ReadExtended
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadExtended TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Extended precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteInt64@Int64
Description:
The WriteInt64 method writes a 64 bit integer value to this
stream (8 bytes length).
+Parameters:
+ Value - 64 bit integer value.
+See also:
+ TJclEasyStream.ReadInt64
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadInt64 TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInteger
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - 64 bit integer value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteInteger@Integer
Description:
The WriteInteger method writes a 32 bit integer value to this
stream (4 bytes length).
+Parameters:
+ Value - 32 bit integer value.
+See also:
+ TJclEasyStream.ReadInteger
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadInteger TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
- TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - 32 bit integer value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteShortString@ShortString
Description:
The WriteShortString method writes a short string value to
this stream (max 255 characters).
+Parameters:
+ Value - Short string value.
+See also:
+ TJclEasyStream.ReadShortString
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadShortString TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
- TJclEasyStream.WriteInteger TJclEasyStream.WriteSingle
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Short string value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteSingle@Single
Description:
The WriteSingle method writes a single precision floating
point value to this stream (4 bytes length).
+Parameters:
+ Value - Single precision floating point value.
+See also:
+ TJclEasyStream.ReadSingle
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadSingle TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
- TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
- TJclEasyStream.WriteSizedString
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters:
- Value - Single precision floating point value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteSizedString@string
Description:
The WriteSizedString method writes a prefixed length string
value to this stream (max 2G characters).
+Parameters
+ Value - String value.
+See also:
+ TJclEasyStream.ReadSizedString
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteStringDelimitedByNull
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadSizedString TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
- TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
- TJclEasyStream.WriteSingle
- TJclEasyStream.WriteStringDelimitedByNull
-Parameters
- Value - String value
--------------------------------------------------------------------------------
@@TJclEasyStream.WriteStringDelimitedByNull@string
Description:
The WriteStringDelimitedByNull method writes a C-like string
value to this stream (max 2G characters).
+Parameters:
+ Value - String value.
+See also:
+ TJclEasyStream.ReadCString
+ TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
Donator:
Heinz Zastrau
-See Also:
- TJclEasyStream.ReadCString TJclEasyStream.WriteBoolean
- TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
- TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
- TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
- TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
- TJclEasyStream.WriteSingle TJclEasyStream.WriteSizedString
-Parameters:
- Value - String value
--------------------------------------------------------------------------------
@@TJclEventStream
Summary:
@@ -985,15 +1132,15 @@
All operations use data from stream passed as a parameter to
the constructor.
+See also:
+ TJclDelegatedStream
Donator:
Heinz Zastrau
-See Also:
- TJclDelegatedStream
--------------------------------------------------------------------------------
@@TJclEventStream.FNotification
Description:
Private field to store event handler
-See Also:
+See also:
TJclEventStream.OnNotification
Donator:
Heinz Zastrau
@@ -1004,17 +1151,23 @@
Description:
The OnNotification event is fired on every operations on the
stream (read/write/seek).
+See also:
+ TJclEventStream.Read
+ TJclEventStream.Seek
+ TJclEventStream.SetSize
+ TJclEventStream.Write
Donator:
Heinz Zastrau
-See Also:
- TJclEventStream.Read TJclEventStream.Seek
- TJclEventStream.SetSize TJclEventStream.Write
--------------------------------------------------------------------------------
@@TStreamNotifyEvent
+Summary:
+ TODO
Parameters:
- Sender - The instance that fired the event
- Position - Position of the stream after latest operation
- Size - Size of the stream after latest operation
+ Sender - The instance that fired the event.
+ Position - Position of the stream after latest operation.
+ Size - Size of the stream after latest operation.
+Donator:
+ Heinz Zastrau
--------------------------------------------------------------------------------
@@TJclEventStream.Create@TStream@TStreamNotifyEvent@Boolean
Summary:
@@ -1022,111 +1175,115 @@
Description:
Create a new instance of the TJclEventStream class.
Parameters:
- AStream - Stream where data are written/read
+ AStream - Stream where data are written/read
ANotification - Notification handler
- AOwnsStream - if set, current stream is destroyed when this
- instance is destroyed
+ AOwnsStream - if set, current stream is destroyed when this
+ instance is destroyed
+See also:
+ TJclEventStream.OnNotification
Donator:
Heinz Zastrau
-See Also:
- TJclEventStream.OnNotification
--------------------------------------------------------------------------------
@@TJclEventStream.DoAfterStreamChange
Description:
Overridden method to notify that data stream is changed. This
method sends new position and size.
+See also:
+ TJclEventStream.DoBeforeStreamChange
Donator:
Heinz Zastrau
-See Also:
- TJclEventStream.DoBeforeStreamChange
--------------------------------------------------------------------------------
@@TJclEventStream.DoBeforeStreamChange
Description:
Overridden method to notify that data stream is about to
change. This method sends old position and size.
+See also:
+ TJclEventStream.DoAfterStreamChange
Donator:
Heinz Zastrau
-See Also:
- TJclEventStream.DoAfterStreamChange
--------------------------------------------------------------------------------
@@TJclEventStream.DoNotification
Description:
Internal help to trigger the OnNotification event.
+See also:
+ TJclEventStream.OnNotification
Donator:
Heinz Zastrau
-See Also:
- TJclEventStream.OnNotification
--------------------------------------------------------------------------------
@@TJclEventStream.Read@@Longint
Description:
Overridden method of TStream.Read, all calls to this methods
are redirected to data stream and notified to event handler.
-See Also:
- TJclEventStream.OnNotification TJclEventStream.Seek
- TJclEventStream.SetSize TJclEventStream.Write
+Parameters:
+ Buffer - Reference to a buffer to store data.
+ Count - Number of bytes to be read.
+Result:
+ Effective number of bytes that were read.
+See also:
+ TJclEventStream.OnNotification
+ TJclEventStream.Seek
+ TJclEventStream.SetSize
+ TJclEventStream.Write
Donator:
Heinz Zastrau
-Parameters:
- Buffer - Reference to a buffer to store data
- Count - Number of bytes to be read
-Returns:
- Effective number of bytes that were read.
--------------------------------------------------------------------------------
@@!!OVERLOADED_Seek_TJclEventStream
Description:
Overridden method of TStream.Seek, all calls to this methods
are redirected to data stream and notified to event handler.
-See Also:
- TJclEventStream.OnNotification TJclEventStream.Read
- TJclEventStream.SetSize TJclEventStream.Write
+Parameters:
+ Offset - Number of bytes to seek from the origin.
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd).
+Result:
+ New position in stream.
+See also:
+ TJclEventStream.OnNotification
+ TJclEventStream.Read
+ TJclEventStream.SetSize
+ TJclEventStream.Write
Donator:
Heinz Zastrau
-Parameters:
- Offset - Number of bytes to seek from the origin
- Origin - Origin to seek from (soBeginning, soCurrent, soEnd)
-Returns:
- New position in stream.
--------------------------------------------------------------------------------
@@TJclEventStream.Seek@Int64@TSeekOrigin
<combinewith !!OVERLOADED_Seek_TJclEventStream>
-
--------------------------------------------------------------------------------
@@TJclEventStream.Seek@Longint@Word
<combinewith !!OVERLOADED_Seek_TJclEventStream>
-
--------------------------------------------------------------------------------
@@!!OVERLOADED_SetSize_TJclEventStream
Description:
Overridden method of TStream.SetSize, all calls to this
methods are redirected to data stream and notified to event
handler.
-See Also:
- TJclEventStream.OnNotification TJclEventStream.Read
- TJclEventStream.Seek TJclEventStream.Write
+Parameters:
+ NewSize - Requested new size of the stream.
+See also:
+ TJclEventStream.OnNotification
+ TJclEventStream.Read
+ TJclEventStream.Seek
+ TJclEventStream.Write
Donator:
Heinz Zastrau
-Parameters:
- NewSize - Requested new size of the stream
--------------------------------------------------------------------------------
@@TJclEventStream.SetSize@Int64
<combinewith !!OVERLOADED_SetSize_TJclEventStream>
-
--------------------------------------------------------------------------------
@@TJclEventStream.SetSize@Longint
<combinewith !!OVERLOADED_SetSize_TJclEventStream>
-
--------------------------------------------------------------------------------
@@TJclEventStream.Write@@Longint
Description:
Overridden method of TStream.Write, all calls to this methods
are redirected to data stream and notified to event handler.
-See Also:
- TJclEventStream.OnNotification TJclEventStream.Read
- TJclEventStream.Seek TJclEventStream.SetSize
-Donator:
- Heinz Zastrau
Parameters:
- Buffer - Reference to a buffer to retrieve data
- Count - Number of bytes to be written
-Returns:
+ Buffer - Reference to a buffer to retrieve data.
+ Count - Number of bytes to be written.
+Result:
Effective number of bytes that were written.
+See also:
+ TJclEventStream.OnNotification
+ TJclEventStream.Read
+ TJclEventStream.Seek
+ TJclEventStream.SetSize
+Donator:
+ Heinz Zastrau
\ No newline at end of file
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2007-07-21 20:59:57
|
Revision: 2090
http://svn.sourceforge.net/jcl/?rev=2090&view=rev
Author: outchy
Date: 2007-07-21 13:59:54 -0700 (Sat, 21 Jul 2007)
Log Message:
-----------
Skeleton of help file for JclFont.pas
Help project file update
Modified Paths:
--------------
trunk/help/JCLHelp.dox
Added Paths:
-----------
trunk/help/Font.dtx
Added: trunk/help/Font.dtx
===================================================================
--- trunk/help/Font.dtx (rev 0)
+++ trunk/help/Font.dtx 2007-07-21 20:59:54 UTC (rev 2090)
@@ -0,0 +1,6 @@
+--------------------------------------------------------------------------------
+@@SetObjectFontToSystemFont@TObject@TFontType
+\ \
+--------------------------------------------------------------------------------
+@@TFontType
+\ \
Property changes on: trunk/help/Font.dtx
___________________________________________________________________
Name: svn:keywords
+ Author Date Id Revision
Name: svn:eol-style
+ native
Modified: trunk/help/JCLHelp.dox
===================================================================
--- trunk/help/JCLHelp.dox 2007-07-21 20:40:41 UTC (rev 2089)
+++ trunk/help/JCLHelp.dox 2007-07-21 20:59:54 UTC (rev 2090)
@@ -11224,7 +11224,7 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 1\Disabled Topics]
-Count=389
+Count=393
ID0=_DLLVERSIONINFO.dwPlatformId
ID1=_FILE_ZERO_DATA_INFORMATION
ID10=_IMAGE_RESOURCE_DIRECTORY
@@ -11512,42 +11512,46 @@
ID354=TJclDesktopCanvas.Create
ID355=TJclDesktopCanvas.Destroy
ID356=TJclIsFunc
-ID357=TLanaEnum
-ID358=TLoadedImage
-ID359=TModuleEntry32
+ID357=TJclRebaseImageInfo.NewImageBase
+ID358=TJclRebaseImageInfo.NewImageSize
+ID359=TJclRebaseImageInfo.OldImageBase
ID36=AMD_BIT_6
-ID360=TModuleInfo
-ID361=TNameBuffer
-ID362=TNCB
-ID363=TNCBPostProc
-ID364=TObjectList.Clear
-ID365=TObjectList.Create
-ID366=TObjectList.OwnsObjects
-ID367=TOSVersionInfoEx
-ID368=TReparseDataBuffer
-ID369=TReparsePointInformation
+ID360=TJclRebaseImageInfo.OldImageSize
+ID361=TLanaEnum
+ID362=TLoadedImage
+ID363=TModuleEntry32
+ID364=TModuleInfo
+ID365=TNameBuffer
+ID366=TNCB
+ID367=TNCBPostProc
+ID368=TObjectList.Clear
+ID369=TObjectList.Create
ID37=AMD_CMOV_FLAG
-ID370=TWideStrings.Destroy
-ID371=VER_NT_DOMAIN_CONTROLLER
-ID372=VER_NT_SERVER
-ID373=VER_NT_WORKSTATION
-ID374=VER_SUITE_BACKOFFICE
-ID375=VER_SUITE_COMMUNICATIONS
-ID376=VER_SUITE_DATACENTER
-ID377=VER_SUITE_EMBEDDEDNT
-ID378=VER_SUITE_ENTERPRISE
-ID379=VER_SUITE_PERSONAL
+ID370=TObjectList.OwnsObjects
+ID371=TOSVersionInfoEx
+ID372=TReparseDataBuffer
+ID373=TReparsePointInformation
+ID374=TWideStrings.Destroy
+ID375=VER_NT_DOMAIN_CONTROLLER
+ID376=VER_NT_SERVER
+ID377=VER_NT_WORKSTATION
+ID378=VER_SUITE_BACKOFFICE
+ID379=VER_SUITE_COMMUNICATIONS
ID38=AMD_CX8_FLAG
-ID380=VER_SUITE_SERVERAPPLIANCE
-ID381=VER_SUITE_SINGLEUSERTS
-ID382=VER_SUITE_SMALLBUSINESS
-ID383=VER_SUITE_SMALLBUSINESS_RESTRICTED
-ID384=VER_SUITE_TERMINAL
-ID385=Win32BackupFile
-ID386=Win32DeleteFile
-ID387=Win32MoveFileReplaceExisting
-ID388=Win32RestoreFile
+ID380=VER_SUITE_DATACENTER
+ID381=VER_SUITE_EMBEDDEDNT
+ID382=VER_SUITE_ENTERPRISE
+ID383=VER_SUITE_PERSONAL
+ID384=VER_SUITE_SERVERAPPLIANCE
+ID385=VER_SUITE_SINGLEUSERTS
+ID386=VER_SUITE_SMALLBUSINESS
+ID387=VER_SUITE_SMALLBUSINESS_RESTRICTED
+ID388=VER_SUITE_TERMINAL
+ID389=Win32BackupFile
ID39=AMD_DE_FLAG
+ID390=Win32DeleteFile
+ID391=Win32MoveFileReplaceExisting
+ID392=Win32RestoreFile
ID4=_IMAGE_BOUND_IMPORT_DESCRIPTOR
ID40=AMD_FPU_FLAG
ID41=AMD_MCE_FLAG
@@ -11616,7 +11620,7 @@
ID99=DOMAIN_ALIAS_RID_SYSTEM_OPS
[Configurations\Configuration 1\Enabled Topics]
-Count=16
+Count=17
ID0=BOM_LSB_FIRST
ID1=Jcl8087.pas
ID10=StrToFloatSafe@AnsiString
@@ -11625,6 +11629,7 @@
ID13=TJclThreadPersistent.Create
ID14=TJclThreadPersistent.Destroy
ID15=TJclThreadPersistent.UpdateCount
+ID16=TStreamNotifyEvent
ID2=JclAppInst.pas
ID3=JclFileUtils.pas
ID4=JclQGraphics.pas
@@ -23342,7 +23347,7 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 2\Disabled Topics]
-Count=389
+Count=393
ID0=_DLLVERSIONINFO.dwPlatformId
ID1=_FILE_ZERO_DATA_INFORMATION
ID10=_IMAGE_RESOURCE_DIRECTORY
@@ -23630,42 +23635,46 @@
ID354=TJclDesktopCanvas.Create
ID355=TJclDesktopCanvas.Destroy
ID356=TJclIsFunc
-ID357=TLanaEnum
-ID358=TLoadedImage
-ID359=TModuleEntry32
+ID357=TJclRebaseImageInfo.NewImageBase
+ID358=TJclRebaseImageInfo.NewImageSize
+ID359=TJclRebaseImageInfo.OldImageBase
ID36=AMD_BIT_6
-ID360=TModuleInfo
-ID361=TNameBuffer
-ID362=TNCB
-ID363=TNCBPostProc
-ID364=TObjectList.Clear
-ID365=TObjectList.Create
-ID366=TObjectList.OwnsObjects
-ID367=TOSVersionInfoEx
-ID368=TReparseDataBuffer
-ID369=TReparsePointInformation
+ID360=TJclRebaseImageInfo.OldImageSize
+ID361=TLanaEnum
+ID362=TLoadedImage
+ID363=TModuleEntry32
+ID364=TModuleInfo
+ID365=TNameBuffer
+ID366=TNCB
+ID367=TNCBPostProc
+ID368=TObjectList.Clear
+ID369=TObjectList.Create
ID37=AMD_CMOV_FLAG
-ID370=TWideStrings.Destroy
-ID371=VER_NT_DOMAIN_CONTROLLER
-ID372=VER_NT_SERVER
-ID373=VER_NT_WORKSTATION
-ID374=VER_SUITE_BACKOFFICE
-ID375=VER_SUITE_COMMUNICATIONS
-ID376=VER_SUITE_DATACENTER
-ID377=VER_SUITE_EMBEDDEDNT
-ID378=VER_SUITE_ENTERPRISE
-ID379=VER_SUITE_PERSONAL
+ID370=TObjectList.OwnsObjects
+ID371=TOSVersionInfoEx
+ID372=TReparseDataBuffer
+ID373=TReparsePointInformation
+ID374=TWideStrings.Destroy
+ID375=VER_NT_DOMAIN_CONTROLLER
+ID376=VER_NT_SERVER
+ID377=VER_NT_WORKSTATION
+ID378=VER_SUITE_BACKOFFICE
+ID379=VER_SUITE_COMMUNICATIONS
ID38=AMD_CX8_FLAG
-ID380=VER_SUITE_SERVERAPPLIANCE
-ID381=VER_SUITE_SINGLEUSERTS
-ID382=VER_SUITE_SMALLBUSINESS
-ID383=VER_SUITE_SMALLBUSINESS_RESTRICTED
-ID384=VER_SUITE_TERMINAL
-ID385=Win32BackupFile
-ID386=Win32DeleteFile
-ID387=Win32MoveFileReplaceExisting
-ID388=Win32RestoreFile
+ID380=VER_SUITE_DATACENTER
+ID381=VER_SUITE_EMBEDDEDNT
+ID382=VER_SUITE_ENTERPRISE
+ID383=VER_SUITE_PERSONAL
+ID384=VER_SUITE_SERVERAPPLIANCE
+ID385=VER_SUITE_SINGLEUSERTS
+ID386=VER_SUITE_SMALLBUSINESS
+ID387=VER_SUITE_SMALLBUSINESS_RESTRICTED
+ID388=VER_SUITE_TERMINAL
+ID389=Win32BackupFile
ID39=AMD_DE_FLAG
+ID390=Win32DeleteFile
+ID391=Win32MoveFileReplaceExisting
+ID392=Win32RestoreFile
ID4=_IMAGE_BOUND_IMPORT_DESCRIPTOR
ID40=AMD_FPU_FLAG
ID41=AMD_MCE_FLAG
@@ -23734,7 +23743,7 @@
ID99=DOMAIN_ALIAS_RID_SYSTEM_OPS
[Configurations\Configuration 2\Enabled Topics]
-Count=16
+Count=17
ID0=BOM_LSB_FIRST
ID1=Jcl8087.pas
ID10=StrToFloatSafe@AnsiString
@@ -23743,6 +23752,7 @@
ID13=TJclThreadPersistent.Create
ID14=TJclThreadPersistent.Destroy
ID15=TJclThreadPersistent.UpdateCount
+ID16=TStreamNotifyEvent
ID2=JclAppInst.pas
ID3=JclFileUtils.pas
ID4=JclQGraphics.pas
@@ -35460,7 +35470,7 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 3\Disabled Topics]
-Count=389
+Count=393
ID0=_DLLVERSIONINFO.dwPlatformId
ID1=_FILE_ZERO_DATA_INFORMATION
ID10=_IMAGE_RESOURCE_DIRECTORY
@@ -35748,42 +35758,46 @@
ID354=TJclDesktopCanvas.Create
ID355=TJclDesktopCanvas.Destroy
ID356=TJclIsFunc
-ID357=TLanaEnum
-ID358=TLoadedImage
-ID359=TModuleEntry32
+ID357=TJclRebaseImageInfo.NewImageBase
+ID358=TJclRebaseImageInfo.NewImageSize
+ID359=TJclRebaseImageInfo.OldImageBase
ID36=AMD_BIT_6
-ID360=TModuleInfo
-ID361=TNameBuffer
-ID362=TNCB
-ID363=TNCBPostProc
-ID364=TObjectList.Clear
-ID365=TObjectList.Create
-ID366=TObjectList.OwnsObjects
-ID367=TOSVersionInfoEx
-ID368=TReparseDataBuffer
-ID369=TReparsePointInformation
+ID360=TJclRebaseImageInfo.OldImageSize
+ID361=TLanaEnum
+ID362=TLoadedImage
+ID363=TModuleEntry32
+ID364=TModuleInfo
+ID365=TNameBuffer
+ID366=TNCB
+ID367=TNCBPostProc
+ID368=TObjectList.Clear
+ID369=TObjectList.Create
ID37=AMD_CMOV_FLAG
-ID370=TWideStrings.Destroy
-ID371=VER_NT_DOMAIN_CONTROLLER
-ID372=VER_NT_SERVER
-ID373=VER_NT_WORKSTATION
-ID374=VER_SUITE_BACKOFFICE
-ID375=VER_SUITE_COMMUNICATIONS
-ID376=VER_SUITE_DATACENTER
-ID377=VER_SUITE_EMBEDDEDNT
-ID378=VER_SUITE_ENTERPRISE
-ID379=VER_SUITE_PERSONAL
+ID370=TObjectList.OwnsObjects
+ID371=TOSVersionInfoEx
+ID372=TReparseDataBuffer
+ID373=TReparsePointInformation
+ID374=TWideStrings.Destroy
+ID375=VER_NT_DOMAIN_CONTROLLER
+ID376=VER_NT_SERVER
+ID377=VER_NT_WORKSTATION
+ID378=VER_SUITE_BACKOFFICE
+ID379=VER_SUITE_COMMUNICATIONS
ID38=AMD_CX8_FLAG
-ID380=VER_SUITE_SERVERAPPLIANCE
-ID381=VER_SUITE_SINGLEUSERTS
-ID382=VER_SUITE_SMALLBUSINESS
-ID383=VER_SUITE_SMALLBUSINESS_RESTRICTED
-ID384=VER_SUITE_TERMINAL
-ID385=Win32BackupFile
-ID386=Win32DeleteFile
-ID387=Win32MoveFileReplaceExisting
-ID388=Win32RestoreFile
+ID380=VER_SUITE_DATACENTER
+ID381=VER_SUITE_EMBEDDEDNT
+ID382=VER_SUITE_ENTERPRISE
+ID383=VER_SUITE_PERSONAL
+ID384=VER_SUITE_SERVERAPPLIANCE
+ID385=VER_SUITE_SINGLEUSERTS
+ID386=VER_SUITE_SMALLBUSINESS
+ID387=VER_SUITE_SMALLBUSINESS_RESTRICTED
+ID388=VER_SUITE_TERMINAL
+ID389=Win32BackupFile
ID39=AMD_DE_FLAG
+ID390=Win32DeleteFile
+ID391=Win32MoveFileReplaceExisting
+ID392=Win32RestoreFile
ID4=_IMAGE_BOUND_IMPORT_DESCRIPTOR
ID40=AMD_FPU_FLAG
ID41=AMD_MCE_FLAG
@@ -35852,7 +35866,7 @@
ID99=DOMAIN_ALIAS_RID_SYSTEM_OPS
[Configurations\Configuration 3\Enabled Topics]
-Count=16
+Count=17
ID0=BOM_LSB_FIRST
ID1=Jcl8087.pas
ID10=StrToFloatSafe@AnsiString
@@ -35861,6 +35875,7 @@
ID13=TJclThreadPersistent.Create
ID14=TJclThreadPersistent.Destroy
ID15=TJclThreadPersistent.UpdateCount
+ID16=TStreamNotifyEvent
ID2=JclAppInst.pas
ID3=JclFileUtils.pas
ID4=JclQGraphics.pas
@@ -39429,7 +39444,7 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 5\Disabled Topics]
-Count=389
+Count=393
ID0=_DLLVERSIONINFO.dwPlatformId
ID1=_FILE_ZERO_DATA_INFORMATION
ID10=_IMAGE_RESOURCE_DIRECTORY
@@ -39717,42 +39732,46 @@
ID354=TJclDesktopCanvas.Create
ID355=TJclDesktopCanvas.Destroy
ID356=TJclIsFunc
-ID357=TLanaEnum
-ID358=TLoadedImage
-ID359=TModuleEntry32
+ID357=TJclRebaseImageInfo.NewImageBase
+ID358=TJclRebaseImageInfo.NewImageSize
+ID359=TJclRebaseImageInfo.OldImageBase
ID36=AMD_BIT_6
-ID360=TModuleInfo
-ID361=TNameBuffer
-ID362=TNCB
-ID363=TNCBPostProc
-ID364=TObjectList.Clear
-ID365=TObjectList.Create
-ID366=TObjectList.OwnsObjects
-ID367=TOSVersionInfoEx
-ID368=TReparseDataBuffer
-ID369=TReparsePointInformation
+ID360=TJclRebaseImageInfo.OldImageSize
+ID361=TLanaEnum
+ID362=TLoadedImage
+ID363=TModuleEntry32
+ID364=TModuleInfo
+ID365=TNameBuffer
+ID366=TNCB
+ID367=TNCBPostProc
+ID368=TObjectList.Clear
+ID369=TObjectList.Create
ID37=AMD_CMOV_FLAG
-ID370=TWideStrings.Destroy
-ID371=VER_NT_DOMAIN_CONTROLLER
-ID372=VER_NT_SERVER
-ID373=VER_NT_WORKSTATION
-ID374=VER_SUITE_BACKOFFICE
-ID375=VER_SUITE_COMMUNICATIONS
-ID376=VER_SUITE_DATACENTER
-ID377=VER_SUITE_EMBEDDEDNT
-ID378=VER_SUITE_ENTERPRISE
-ID379=VER_SUITE_PERSONAL
+ID370=TObjectList.OwnsObjects
+ID371=TOSVersionInfoEx
+ID372=TReparseDataBuffer
+ID373=TReparsePointInformation
+ID374=TWideStrings.Destroy
+ID375=VER_NT_DOMAIN_CONTROLLER
+ID376=VER_NT_SERVER
+ID377=VER_NT_WORKSTATION
+ID378=VER_SUITE_BACKOFFICE
+ID379=VER_SUITE_COMMUNICATIONS
ID38=AMD_CX8_FLAG
-ID380=VER_SUITE_SERVERAPPLIANCE
-ID381=VER_SUITE_SINGLEUSERTS
-ID382=VER_SUITE_SMALLBUSINESS
-ID383=VER_SUITE_SMALLBUSINESS_RESTRICTED
-ID384=VER_SUITE_TERMINAL
-ID385=Win32BackupFile
-ID386=Win32DeleteFile
-ID387=Win32MoveFileReplaceExisting
-ID388=Win32RestoreFile
+ID380=VER_SUITE_DATACENTER
+ID381=VER_SUITE_EMBEDDEDNT
+ID382=VER_SUITE_ENTERPRISE
+ID383=VER_SUITE_PERSONAL
+ID384=VER_SUITE_SERVERAPPLIANCE
+ID385=VER_SUITE_SINGLEUSERTS
+ID386=VER_SUITE_SMALLBUSINESS
+ID387=VER_SUITE_SMALLBUSINESS_RESTRICTED
+ID388=VER_SUITE_TERMINAL
+ID389=Win32BackupFile
ID39=AMD_DE_FLAG
+ID390=Win32DeleteFile
+ID391=Win32MoveFileReplaceExisting
+ID392=Win32RestoreFile
ID4=_IMAGE_BOUND_IMPORT_DESCRIPTOR
ID40=AMD_FPU_FLAG
ID41=AMD_MCE_FLAG
@@ -39821,7 +39840,7 @@
ID99=DOMAIN_ALIAS_RID_SYSTEM_OPS
[Configurations\Configuration 5\Enabled Topics]
-Count=16
+Count=17
ID0=BOM_LSB_FIRST
ID1=Jcl8087.pas
ID10=StrToFloatSafe@AnsiString
@@ -39830,6 +39849,7 @@
ID13=TJclThreadPersistent.Create
ID14=TJclThreadPersistent.Destroy
ID15=TJclThreadPersistent.UpdateCount
+ID16=TStreamNotifyEvent
ID2=JclAppInst.pas
ID3=JclFileUtils.pas
ID4=JclQGraphics.pas
@@ -40804,7 +40824,7 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 6\Disabled Topics]
-Count=389
+Count=393
ID0=_DLLVERSIONINFO.dwPlatformId
ID1=_FILE_ZERO_DATA_INFORMATION
ID10=_IMAGE_RESOURCE_DIRECTORY
@@ -41092,42 +41112,46 @@
ID354=TJclDesktopCanvas.Create
ID355=TJclDesktopCanvas.Destroy
ID356=TJclIsFunc
-ID357=TLanaEnum
-ID358=TLoadedImage
-ID359=TModuleEntry32
+ID357=TJclRebaseImageInfo.NewImageBase
+ID358=TJclRebaseImageInfo.NewImageSize
+ID359=TJclRebaseImageInfo.OldImageBase
ID36=AMD_BIT_6
-ID360=TModuleInfo
-ID361=TNameBuffer
-ID362=TNCB
-ID363=TNCBPostProc
-ID364=TObjectList.Clear
-ID365=TObjectList.Create
-ID366=TObjectList.OwnsObjects
-ID367=TOSVersionInfoEx
-ID368=TReparseDataBuffer
-ID369=TReparsePointInformation
+ID360=TJclRebaseImageInfo.OldImageSize
+ID361=TLanaEnum
+ID362=TLoadedImage
+ID363=TModuleEntry32
+ID364=TModuleInfo
+ID365=TNameBuffer
+ID366=TNCB
+ID367=TNCBPostProc
+ID368=TObjectList.Clear
+ID369=TObjectList.Create
ID37=AMD_CMOV_FLAG
-ID370=TWideStrings.Destroy
-ID371=VER_NT_DOMAIN_CONTROLLER
-ID372=VER_NT_SERVER
-ID373=VER_NT_WORKSTATION
-ID374=VER_SUITE_BACKOFFICE
-ID375=VER_SUITE_COMMUNICATIONS
-ID376=VER_SUITE_DATACENTER
-ID377=VER_SUITE_EMBEDDEDNT
-ID378=VER_SUITE_ENTERPRISE
-ID379=VER_SUITE_PERSONAL
+ID370=TObjectList.OwnsObjects
+ID371=TOSVersionInfoEx
+ID372=TReparseDataBuffer
+ID373=TReparsePointInformation
+ID374=TWideStrings.Destroy
+ID375=VER_NT_DOMAIN_CONTROLLER
+ID376=VER_NT_SERVER
+ID377=VER_NT_WORKSTATION
+ID378=VER_SUITE_BACKOFFICE
+ID379=VER_SUITE_COMMUNICATIONS
ID38=AMD_CX8_FLAG
-ID380=VER_SUITE_SERVERAPPLIANCE
-ID381=VER_SUITE_SINGLEUSERTS
-ID382=VER_SUITE_SMALLBUSINESS
-ID383=VER_SUITE_SMALLBUSINESS_RESTRICTED
-ID384=VER_SUITE_TERMINAL
-ID385=Win32BackupFile
-ID386=Win32DeleteFile
-ID387=Win32MoveFileReplaceExisting
-ID388=Win32RestoreFile
+ID380=VER_SUITE_DATACENTER
+ID381=VER_SUITE_EMBEDDEDNT
+ID382=VER_SUITE_ENTERPRISE
+ID383=VER_SUITE_PERSONAL
+ID384=VER_SUITE_SERVERAPPLIANCE
+ID385=VER_SUITE_SINGLEUSERTS
+ID386=VER_SUITE_SMALLBUSINESS
+ID387=VER_SUITE_SMALLBUSINESS_RESTRICTED
+ID388=VER_SUITE_TERMINAL
+ID389=Win32BackupFile
ID39=AMD_DE_FLAG
+ID390=Win32DeleteFile
+ID391=Win32MoveFileReplaceExisting
+ID392=Win32RestoreFile
ID4=_IMAGE_BOUND_IMPORT_DESCRIPTOR
ID40=AMD_FPU_FLAG
ID41=AMD_MCE_FLAG
@@ -41196,7 +41220,7 @@
ID99=DOMAIN_ALIAS_RID_SYSTEM_OPS
[Configurations\Configuration 6\Enabled Topics]
-Count=16
+Count=17
ID0=BOM_LSB_FIRST
ID1=Jcl8087.pas
ID10=StrToFloatSafe@AnsiString
@@ -41205,6 +41229,7 @@
ID13=TJclThreadPersistent.Create
ID14=TJclThreadPersistent.Destroy
ID15=TJclThreadPersistent.UpdateCount
+ID16=TStreamNotifyEvent
ID2=JclAppInst.pas
ID3=JclFileUtils.pas
ID4=JclQGraphics.pas
@@ -51019,18 +51044,23 @@
BodySourceUseSyntaxHighlight=0
[Configurations\Configuration 7\Disabled Topics]
-Count=8
+Count=12
ID0=TExprCompileParser.CompileExpr
ID1=TExprCompileParser.CompileSignedFactor
+ID10=TJclRebaseImageInfo.OldImageBase
+ID11=TJclRebaseImageInfo.OldImageSize
ID2=TExprCompileParser.CompileSimpleExpr
ID3=TExprCompileParser.CompileTerm
ID4=TExprEvalParser.EvalExpr
ID5=TExprEvalParser.EvalSignedFactor
ID6=TExprEvalParser.EvalSimpleExpr
ID7=TExprEvalParser.EvalTerm
+ID8=TJclRebaseImageInfo.NewImageBase
+ID9=TJclRebaseImageInfo.NewImageSize
[Configurations\Configuration 7\Enabled Topics]
-Count=0
+Count=1
+ID0=TStreamNotifyEvent
[Configurations\Configuration 7\Export Symbols]
Classes=1
@@ -51974,60 +52004,14575 @@
UseInheritedUseUsing=0
[External Topic Properties]
-Count=52
-ID0=!!SYMREF
-ID1=Algorithms
-ID10=Internationalisation
-ID11=InternetandE-mail
-ID12=jclcs1.inc
-ID13=jcld10.inc
-ID14=jcld10.net.inc
-ID15=jcld5.inc
-ID16=jcld6.inc
-ID17=jcld7.inc
-ID18=jcld8.inc
-ID19=jcld9.inc
-ID2=BaseServices
-ID20=jcld9.net.inc
-ID21=JclPCRE
-ID22=JclPCRE_Intro
-ID23=JclPCRE_Using
-ID24=LibrariesProcessesandThreads
-ID25=MathRoutines
-ID26=MemoryClassesandObjects
-ID27=MIME
-ID28=Miscellaneous
-ID29=MultiMedia
-ID3=Containers
-ID30=OrdinalMathandLogic
-ID31=pcre
-ID32=RegistryandInifiles
-ID33=Regular Expressions
-ID34=RuntimeTypeInformation
-ID35=Source files
-ID36=StringManipulation
-ID37=SystemInformationRoutines
-ID38=TJclAnsiCaptureOffset
-ID39=TJclAnsiCaptureOffset.FirstPos
-ID4=DateandTime
-ID40=TJclAnsiCaptureOffset.LastPos
-ID41=TJclAnsiRegEx.CaptureOffset
-ID42=TJclAnsiRegEx.Create
-ID43=Unicode
-ID44=UnitConversions
-ID45=Windows.ComponentObjectModel
-ID46=Windows.LANManager
-ID47=Windows.Security
-ID48=Windows.ServiceControl
-ID49=Windows.Shell
-ID5=Debugging
-ID50=Windows.Win32API
-ID51=Windows_Specific
-ID6=EDI
-ID7=ExprEval
-ID8=FilesandIO
-ID9=Graphics
+Count=13852
+ID0=!!CLASSES
+ID1=!!CONSTANTS
+ID10=!!OVERLOADED_AppendFormat_TStringBuilder
+ID100=!!OVERLOADED_InsertSegments_TEDITransactionSet
+ID1000=clTrRed32
+ID10000=TJclClrTableMethodDefRow.GetMethodImplFlags
+ID10001=TJclClrTableMethodDefRow.GetName
+ID10002=TJclClrTableMethodDefRow.GetNewSlot
+ID10003=TJclClrTableMethodDefRow.GetParam@Integer
+ID10004=TJclClrTableMethodDefRow.GetParamCount
+ID10005=TJclClrTableMethodDefRow.GetSignature
+ID10006=TJclClrTableMethodDefRow.GetSignatureData
+ID10007=TJclClrTableMethodDefRow.HasParam
+ID10008=TJclClrTableMethodDefRow.ImplFlags
+ID10009=TJclClrTableMethodDefRow.Managed
+ID1001=clTrWhite32
+ID10010=TJclClrTableMethodDefRow.MemberAccess
+ID10011=TJclClrTableMethodDefRow.MethodBody
+ID10012=TJclClrTableMethodDefRow.MethodFlags
+ID10013=TJclClrTableMethodDefRow.MethodImplFlags
+ID10014=TJclClrTableMethodDefRow.Name
+ID10015=TJclClrTableMethodDefRow.NameOffset
+ID10016=TJclClrTableMethodDefRow.NewSlot
+ID10017=TJclClrTableMethodDefRow.ParamCount
+ID10018=TJclClrTableMethodDefRow.ParamListIdx
+ID10019=TJclClrTableMethodDefRow.Params
+ID1002=CLTYPE_LEN
+ID10020=TJclClrTableMethodDefRow.ParentToken
+ID10021=TJclClrTableMethodDefRow.RVA
+ID10022=TJclClrTableMethodDefRow.SetParentToken@TJclClrTableTypeDefRow
+ID10023=TJclClrTableMethodDefRow.Signature
+ID10024=TJclClrTableMethodDefRow.SignatureData
+ID10025=TJclClrTableMethodDefRow.SignatureOffset
+ID10026=TJclClrTableMethodDefRow.Update
+ID10027=TJclClrTableMethodDefRow.UpdateParams
+ID10028=TJclClrTableMethodImpl
+ID10029=TJclClrTableMethodImpl.GetRow@Integer
+ID1003=clWhite32
+ID10030=TJclClrTableMethodImpl.Rows
+ID10031=TJclClrTableMethodImpl.TableRowClass
+ID10032=TJclClrTableMethodImplRow
+ID10033=TJclClrTableMethodImplRow.ClassIdx
+ID10034=TJclClrTableMethodImplRow.Create@TJclClrTable
+ID10035=TJclClrTableMethodImplRow.FClassIdx
+ID10036=TJclClrTableMethodImplRow.FMethodBodyIdx
+ID10037=TJclClrTableMethodImplRow.FMethodDeclarationIdx
+ID10038=TJclClrTableMethodImplRow.MethodBodyIdx
+ID10039=TJclClrTableMethodImplRow.MethodDeclarationIdx
+ID1004=clYellow32
+ID10040=TJclClrTableMethodPtr
+ID10041=TJclClrTableMethodPtr.GetRow@Integer
+ID10042=TJclClrTableMethodPtr.Rows
+ID10043=TJclClrTableMethodPtr.TableRowClass
+ID10044=TJclClrTableMethodPtrRow
+ID10045=TJclClrTableMethodPtrRow.Create@TJclClrTable
+ID10046=TJclClrTableMethodPtrRow.FMethodIdx
+ID10047=TJclClrTableMethodPtrRow.GetMethod
+ID10048=TJclClrTableMethodPtrRow.Method
+ID10049=TJclClrTableMethodPtrRow.MethodIdx
+ID1005=CMOV_FLAG
+ID10050=TJclClrTableMethodSemantics
+ID10051=TJclClrTableMethodSemantics.GetRow@Integer
+ID10052=TJclClrTableMethodSemantics.Rows
+ID10053=TJclClrTableMethodSemantics.TableRowClass
+ID10054=TJclClrTableMethodSemanticsRow
+ID10055=TJclClrTableMethodSemanticsRow.AssociationIdx
+ID10056=TJclClrTableMethodSemanticsRow.Create@TJclClrTable
+ID10057=TJclClrTableMethodSemanticsRow.FAssociationIdx
+ID10058=TJclClrTableMethodSemanticsRow.FMethodIdx
+ID10059=TJclClrTableMethodSemanticsRow.FSemantics
+ID1006=CMYKToBGR@Pointer@Pointer@Byte@Cardinal
+ID10060=TJclClrTableMethodSemanticsRow.MethodIdx
+ID10061=TJclClrTableMethodSemanticsRow.Semantics
+ID10062=TJclClrTableMethodSpec
+ID10063=TJclClrTableMethodSpec.GetRow@Integer
+ID10064=TJclClrTableMethodSpec.Rows
+ID10065=TJclClrTableMethodSpec.TableRowClass
+ID10066=TJclClrTableMethodSpecRow
+ID10067=TJclClrTableMethodSpecRow.Create@TJclClrTable
+ID10068=TJclClrTableMethodSpecRow.FInstantiationOffset
+ID10069=TJclClrTableMethodSpecRow.FMethodIdx
+ID1007=CMYKToBGR@Pointer@Pointer@Pointer@Pointer@Pointer@Byte@Cardinal
+ID10070=TJclClrTableMethodSpecRow.GetInstantiation
+ID10071=TJclClrTableMethodSpecRow.GetMethod
+ID10072=TJclClrTableMethodSpecRow.Instantiation
+ID10073=TJclClrTableMethodSpecRow.InstantiationOffset
+ID10074=TJclClrTableMethodSpecRow.Method
+ID10075=TJclClrTableMethodSpecRow.MethodIdx
+ID10076=TJclClrTableModule
+ID10077=TJclClrTableModule.GetRow@Integer
+ID10078=TJclClrTableModule.Rows
+ID10079=TJclClrTableModule.TableRowClass
+ID1008=CNLEN
+ID10080=TJclClrTableModuleRef
+ID10081=TJclClrTableModuleRef.GetRow@Integer
+ID10082=TJclClrTableModuleRef.Rows
+ID10083=TJclClrTableModuleRef.TableRowClass
+ID10084=TJclClrTableModuleRefRow
+ID10085=TJclClrTableModuleRefRow.Create@TJclClrTable
+ID10086=TJclClrTableModuleRefRow.DumpIL
+ID10087=TJclClrTableModuleRefRow.FNameOffset
+ID10088=TJclClrTableModuleRefRow.GetName
+ID10089=TJclClrTableModuleRefRow.Name
+ID1009=CodeBlockName@TUnicodeBlock
+ID10090=TJclClrTableModuleRefRow.NameOffset
+ID10091=TJclClrTableModuleRow
+ID10092=TJclClrTableModuleRow.Create@TJclClrTable
+ID10093=TJclClrTableModuleRow.DumpIL
+ID10094=TJclClrTableModuleRow.EncBaseId
+ID10095=TJclClrTableModuleRow.EncBaseIdIdx
+ID10096=TJclClrTableModuleRow.EncId
+ID10097=TJclClrTableModuleRow.EncIdIdx
+ID10098=TJclClrTableModuleRow.FEncBaseIdIdx
+ID10099=TJclClrTableModuleRow.FEncIdIdx
+ID101=!!OVERLOADED_InsertSubElement_TEDISEFCompositeElement
+ID1010=CodeBlockRange@TUnicodeBlock
+ID10100=TJclClrTableModuleRow.FGeneration
+ID10101=TJclClrTableModuleRow.FMvidIdx
+ID10102=TJclClrTableModuleRow.FNameOffset
+ID10103=TJclClrTableModuleRow.Generation
+ID10104=TJclClrTableModuleRow.GetEncBaseId
+ID10105=TJclClrTableModuleRow.GetEncId
+ID10106=TJclClrTableModuleRow.GetMvid
+ID10107=TJclClrTableModuleRow.GetName
+ID10108=TJclClrTableModuleRow.HasEncBaseId
+ID10109=TJclClrTableModuleRow.HasEncId
+ID1011=Color32@Byte@Byte@Byte@Byte
+ID10110=TJclClrTableModuleRow.Mvid
+ID10111=TJclClrTableModuleRow.MvidIdx
+ID10112=TJclClrTableModuleRow.Name
+ID10113=TJclClrTableModuleRow.NameOffset
+ID10114=TJclClrTableNestedClass
+ID10115=TJclClrTableNestedClass.GetRow@Integer
+ID10116=TJclClrTableNestedClass.Rows
+ID10117=TJclClrTableNestedClass.TableRowClass
+ID10118=TJclClrTableNestedClassRow
+ID10119=TJclClrTableNestedClassRow.Create@TJclClrTable
+ID1012=Color32@Byte@TPalette32
+ID10120=TJclClrTableNestedClassRow.EnclosingClassIdx
+ID10121=TJclClrTableNestedClassRow.FEnclosingClassIdx
+ID10122=TJclClrTableNestedClassRow.FNestedClassIdx
+ID10123=TJclClrTableNestedClassRow.NestedClassIdx
+ID10124=TJclClrTableParamDef
+ID10125=TJclClrTableParamDef.GetRow@Integer
+ID10126=TJclClrTableParamDef.Rows
+ID10127=TJclClrTableParamDef.TableRowClass
+ID10128=TJclClrTableParamDefRow
+ID10129=TJclClrTableParamDefRow.Create@TJclClrTable
+ID1013=Color32@TColor
+ID10130=TJclClrTableParamDefRow.DumpIL
+ID10131=TJclClrTableParamDefRow.FFlagMask
+ID10132=TJclClrTableParamDefRow.FFlags
+ID10133=TJclClrTableParamDefRow.FlagMask
+ID10134=TJclClrTableParamDefRow.Flags
+ID10135=TJclClrTableParamDefRow.FMethod
+ID10136=TJclClrTableParamDefRow.FNameOffset
+ID10137=TJclClrTableParamDefRow.FSequence
+ID10138=TJclClrTableParamDefRow.GetName
+ID10139=TJclClrTableParamDefRow.Method
+ID1014=ColorToHTML@TColor
+ID10140=TJclClrTableParamDefRow.Name
+ID10141=TJclClrTableParamDefRow.NameOffset
+ID10142=TJclClrTableParamDefRow.ParamFlags@TJclClrParamKinds
+ID10143=TJclClrTableParamDefRow.ParamFlags@Word
+ID10144=TJclClrTableParamDefRow.Sequence
+ID10145=TJclClrTableParamDefRow.SetMethod@TJclClrTableMethodDefRow
+ID10146=TJclClrTableParamPtr
+ID10147=TJclClrTableParamPtr.GetRow@Integer
+ID10148=TJclClrTableParamPtr.Rows
+ID10149=TJclClrTableParamPtr.TableRowClass
+ID1015=CoMallocFree@Pointer
+ID10150=TJclClrTableParamPtrRow
+ID10151=TJclClrTableParamPtrRow.Create@TJclClrTable
+ID10152=TJclClrTableParamPtrRow.FParamIdx
+ID10153=TJclClrTableParamPtrRow.GetParam
+ID10154=TJclClrTableParamPtrRow.Param
+ID10155=TJclClrTableParamPtrRow.ParamIdx
+ID10156=TJclClrTablePropertyDef
+ID10157=TJclClrTablePropertyDef.GetRow@Integer
+ID10158=TJclClrTablePropertyDef.Rows
+ID10159=TJclClrTablePropertyDef.TableRowClass
+ID1016=Combinations@Cardinal@Cardinal
+ID10160=TJclClrTablePropertyDefRow
+ID10161=TJclClrTablePropertyDefRow.Create@TJclClrTable
+ID10162=TJclClrTablePropertyDefRow.DumpIL
+ID10163=TJclClrTablePropertyDefRow.FFlags
+ID10164=TJclClrTablePropertyDefRow.FKindIdx
+ID10165=TJclClrTablePropertyDefRow.Flags
+ID10166=TJclClrTablePropertyDefRow.FNameOffset
+ID10167=TJclClrTablePropertyDefRow.GetFlags
+ID10168=TJclClrTablePropertyDefRow.GetName
+ID10169=TJclClrTablePropertyDefRow.KindIdx
+ID1017=CombineCOMSDataOfCOMSDefinition@TEDISEFCompositeElement
+ID10170=TJclClrTablePropertyDefRow.Name
+ID10171=TJclClrTablePropertyDefRow.NameOffset
+ID10172=TJclClrTablePropertyDefRow.RawFlags
+ID10173=TJclClrTablePropertyFlag
+ID10174=TJclClrTablePropertyFlag.pfHasDefault
+ID10175=TJclClrTablePropertyFlag.pfRTSpecialName
+ID10176=TJclClrTablePropertyFlag.pfSpecialName
+ID10177=TJclClrTablePropertyFlags
+ID10178=TJclClrTablePropertyMap
+ID10179=TJclClrTablePropertyMap.GetRow@Integer
+ID1018=CombineCOMSDataOfSEGSDefinition@TEDISEFCompositeElement
+ID10180=TJclClrTablePropertyMap.Rows
+ID10181=TJclClrTablePropertyMap.TableRowClass
+ID10182=TJclClrTablePropertyMap.Update
+ID10183=TJclClrTablePropertyMapRow
+ID10184=TJclClrTablePropertyMapRow.Add@TJclClrTablePropertyDefRow
+ID10185=TJclClrTablePropertyMapRow.Create@TJclClrTable
+ID10186=TJclClrTablePropertyMapRow.Destroy
+ID10187=TJclClrTablePropertyMapRow.FParentIdx
+ID10188=TJclClrTablePropertyMapRow.FProperties
+ID10189=TJclClrTablePropertyMapRow.FPropertyListIdx
+ID1019=CombineELMSDataOfCOMSorSEGSDefinition@TEDISEFElement@TEDISEFDataObjectList
+ID10190=TJclClrTablePropertyMapRow.GetParent
+ID10191=TJclClrTablePropertyMapRow.GetProperty@Integer
+ID10192=TJclClrTablePropertyMapRow.GetPropertyCount
+ID10193=TJclClrTablePropertyMapRow.Parent
+ID10194=TJclClrTablePropertyMapRow.ParentIdx
+ID10195=TJclClrTablePropertyMapRow.Properties
+ID10196=TJclClrTablePropertyMapRow.PropertyCount
+ID10197=TJclClrTablePropertyMapRow.PropertyListIdx
+ID10198=TJclClrTablePropertyPtr
+ID10199=TJclClrTablePropertyPtr.GetRow@Integer
+ID102=!!OVERLOADED_InsertTable_TEDISEFSet
+ID1020=CombineELMSDataOfELMSDefinition@TEDISEFElement
+ID10200=TJclClrTablePropertyPtr.Rows
+ID10201=TJclClrTablePropertyPtr.TableRowClass
+ID10202=TJclClrTablePropertyPtrRow
+ID10203=TJclClrTablePropertyPtrRow._Property
+ID10204=TJclClrTablePropertyPtrRow.Create@TJclClrTable
+ID10205=TJclClrTablePropertyPtrRow.FPropertyIdx
+ID10206=TJclClrTablePropertyPtrRow.GetProperty
+ID10207=TJclClrTablePropertyPtrRow.PropertyIdx
+ID10208=TJclClrTableRow
+ID10209=TJclClrTableRow.Create@TJclClrTable
+ID1021=CombineMem
+ID10210=TJclClrTableRow.DecodeResolutionScope@DWORD
+ID10211=TJclClrTableRow.DecodeTypeDefOrRef@DWORD
+ID10212=TJclClrTableRow.DumpIL
+ID10213=TJclClrTableRow.FIndex
+ID10214=TJclClrTableRow.FTable
+ID10215=TJclClrTableRow.GetToken
+ID10216=TJclClrTableRow.Index
+ID10217=TJclClrTableRow.Table
+ID10218=TJclClrTableRow.Token
+ID10219=TJclClrTableRow.Update
+ID1022=CombineReg
+ID10220=TJclClrTableRowClass
+ID10221=TJclClrTableStandAloneSig
+ID10222=TJclClrTableStandAloneSig.GetRow@Integer
+ID10223=TJclClrTableStandAloneSig.Rows
+ID10224=TJclClrTableStandAloneSig.TableRowClass
+ID10225=TJclClrTableStandAloneSigRow
+ID10226=TJclClrTableStandAloneSigRow.Create@TJclClrTable
+ID10227=TJclClrTableStandAloneSigRow.FSignatureOffset
+ID10228=TJclClrTableStandAloneSigRow.GetSignature
+ID10229=TJclClrTableStandAloneSigRow.Signature
+ID1023=CombineSEGSDataOfSEGSDefinition@TEDISEFSegment
+ID10230=TJclClrTableStandAloneSigRow.SignatureOffset
+ID10231=TJclClrTableStream
+ID10232=TJclClrTableStream.BigHeap
+ID10233=TJclClrTableStream.Create@TJclPeMetadata@PClrStreamHeader
+ID10234=TJclClrTableStream.Destroy
+ID10235=TJclClrTableStream.DumpIL
+ID10236=TJclClrTableStream.FHeader
+ID10237=TJclClrTableStream.FindTable@TJclClrTableKind@TJclClrTable
+ID10238=TJclClrTableStream.FTableCount
+ID10239=TJclClrTableStream.FTables
+ID1024=CombineSEGSDataOfSETSDefinition@TEDISEFSegment
+ID10240=TJclClrTableStream.GetBigHeap@TJclClrHeapKind
+ID10241=TJclClrTableStream.GetTable@TJclClrTableKind
+ID10242=TJclClrTableStream.GetVersionString
+ID10243=TJclClrTableStream.Header
+ID10244=TJclClrTableStream.TableCount
+ID10245=TJclClrTableStream.Tables
+ID10246=TJclClrTableStream.Update
+ID10247=TJclClrTableStream.VersionString
+ID10248=TJclClrTableTypeDef
+ID10249=TJclClrTableTypeDef.GetRow@Integer
+ID1025=CompareCLRVersions@string@string
+ID10250=TJclClrTableTypeDef.Rows
+ID10251=TJclClrTableTypeDef.TableRowClass
+ID10252=TJclClrTableTypeDefRow
+ID10253=TJclClrTableTypeDefRow.Attributes
+ID10254=TJclClrTableTypeDefRow.ClassLayout
+ID10255=TJclClrTableTypeDefRow.ClassSemantics
+ID10256=TJclClrTableTypeDefRow.Create@TJclClrTable
+ID10257=TJclClrTableTypeDefRow.Destroy
+ID10258=TJclClrTableTypeDefRow.DumpIL
+ID10259=TJclClrTableTypeDefRow.Extends
+ID1026=CompilerExtensionBPI
+ID10260=TJclClrTableTypeDefRow.ExtendsIdx
+ID10261=TJclClrTableTypeDefRow.FExtendsIdx
+ID10262=TJclClrTableTypeDefRow.FFieldListIdx
+ID10263=TJclClrTableTypeDefRow.FFields
+ID10264=TJclClrTableTypeDefRow.FFlags
+ID10265=TJclClrTableTypeDefRow.FieldCount
+ID10266=TJclClrTableTypeDefRow.FieldListIdx
+ID10267=TJclClrTableTypeDefRow.Fields
+ID10268=TJclClrTableTypeDefRow.Flags
+ID10269=TJclClrTableTypeDefRow.FMethodListIdx
+ID1027=CompilerExtensionDCP
+ID10270=TJclClrTableTypeDefRow.FMethods
+ID10271=TJclClrTableTypeDefRow.FNameOffset
+ID10272=TJclClrTableTypeDefRow.FNamespaceOffset
+ID10273=TJclClrTableTypeDefRow.FullName
+ID10274=TJclClrTableTypeDefRow.GetAttributes
+ID10275=TJclClrTableTypeDefRow.GetClassLayout
+ID10276=TJclClrTableTypeDefRow.GetClassSemantics
+ID10277=TJclClrTableTypeDefRow.GetExtends
+ID10278=TJclClrTableTypeDefRow.GetField@Integer
+ID10279=TJclClrTableTypeDefRow.GetFieldCount
+ID1028=CompilerExtensionDEF
+ID10280=TJclClrTableTypeDefRow.GetFullName
+ID10281=TJclClrTableTypeDefRow.GetMethod@Integer
+ID10282=TJclClrTableTypeDefRow.GetMethodCount
+ID10283=TJclClrTableTypeDefRow.GetName
+ID10284=TJclClrTableTypeDefRow.GetNamespace
+ID10285=TJclClrTableTypeDefRow.GetStringFormatting
+ID10286=TJclClrTableTypeDefRow.GetVisibility
+ID10287=TJclClrTableTypeDefRow.HasField
+ID10288=TJclClrTableTypeDefRow.HasMethod
+ID10289=TJclClrTableTypeDefRow.MethodCount
+ID1029=CompilerExtensionDRC
+ID10290=TJclClrTableTypeDefRow.MethodListIdx
+ID10291=TJclClrTableTypeDefRow.Methods
+ID10292=TJclClrTableTypeDefRow.Name
+ID10293=TJclClrTableTypeDefRow.NameOffset
+ID10294=TJclClrTableTypeDefRow.Namespace
+ID10295=TJclClrTableTypeDefRow.NamespaceOffset
+ID10296=TJclClrTableTypeDefRow.StringFormatting
+ID10297=TJclClrTableTypeDefRow.Update
+ID10298=TJclClrTableTypeDefRow.UpdateFields
+ID10299=TJclClrTableTypeDefRow.UpdateMethods
+ID103=!!OVERLOADED_IsConsole_TJclConsole
+ID1030=CompilerExtensionLIB
+ID10300=TJclClrTableTypeDefRow.Visibility
+ID10301=TJclClrTableTypeRef
+ID10302=TJclClrTableTypeRef.GetRow@Integer
+ID10303=TJclClrTableTypeRef.Rows
+ID10304=TJclClrTableTypeRef.TableRowClass
+ID10305=TJclClrTableTypeRefRow
+ID10306=TJclClrTableTypeRefRow.Create@TJclClrTable
+ID10307=TJclClrTableTypeRefRow.DumpIL
+ID10308=TJclClrTableTypeRefRow.FNameOffset
+ID10309=TJclClrTableTypeRefRow.FNamespaceOffset
+ID1031=CompilerExtensionMAP
+ID10310=TJclClrTableTypeRefRow.FResolutionScopeIdx
+ID10311=TJclClrTableTypeRefRow.FullName
+ID10312=TJclClrTableTypeRefRow.GetFullName
+ID10313=TJclClrTableTypeRefRow.GetName
+ID10314=TJclClrTableTypeRefRow.GetNamespace
+ID10315=TJclClrTableTypeRefRow.GetResolutionScope
+ID10316=TJclClrTableTypeRefRow.GetResolutionScopeName
+ID10317=TJclClrTableTypeRefRow.Name
+ID10318=TJclClrTableTypeRefRow.NameOffset
+ID10319=TJclClrTableTypeRefRow.Namespace
+ID1032=CompilerExtensionTDS
+ID10320=TJclClrTableTypeRefRow.NamespaceOffset
+ID10321=TJclClrTableTypeRefRow.ResolutionScope
+ID10322=TJclClrTableTypeRefRow.ResolutionScopeIdx
+ID10323=TJclClrTableTypeRefRow.ResolutionScopeName
+ID10324=TJclClrTableTypeSpec
+ID10325=TJclClrTableTypeSpec.GetRow@Integer
+ID10326=TJclClrTableTypeSpec.Rows
+ID10327=TJclClrTableTypeSpec.TableRowClass
+ID10328=TJclClrTableTypeSpecRow
+ID10329=TJclClrTableTypeSpecRow.Create@TJclClrTable
+ID1033=CompleteDelphiSet
+ID10330=TJclClrTableTypeSpecRow.FSignatureOffset
+ID10331=TJclClrTableTypeSpecRow.GetSignature
+ID10332=TJclClrTableTypeSpecRow.Signature
+ID10333=TJclClrTableTypeSpecRow.SignatureOffset
+ID10334=TJclClrToken
+ID10335=TJclClrTypeAttribute
+ID10336=TJclClrTypeAttribute.taAbstract
+ID10337=TJclClrTypeAttribute.taBeforeFieldInit
+ID10338=TJclClrTypeAttribute.taHasSecurity
+ID10339=TJclClrTypeAttribute.taImport
+ID1034=ComplexPrecision
+ID10340=TJclClrTypeAttribute.taRTSpecialName
+ID10341=TJclClrTypeAttribute.taSealed
+ID10342=TJclClrTypeAttribute.taSerializable
+ID10343=TJclClrTypeAttribute.taSpecialName
+ID10344=TJclClrTypeAttributes
+ID10345=TJclClrTypeVisibility
+ID10346=TJclClrTypeVisibility.tvNestedAssembly
+ID10347=TJclClrTypeVisibility.tvNestedFamANDAssem
+ID10348=TJclClrTypeVisibility.tvNestedFamily
+ID10349=TJclClrTypeVisibility.tvNestedFamORAssem
+ID1035=COMPRESSION_ENGINE_HIBER
+ID10350=TJclClrTypeVisibility.tvNestedPrivate
+ID10351=TJclClrTypeVisibility.tvNestedPublic
+ID10352=TJclClrTypeVisibility.tvNotPublic
+ID10353=TJclClrTypeVisibility.tvPublic
+ID10354=TJclClrUserStringStream
+ID10355=TJclClrUserStringStream.At@DWORD
+ID10356=TJclClrUserStringStream.BlobToString@TJclClrBlobRecord
+ID10357=TJclClrUserStringStream.GetOffset@Integer
+ID10358=TJclClrUserStringStream.GetString@Integer
+ID10359=TJclClrUserStringStream.GetStringCount
+ID1036=COMPRESSION_ENGINE_MAXIMUM
+ID10360=TJclClrUserStringStream.Offsets
+ID10361=TJclClrUserStringStream.StringCount
+ID10362=TJclClrUserStringStream.Strings
+ID10363=TJclClrVTableFixupRecord
+ID10364=TJclClrVTableFixupRecord.Count
+ID10365=TJclClrVTableFixupRecord.Create@PImageCorVTableFixup
+ID10366=TJclClrVTableFixupRecord.Data
+ID10367=TJclClrVTableFixupRecord.FData
+ID10368=TJclClrVTableFixupRecord.GetCount
+ID10369=TJclClrVTableFixupRecord.GetKinds
+ID1037=COMPRESSION_ENGINE_STANDARD
+ID10370=TJclClrVTableFixupRecord.GetRVA
+ID10371=TJclClrVTableFixupRecord.Kinds
+ID10372=TJclClrVTableFixupRecord.RVA
+ID10373=TJclClrVTableFixupRecord.VTableKinds@DWORD
+ID10374=TJclClrVTableFixupRecord.VTableKinds@TJclClrVTableKinds
+ID10375=TJclClrVTableKind
+ID10376=TJclClrVTableKind.vtk32Bit
+ID10377=TJclClrVTableKind.vtk64Bit
+ID10378=TJclClrVTableKind.vtkCallMostDerived
+ID10379=TJclClrVTableKind.vtkFromUnmanaged
+ID1038=Conjugate@TPolarComplex
+ID10380=TJclClrVTableKinds
+ID10381=TJclCommandLineTool
+ID10382=TJclCommandLineTool.AddPathOption@string@string
+ID10383=TJclCommandLineTool.Create@string
+ID10384=TJclCommandLineTool.Destroy
+ID10385=TJclCommandLineTool.Execute@string
+ID10386=TJclCommandLineTool.ExeName
+ID10387=TJclCommandLineTool.FExeName
+ID10388=TJclCommandLineTool.FOptions
+ID10389=TJclCommandLineTool.FOutput
+ID1039=Conjugate@TRectComplex
+ID10390=TJclCommandLineTool.FOutputCallback
+ID10391=TJclCommandLineTool.GetExeName
+ID10392=TJclCommandLineTool.GetOptions
+ID10393=TJclCommandLineTool.GetOutput
+ID10394=TJclCommandLineTool.GetOutputCallback
+ID10395=TJclCommandLineTool.Output
+ID10396=TJclCommandLineTool.SetOutputCallback@TTextHandler
+ID10397=TJclCompressionLevel
+ID10398=TJclCompressionStream
+ID10399=TJclCompressionStream.Create@TStream
+ID104=!!OVERLOADED_IsEqual_TJclRational
+ID1040=Containers
+ID10400=TJclCompressionStream.Destroy
+ID10401=TJclCompressionStream.FBuffer
+ID10402=TJclCompressionStream.FBufferSize
+ID10403=TJclCompressionStream.FOnProgress
+ID10404=TJclCompressionStream.FStream
+ID10405=TJclCompressionStream.OnProgress
+ID10406=TJclCompressionStream.Progress@TObject
+ID10407=TJclCompressionStream.Read@@Longint
+ID10408=TJclCompressionStream.Reset
+ID10409=TJclCompressionStream.Seek@Int64@TSeekOrigin
+ID1041=ContinueCount@TJclCounter
+ID10410=TJclCompressionStream.SetBufferSize@Cardinal
+ID10411=TJclCompressionStream.Write@@Longint
+ID10412=TJclCompressStream
+ID10413=TJclCompressStream.Create@TStream
+ID10414=TJclCompressStream.Flush
+ID10415=TJclCompressStreamProgressCallback
+ID10416=TJclConsole
+ID10417=TJclConsole.ActiveScreen
+ID10418=TJclConsole.ActiveScreenIndex
+ID10419=TJclConsole.Add@Smallint@Smallint
+ID1042=ConvertMapFileToJdbgFile@TFileName@string@Integer
+ID10420=TJclConsole.Alloc
+ID10421=TJclConsole.Create
+ID10422=TJclConsole.Default
+ID10423=TJclConsole.Delete@Longword
+ID10424=TJclConsole.Destroy
+ID10425=TJclConsole.FActiveScreenIndex
+ID10426=TJclConsole.FInput
+ID10427=TJclConsole.FOnClose
+ID10428=TJclConsole.FOnCtrlBreak
+ID10429=TJclConsole.FOnCtrlC
+ID1043=ConvertMapFileToJdbgFile@TFileName@string@Integer@Integer@Integer
+ID10430=TJclConsole.FOnLogOff
+ID10431=TJclConsole.FOnShutdown
+ID10432=TJclConsole.Free
+ID10433=TJclConsole.FScreens
+ID10434=TJclConsole.GetActiveScreen
+ID10435=TJclConsole.GetInputCodePage
+ID10436=TJclConsole.GetOutputCodePage
+ID10437=TJclConsole.GetScreen@Longword
+ID10438=TJclConsole.GetScreenCount
+ID10439=TJclConsole.GetTitle
+ID1044=ConvertTemperature@TTemperatureType@TTemperatureType@Float
+ID10440=TJclConsole.Input
+ID10441=TJclConsole.InputCodePage
+ID10442=TJclConsole.IsConsole@HMODULE
+ID10443=TJclConsole.IsConsole@TFileName
+ID10444=TJclConsole.MouseButtonCount
+ID10445=TJclConsole.OnClose
+ID10446=TJclConsole.OnCtrlBreak
+ID10447=TJclConsole.OnCtrlC
+ID10448=TJclConsole.OnLogOff
+ID10449=TJclConsole.OnShutdown
+ID1045=Copy@IJclIntfIterator@Integer@IJclIntfIterator
+ID10450=TJclConsole.OutputCodePage
+ID10451=TJclConsole.Remove@TJclScreenBuffer
+ID10452=TJclConsole.ScreenCount
+ID10453=TJclConsole.Screens
+ID10454=TJclConsole.SetActiveScreen@TJclScreenBuffer
+ID10455=TJclConsole.SetActiveScreenIndex@Longword
+ID10456=TJclConsole.SetInputCodePage@DWORD
+ID10457=TJclConsole.SetOutputCodePage@DWORD
+ID10458=TJclConsole.SetTitle@string
+ID10459=TJclConsole.Shutdown
+ID1046=Copy@IJclIterator@Integer@IJclIterator
+ID10460=TJclConsole.Title
+ID10461=TJclConsoleInputMode
+ID10462=TJclConsoleInputMode.imEcho
+ID10463=TJclConsoleInputMode.imLine
+ID10464=TJclConsoleInputMode.imMouse
+ID10465=TJclConsoleInputMode.imProcessed
+ID10466=TJclConsoleInputMode.imWindow
+ID10467=TJclConsoleInputModes
+ID10468=TJclConsoleOutputMode
+ID10469=TJclConsoleOutputMode.omProcessed
+ID1047=Copy@IJclStrIterator@Integer@IJclStrIterator
+ID10470=TJclConsoleOutputMode.omWrapAtEol
+ID10471=TJclConsoleOutputModes
+ID10472=TJclConstantSymbolInfo
+ID10473=TJclConstantSymbolInfo.Create@PSymbolInfo
+ID10474=TJclConstantSymbolInfo.FNameIndex
+ID10475=TJclConstantSymbolInfo.FTypeIndex
+ID10476=TJclConstantSymbolInfo.FValue
+ID10477=TJclConstantSymbolInfo.NameIndex
+ID10478=TJclConstantSymbolInfo.TypeIndex
+ID10479=TJclConstantSymbolInfo.Value
+ID1048=COR_DELETED_NAME_LENGTH
+ID10480=TJclControlPanelSummaryInformation
+ID10481=TJclControlPanelSummaryInformation.GetFMTID
+ID10482=TJclCRC16Stream
+ID10483=TJclCRC16Stream.AfterBlockRead
+ID10484=TJclCRC16Stream.BeforeBlockWrite
+ID10485=TJclCRC16Stream.Create@TStream@Boolean
+ID10486=TJclCRC32Stream
+ID10487=TJclCRC32Stream.AfterBlockRead
+ID10488=TJclCRC32Stream.BeforeBlockWrite
+ID10489=TJclCRC32Stream.Create@TStream@Boolean
+ID1049=COR_ILMETHOD_SECT_SMALL_MAX_DATASIZE
+ID10490=TJclDataSymbolInfo
+ID10491=TJclDataSymbolInfo.Create@PSymbolInfo
+ID10492=TJclDataSymbolInfo.FNameIndex
+ID10493=TJclDataSymbolInfo.FOffset
+ID10494=TJclDataSymbolInfo.FTypeIndex
+ID10495=TJclDataSymbolInfo.NameIndex
+ID10496=TJclDataSymbolInfo.Offset
+ID10497=TJclDataSymbolInfo.TypeIndex
+ID10498=TJclDbgHeader
+ID10499=TJclDbgHeader.CheckSum
+ID105=!!OVERLOADED_IsWideIndex_TJclClrTable
+ID1050=COR_VERSION_MAJOR
+ID10500=TJclDbgHeader.CheckSumValid
+ID10501=TJclDbgHeader.LineNumbers
+ID10502=TJclDbgHeader.ModuleName
+ID10503=TJclDbgHeader.Signature
+ID10504=TJclDbgHeader.SourceNames
+ID10505=TJclDbgHeader.Symbols
+ID10506=TJclDbgHeader.Units
+ID10507=TJclDbgHeader.Version
+ID10508=TJclDbgHeader.Words
+ID10509=TJclDCC
+ID1051=COR_VERSION_MAJOR_V2
+ID10510=TJclDCC32
+ID10511=TJclDCC32.AddProjectOptions@string@string
+ID10512=TJclDCC32.Compile@string
+ID10513=TJclDCC32.ConfigFileName
+ID10514=TJclDCC32.Create@TJclBorRADToolInstallation
+ID10515=TJclDCC32.Execute@string
+ID10516=TJclDCC32.FOnBeforeSaveOptionsToFile
+ID10517=TJclDCC32.GetConfigFileName
+ID10518=TJclDCC32.GetExeName
+ID10519=TJclDCC32.MakePackage@string@string@string@string
+ID1052=COR_VERSION_MINOR
+ID10520=TJclDCC32.MakeProject@string@string@string@string
+ID10521=TJclDCC32.OnBeforeSaveOptionsToFile
+ID10522=TJclDCC32.SaveOptionsToFile@string
+ID10523=TJclDCC32.SetDefaultOptions
+ID10524=TJclDCC32.SupportsLibSuffix
+ID10525=TJclDCCIL
+ID10526=TJclDCCIL.FMaxCLRVersion
+ID10527=TJclDCCIL.GetConfigFileName
+ID10528=TJclDCCIL.GetExeName
+ID10529=TJclDCCIL.GetMaxCLRVersion
+ID1053=COR_VTABLE_32BIT
+ID10530=TJclDCCIL.MakeProject@string@string@string
+ID10531=TJclDCCIL.MaxCLRVersion
+ID10532=TJclDCCIL.SetDefaultOptions
+ID10533=TJclDebugInfoSourceClass
+ID10534=TJclDebugInfoSymbols
+ID10535=TJclDebugInfoSymbols.CleanupDebugSymbols
+ID10536=TJclDebugInfoSymbols.GetLocationInfo@Pointer@TJclLocationInfo
+ID10537=TJclDebugInfoSymbols.InitializeDebugSymbols
+ID10538=TJclDebugInfoSymbols.InitializeSource
+ID10539=TJclDebugInfoSymbols.LoadDebugFunctions
+ID1054=COR_VTABLE_64BIT
+ID10540=TJclDebugInfoSymbols.UnloadDebugFunctions
+ID10541=TJclDebugInfoTD32
+ID10542=TJclDebugInfoTD32.Destroy
+ID10543=TJclDebugInfoTD32.FImage
+ID10544=TJclDebugInfoTD32.GetLocationInfo@Pointer@TJclLocationInfo
+ID10545=TJclDebugInfoTD32.InitializeSource
+ID10546=TJclDebugThread
+ID10547=TJclDebugThread.Create@Boolean@string
+ID10548=TJclDebugThread.Destroy
+ID10549=TJclDebugThread.DoHandleException
+ID1055=COR_VTABLE_CALL_MOST_DERIVED
+ID10550=TJclDebugThread.DoNotify
+ID10551=TJclDebugThread.DoSyncHandleException
+ID10552=TJclDebugThread.FSyncException
+ID10553=TJclDebugThread.FThreadName
+ID10554=TJclDebugThread.GetThreadInfo
+ID10555=TJclDebugThread.HandleException@TObject
+ID10556=TJclDebugThread.SyncException
+ID10557=TJclDebugThread.ThreadInfo
+ID10558=TJclDebugThread.ThreadName
+ID10559=TJclDebugThreadList
+ID1056=COR_VTABLE_FROM_UNMANAGED
+ID10560=TJclDebugThreadList.Create
+ID10561=TJclDebugThreadList.Destroy
+ID10562=TJclDebugThreadList.DoSyncException@TJclDebugThread
+ID10563=TJclDebugThreadList.DoSyncThreadRegistered
+ID10564=TJclDebugThreadList.DoSyncThreadUnregistered
+ID10565=TJclDebugThreadList.DoThreadRegistered@TThread
+ID10566=TJclDebugThreadList.DoThreadUnregistered@TThread
+ID10567=TJclDebugThreadList.FList
+ID10568=TJclDebugThreadList.FLock
+ID10569=TJclDebugThreadList.FOnSyncException
+ID1057=COR_VTABLEGAP_NAME_LENGTH
+ID10570=TJclDebugThreadList.FOnThreadRegistered
+ID10571=TJclDebugThreadList.FOnThreadUnregistered
+ID10572=TJclDebugThreadList.FReadLock
+ID10573=TJclDebugThreadList.FRegSyncThreadID
+ID10574=TJclDebugThreadList.FUnregSyncThreadID
+ID10575=TJclDebugThreadList.GetThreadClassNames@DWORD
+ID10576=TJclDebugThreadList.GetThreadHandle@Integer
+ID10577=TJclDebugThreadList.GetThreadID@Integer
+ID10578=TJclDebugThreadList.GetThreadIDCount
+ID10579=TJclDebugThreadList.GetThreadInfos@DWORD
+ID1058=CorBindToCurrentRuntime@PWideChar@TCLSID@TIID@
+ID10580=TJclDebugThreadList.GetThreadNames@DWORD
+ID10581=TJclDebugThreadList.GetThreadValues@DWORD@Integer
+ID10582=TJclDebugThreadList.IndexOfThreadID@DWORD
+ID10583=TJclDebugThreadList.InternalRegisterThread@TThread@string
+ID10584=TJclDebugThreadList.InternalUnregisterThread@TThread
+ID10585=TJclDebugThreadList.Lock
+ID10586=TJclDebugThreadList.OnSyncException
+ID10587=TJclDebugThreadList.OnThreadRegistered
+ID10588=TJclDebugThreadList.OnThreadUnregistered
+ID10589=TJclDebugThreadList.RegisterThread@TThread@string
+ID1059=CorBindToRuntime@PWideChar@PWideChar@TCLSID@TIID@
+ID10590=TJclDebugThreadList.ThreadClassNames
+ID10591=TJclDebugThreadList.ThreadHandles
+ID10592=TJclDebugThreadList.ThreadIDCount
+ID10593=TJclDebugThreadList.ThreadIDs
+ID10594=TJclDebugThreadList.ThreadInfos
+ID10595=TJclDebugThreadList.ThreadNames
+ID10596=TJclDebugThreadList.UnregisterThread@TThread
+ID10597=TJclDebugThreadNotifyEvent
+ID10598=TJclDecompressStream
+ID10599=TJclDecompressStream.Create@TStream
+ID106=!!OVERLOADED_LineNumberFromAddr_TJclTD32InfoScanner
+ID1060=CorBindToRuntimeByCfg@IStream@DWORD@DWORD@TCLSID@TIID@
+ID10600=TJclDefaultUnitVersioningProvider
+ID10601=TJclDefaultUnitVersioningProvider.Create
+ID10602=TJclDefaultUnitVersioningProvider.Destroy
+ID10603=TJclDefaultUnitVersioningProvider.FModules
+ID10604=TJclDefaultUnitVersioningProvider.IndexOfInstance@THandle
+ID10605=TJclDefaultUnitVersioningProvider.LoadModuleUnitVersioningInfo@THandle
+ID10606=TJclDefaultUnitVersioningProvider.ReleaseModuleUnitVersioningInfo@THandle
+ID10607=TJclDelegatedStream
+ID10608=TJclDelegatedStream.FOnRead
+ID10609=TJclDelegatedStream.FOnSeek
+ID1061=CorBindToRuntimeEx@PWideChar@PWideChar@DWORD@TCLSID@TIID@
+ID10610=TJclDelegatedStream.FOnSize
+ID10611=TJclDelegatedStream.FOnWrite
+ID10612=TJclDelegatedStream.OnRead
+ID10613=TJclDelegatedStream.OnSeek
+ID10614=TJclDelegatedStream.OnSize
+ID10615=TJclDelegatedStream.OnWrite
+ID10616=TJclDelegatedStream.Read@@Longint
+ID10617=TJclDelegatedStream.Seek@Int64@TSeekOrigin
+ID10618=TJclDelegatedStream.SetSize@Int64
+ID10619=TJclDelegatedStream.Write@@Longint
+ID1062=CorBindToRuntimeHost@PWideChar@PWideChar@PWideChar@Pointer@DWORD@TCLSID@TIID@
+ID10620=TJclDelphiInstallation
+ID10621=TJclDelphiInstallation.ConfigFileName@string
+ID10622=TJclDelphiInstallation.Create@string
+ID10623=TJclDelphiInstallation.Destroy
+ID10624=TJclDelphiInstallation.GetEnvironmentVariables
+ID10625=TJclDelphiInstallation.GetLatestUpdatePackForVersion@Integer
+ID10626=TJclDelphiInstallation.InstallPackage@string@string@string
+ID10627=TJclDelphiInstallation.PackageSourceFileExtension
+ID10628=TJclDelphiInstallation.ProjectSourceFileExtension
+ID10629=TJclDelphiInstallation.RadToolKind
+ID1063=CorExitProcess@Integer
+ID10630=TJclDelphiInstallation.RadToolName
+ID10631=TJclDisplacedSummaryInformation
+ID10632=TJclDisplacedSummaryInformation.GetFMTID
+ID10633=TJclDocSummaryInformation
+ID10634=TJclDocSummaryInformation.ByteCount
+ID10635=TJclDocSummaryInformation.Category
+ID10636=TJclDocSummaryInformation.Company
+ID10637=TJclDocSummaryInformation.DocParts
+ID10638=TJclDocSummaryInformation.GetFMTID
+ID10639=TJclDocSummaryInformation.HeadingPair
+ID1064=CorMarkThreadInThreadPool
+ID10640=TJclDocSummaryInformation.HiddenCount
+ID10641=TJclDocSummaryInformation.LineCount
+ID10642=TJclDocSummaryInformation.LinksDirty
+ID10643=TJclDocSummaryInformation.Manager
+ID10644=TJclDocSummaryInformation.MMClipCount
+ID10645=TJclDocSummaryInformation.NoteCount
+ID10646=TJclDocSummaryInformation.ParCount
+ID10647=TJclDocSummaryInformation.PresFormat
+ID10648=TJclDocSummaryInformation.Scale
+ID10649=TJclDocSummaryInformation.SlideCount
+ID1065=Cos@TRectComplex
+ID10650=TJclDRMSummaryInformation
+ID10651=TJclDRMSummaryInformation.GetFMTID
+ID10652=TJclEasyStream
+ID10653=TJclEasyStream.IsEqual@TStream
+ID10654=TJclEasyStream.ReadBoolean
+ID10655=TJclEasyStream.ReadChar
+ID10656=TJclEasyStream.ReadCString
+ID10657=TJclEasyStream.ReadCurrency
+ID10658=TJclEasyStream.ReadDateTime
+ID10659=TJclEasyStream.ReadDouble
+ID1066=CosH@TRectComplex
+ID10660=TJclEasyStream.ReadExtended
+ID10661=TJclEasyStream.ReadInt64
+ID10662=TJclEasyStream.ReadInteger
+ID10663=TJclEasyStream.ReadShortString
+ID10664=TJclEasyStream.ReadSingle
+ID10665=TJclEasyStream.ReadSizedString
+ID10666=TJclEasyStream.WriteBoolean@Boolean
+ID10667=TJclEasyStream.WriteChar@Char
+ID10668=TJclEasyStream.WriteCurrency@Currency
+ID10669=TJclEasyStream.WriteDateTime@TDateTime
+ID1067=Cot@TRectComplex
+ID10670=TJclEasyStream.WriteDouble@Double
+ID10671=TJclEasyStream.WriteExtended@Extended
+ID10672=TJclEasyStream.WriteInt64@Int64
+ID10673=TJclEasyStream.WriteInteger@Integer
+ID10674=TJclEasyStream.WriteShortString@ShortString
+ID10675=TJclEasyStream.WriteSingle@Single
+ID10676=TJclEasyStream.WriteSizedString@string
+ID10677=TJclEasyStream.WriteStringDelimitedByNull@string
+ID10678=TJclEmptyStream
+ID10679=TJclEmptyStream.Read@@Longint
+ID1068=CotH@TRectComplex
+ID10680=TJclEmptyStream.Seek@Int64@TSeekOrigin
+ID10681=TJclEmptyStream.SetSize@Int64
+ID10682=TJclEmptyStream.SetSize@Longint
+ID10683=TJclEmptyStream.Write@@Longint
+ID10684=TJclEntry
+ID10685=TJclEntry.Key
+ID10686=TJclEntry.Value
+ID10687=TJclEntryArray
+ID10688=TJclEventStream
+ID10689=TJclEventStream.Create@TStream@TStreamNotifyEvent@Boolean
+ID1069=CountBitsCleared@Cardinal
+ID10690=TJclEventStream.DoAfterStreamChange
+ID10691=TJclEventStream.DoBeforeStreamChange
+ID10692=TJclEventStream.DoNotification
+ID10693=TJclEventStream.FNotification
+ID10694=TJclEventStream.OnNotification
+ID10695=TJclEventStream.Read@@Longint
+ID10696=TJclEventStream.Seek@Int64@TSeekOrigin
+ID10697=TJclEventStream.Seek@Longint@Word
+ID10698=TJclEventStream.SetSize@Int64
+ID10699=TJclEventStream.SetSize@Longint
+ID107=!!OVERLOADED_Load_TJclClrAppDomain
+ID1070=CountBitsCleared@Int64
+ID10700=TJclEventStream.Write@@Longint
+ID10701=TJclExceptNotifyPriority
+ID10702=TJclExceptNotifyPriority.npFirstChain
+ID10703=TJclExceptNotifyPriority.npNormal
+ID10704=TJclExceptNotifyProcEx
+ID10705=TJclFileMappingRoundOffset
+ID10706=TJclFileMappingRoundOffset.rvDown
+ID10707=TJclFileMappingRoundOffset.rvUp
+ID10708=TJclFileMappingStream
+ID10709=TJclFileMappingStream.Close
+ID1071=CountBitsCleared@Integer
+ID10710=TJclFileMappingStream.Create@string@Word
+ID10711=TJclFileMappingStream.Destroy
+ID10712=TJclFileMappingStream.FFileHandle
+ID10713=TJclFileMappingStream.FMapping
+ID10714=TJclFileMappingStream.Write@@Longint
+ID10715=TJclFileMaskComparator
+ID10716=TJclFileMaskComparator.Compare@string
+ID10717=TJclFileMaskComparator.Count
+ID10718=TJclFileMaskComparator.Create
+ID10719=TJclFileMaskComparator.CreateMultiMasks
+ID1072=CountBitsCleared@Pointer@Cardinal
+ID10720=TJclFileMaskComparator.Exts
+ID10721=TJclFileMaskComparator.FExts
+ID10722=TJclFileMaskComparator.FFileMask
+ID10723=TJclFileMaskComparator.FileMask
+ID10724=TJclFileMaskComparator.FNames
+ID10725=TJclFileMaskComparator.FSeparator
+ID10726=TJclFileMaskComparator.FWildChars
+ID10727=TJclFileMaskComparator.GetCount
+ID10728=TJclFileMaskComparator.GetExts@Integer
+ID10729=TJclFileMaskComparator.GetMasks@Integer
+ID1073=CountBitsCleared@Shortint
+ID10730=TJclFileMaskComparator.GetNames@Integer
+ID10731=TJclFileMaskComparator.Masks
+ID10732=TJclFileMaskComparator.Names
+ID10733=TJclFileMaskComparator.Separator
+ID10734=TJclFileMaskComparator.SetFileMask@string
+ID10735=TJclFileMaskComparator.SetSeparator@Char
+ID10736=TJclFilePropertySet
+ID10737=TJclFilePropertySet.Create@IPropertyStorage
+ID10738=TJclFilePropertySet.DeleteProperty@TPropID
+ID10739=TJclFilePropertySet.DeleteProperty@WideString
+ID1074=CountBitsCleared@Smallint
+ID10740=TJclFilePropertySet.DeletePropertyName@TPropID
+ID10741=TJclFilePropertySet.Destroy
+ID10742=TJclFilePropertySet.EnumProperties@TJclFileSummaryPropCallback
+ID10743=TJclFilePropertySet.FPropertyStorage
+ID10744=TJclFilePropertySet.GetAnsiStringProperty@Integer
+ID10745=TJclFilePropertySet.GetBooleanProperty@Integer
+ID10746=TJclFilePropertySet.GetBSTRProperty@Integer
+ID10747=TJclFilePropertySet.GetCardinalProperty@Integer
+ID10748=TJclFilePropertySet.GetClipDataProperty@Integer
+ID10749=TJclFilePropertySet.GetFileTimeProperty@Integer
+ID1075=CountBitsCleared@Word
+ID10750=TJclFilePropertySet.GetFMTID
+ID10751=TJclFilePropertySet.GetIntegerProperty@Integer
+ID10752=TJclFilePropertySet.GetProperty@TPropID
+ID10753=TJclFilePropertySet.GetProperty@WideString
+ID10754=TJclFilePropertySet.GetPropertyName@TPropID
+ID10755=TJclFilePropertySet.GetTCALPSTRProperty@Integer
+ID10756=TJclFilePropertySet.GetTCAPROPVARIANTProperty@Integer
+ID10757=TJclFilePropertySet.GetWideStringProperty@Integer
+ID10758=TJclFilePropertySet.GetWordProperty@Integer
+ID10759=TJclFilePropertySet.SetAnsiStringProperty@Integer@AnsiString
+ID1076=CountBitsSet@Cardinal
+ID10760=TJclFilePropertySet.SetBooleanProperty@Integer@Boolean
+ID10761=TJclFilePropertySet.SetBSTRProperty@Integer@WideString
+ID10762=TJclFilePropertySet.SetCardinalProperty@Integer@Cardinal
+ID10763=TJclFilePropertySet.SetClipDataProperty@Integer@PClipData
+ID10764=TJclFilePropertySet.SetFileTimeProperty@Integer@TFileTime
+ID10765=TJclFilePropertySet.SetIntegerProperty@Integer@Integer
+ID10766=TJclFilePropertySet.SetProperty@TPropID@TPropVariant
+ID10767=TJclFilePropertySet.SetProperty@WideString@TPropVariant@TPropID
+ID10768=TJclFilePropertySet.SetPropertyName@TPropID@WideString
+ID10769=TJclFilePropertySet.SetTCALPSTRProperty@Integer@TCALPSTR
+ID1077=CountBitsSet@Int64
+ID10770=TJclFilePropertySet.SetTCAPROPVARIANTProperty@Integer@TCAPROPVARIANT
+ID10771=TJclFilePropertySet.SetWideStringProperty@Integer@WideString
+ID10772=TJclFilePropertySet.SetWordProperty@Integer@Word
+ID10773=TJclFilePropertySetClass
+ID10774=TJclFileStream
+ID10775=TJclFileStream.Create@string@Word@Cardinal
+ID10776=TJclFileStream.Destroy
+ID10777=TJclFileSummary
+ID10778=TJclFileSummary.AccessMode
+ID10779=TJclFileSummary.Create@WideString@TJclFileSummaryAccess@TJclFileSummaryShare@Boolean@Boolean
+ID1078=CountBitsSet@Integer
+ID10780=TJclFileSummary.CreatePropertySet@TJclFilePropertySetClass@Boolean
+ID10781=TJclFileSummary.DeletePropertySet@TGUID
+ID10782=TJclFileSummary.DeletePropertySet@TJclFilePropertySetClass
+ID10783=TJclFileSummary.Destroy
+ID10784=TJclFileSummary.EnumPropertySet@TJclFileSummaryPropSetCallback
+ID10785=TJclFileSummary.FAccessMode
+ID10786=TJclFileSummary.FFileName
+ID10787=TJclFileSummary.FileName
+ID10788=TJclFileSummary.FShareMode
+ID10789=TJclFileSummary.FStorage
+ID1079=CountBitsSet@Pointer@Cardinal
+ID10790=TJclFileSummary.GetPropertySet@TGUID
+ID10791=TJclFileSummary.GetPropertySet@TGUID@
+ID10792=TJclFileSummary.GetPropertySet@TJclFilePropertySetClass@
+ID10793=TJclFileSummary.ShareMode
+ID10794=TJclFileSummaryAccess
+ID10795=TJclFileSummaryAccess.fsaRead
+ID10796=TJclFileSummaryAccess.fsaReadWrite
+ID10797=TJclFileSummaryAccess.fsaWrite
+ID10798=TJclFileSummaryInformation
+ID10799=TJclFileSummaryInformation.AppName
+ID108=!!OVERLOADED_LoadFromFile_TEDISEFFile
+ID1080=CountBitsSet@ShortInt
+ID10800=TJclFileSummaryInformation.Author
+ID10801=TJclFileSummaryInformation.CharCount
+ID10802=TJclFileSummaryInformation.Comments
+ID10803=TJclFileSummaryInformation.CreationTime
+ID10804=TJclFileSummaryInformation.EditTime
+ID10805=TJclFileSummaryInformation.GetFMTID
+ID10806=TJclFileSummaryInformation.KeyWords
+ID10807=TJclFileSummaryInformation.LastAuthor
+ID10808=TJclFileSummaryInformation.LastPrintedTime
+ID10809=TJclFileSummaryInformation.LastSaveTime
+ID1081=CountBitsSet@Smallint
+ID10810=TJclFileSummaryInformation.PageCount
+ID10811=TJclFileSummaryInformation.RevNumber
+ID10812=TJclFileSummaryInformation.Security
+ID10813=TJclFileSummaryInformation.Subject
+ID10814=TJclFileSummaryInformation.Template
+ID10815=TJclFileSummaryInformation.Thumnail
+ID10816=TJclFileSummaryInformation.Title
+ID10817=TJclFileSummaryInformation.WordCount
+ID10818=TJclFileSummaryPropCallback
+ID10819=TJclFileSummaryPropSetCallback
+ID1082=CountBitsSet@Word
+ID10820=TJclFileSummaryShare
+ID10821=TJclFileSummaryShare.fssDenyAll
+ID10822=TJclFileSummaryShare.fssDenyNone
+ID10823=TJclFileSummaryShare.fssDenyRead
+ID10824=TJclFileSummaryShare.fssDenyWrite
+ID10825=TJclFlatSet
+ID10826=TJclFlatSet.Clear
+ID10827=TJclFlatSet.Create
+ID10828=TJclFlatSet.Destroy
+ID10829=TJclFlatSet.FBits
+ID1083=CountObject@IJclIntfIterator@Integer@IInterface@TIntfCompare
+ID10830=TJclFlatSet.GetBit@Integer
+ID10831=TJclFlatSet.GetRange@Integer@Integer@Boolean
+ID10832=TJclFlatSet.Invert
+ID10833=TJclFlatSet.SetBit@Integer@Boolean
+ID10834=TJclFlatSet.SetRange@Integer@Integer@Boolean
+ID10835=TJclGDataSymbolInfo
+ID10836=TJclGlobalProcSymbolInfo
+ID10837=TJclGZIPCompressionStream
+ID10838=TJclGZIPCompressionStream.AutoSetTime
+ID10839=TJclGZIPCompressionStream.Comment
+ID1084=CountObject@IJclIterator@Integer@TObject@TCompare
+ID10840=TJclGZIPCompressionStream.Create@TStream@TJclCompressionLevel
+ID10841=TJclGZIPCompressionStream.Destroy
+ID10842=TJclGZIPCompressionStream.DosTime
+ID10843=TJclGZIPCompressionStream.ExtraField
+ID10844=TJclGZIPCompressionStream.FatSystem
+ID10845=TJclGZIPCompressionStream.FAutoSetTime
+ID10846=TJclGZIPCompressionStream.FComment
+ID10847=TJclGZIPCompressionStream.FCompressionLevel
+ID10848=TJclGZIPCompressionStream.FDataCRC32
+ID10849=TJclGZIPCompressionStream.FExtraField
+ID1085=CountObject@IJclStrIterator@Integer@string@TStrCompare
+ID10850=TJclGZIPCompressionStream.FFatSystem
+ID10851=TJclGZIPCompressionStream.FFlags
+ID10852=TJclGZIPCompressionStream.FFooterWritten
+ID10853=TJclGZIPCompressionStream.FHeaderWritten
+ID10854=TJclGZIPCompressionStream.Flags
+ID10855=TJclGZIPCompressionStream.Flush
+ID10856=TJclGZIPCompressionStream.FOriginalFileName
+ID10857=TJclGZIPCompressionStream.FOriginalSize
+ID10858=TJclGZIPCompressionStream.FUnixTime
+ID10859=TJclGZIPCompressionStream.FZLibStream
+ID1086=CP_ACP
+ID10860=TJclGZIPCompressionStream.GetDosTime
+ID10861=TJclGZIPCompressionStream.GetUnixTime
+ID10862=TJclGZIPCompressionStream.OriginalFileName
+ID10863=TJclGZIPCompressionStream.Reset
+ID10864=TJclGZIPCompressionStream.SetDosTime@TDateTime
+ID10865=TJclGZIPCompressionStream.SetUnixTime@Cardinal
+ID10866=TJclGZIPCompressionStream.UnixTime
+ID10867=TJclGZIPCompressionStream.Write@@Longint
+ID10868=TJclGZIPCompressionStream.WriteHeader
+ID10869=TJclGZIPCompressionStream.ZLibStreamProgress@TObject
+ID1087=CP_MACCP
+ID10870=TJclGZIPDecompressionStream
+ID10871=TJclGZIPDecompressionStream.AutoCheckDataCRC32
+ID10872=TJclGZIPDecompressionStream.Comment
+ID10873=TJclGZIPDecompressionStream.CompressedDataSize
+ID10874=TJclGZIPDecompressionStream.CompressionLevel
+ID10875=TJclGZIPDecompressionStream.ComputedDataCRC32
+ID10876=TJclGZIPDecompressionStream.ComputedHeaderCRC16
+ID10877=TJclGZIPDecompressionStream.Create@TStream@Boolean
+ID10878=TJclGZIPDecompressionStream.Destroy
+ID10879=TJclGZIPDecompressionStream.DosTime
+ID1088=CP_OEMCP
+ID10880=TJclGZIPDecompressionStream.ExtraField
+ID10881=TJclGZIPDecompressionStream.FatSystem
+ID10882=TJclGZIPDecompressionStream.FAutoCheckDataCRC32
+ID10883=TJclGZIPDecompressionStream.FComment
+ID10884=TJclGZIPDecompressionStream.FCompressedDataSize
+ID10885=TJclGZIPDecompressionStream.FCompressedDataStream
+ID10886=TJclGZIPDecompressionStream.FComputedDataCRC32
+ID10887=TJclGZIPDecompressionStream.FComputedHeaderCRC16
+ID10888=TJclGZIPDecompressionStream.FDataEnded
+ID10889=TJclGZIPDecompressionStream.FDataSize
+ID1089=CP_SYMBOL
+ID10890=TJclGZIPDecompressionStream.FDataStarted
+ID10891=TJclGZIPDecompressionStream.FExtraField
+ID10892=TJclGZIPDecompressionStream.FFooter
+ID10893=TJclGZIPDecompressionStream.FHeader
+ID10894=TJclGZIPDecompressionStream.Flags
+ID10895=TJclGZIPDecompressionStream.FOriginalFileName
+ID10896=TJclGZIPDecompressionStream.FStoredHeaderCRC16
+ID10897=TJclGZIPDecompressionStream.FZLibStream
+ID10898=TJclGZIPDecompressionStream.GetCompressedDataSize
+ID10899=TJclGZIPDecompressionStream.GetComputedDataCRC32
+ID109=!!OVERLOADED_MoveBy_TJclScreenCursor
+ID1090=CP_THREAD_ACP
+ID10900=TJclGZIPDecompressionStream.GetDosTime
+ID10901=TJclGZIPDecompressionStream.GetFatSystem
+ID10902=TJclGZIPDecompressionStream.GetFlags
+ID10903=TJclGZIPDecompressionStream.GetOriginalDataSize
+ID10904=TJclGZIPDecompressionStream.GetStoredDataCRC32
+ID10905=TJclGZIPDecompressionStream.OriginalDataSize
+ID10906=TJclGZIPDecompressionStream.OriginalFileName
+ID10907=TJclGZIPDecompressionStream.Read@@Longint
+ID10908=TJclGZIPDecompressionStream.ReadCompressedData@TObject@@Longint
+ID10909=TJclGZIPDecompressionStream.StoredDataCRC32
+ID1091=CP_UTF7
+ID10910=TJclGZIPDecompressionStream.StoredHeaderCRC16
+ID10911=TJclGZIPDecompressionStream.UnixTime
+ID10912=TJclGZIPDecompressionStream.ZLibStreamProgress@TObject
+ID10913=TJclGZIPFatSystem
+ID10914=TJclGZIPFatSystem.gfsAcorn
+ID10915=TJclGZ...
[truncated message content] |
|
From: <ou...@us...> - 2007-07-21 20:40:43
|
Revision: 2089
http://svn.sourceforge.net/jcl/?rev=2089&view=rev
Author: outchy
Date: 2007-07-21 13:40:41 -0700 (Sat, 21 Jul 2007)
Log Message:
-----------
Some documentation for streams (continued)
Modified Paths:
--------------
trunk/help/Streams.dtx
Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx 2007-07-21 08:53:50 UTC (rev 2088)
+++ trunk/help/Streams.dtx 2007-07-21 20:40:41 UTC (rev 2089)
@@ -437,4 +437,696 @@
Result:
Returns the number of bytes that were effectively written.
Donator:
- Florent Ouchet
\ No newline at end of file
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream
+Summary:
+ A subset of an existing stream.
+Description:
+ TJclScopedStream is a virtual stream implementing a position
+ translation of the data stream. On creation, the current
+ position in source stream is translated to Position=0, next
+ bytes from source stream will follow. A restriction in range
+ of bytes to be read/written is available too (see
+ TJclScopedStream.MaxSize).
+See also:
+ TJclScopedStream.MaxSize
+--------------------------------------------------------------------------------
+@@TJclScopedStream.FCurrentPos
+Description:
+ Private field to store position in this stream referential.
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream.FMaxSize
+Description:
+ Private field to store maximum position available (if any).
+See Also:
+ TJclScopedStream.MaxSize
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream.FParentStream
+Description:
+ Private field to store a reference to the stream containing
+ the data.
+Donator:
+ Florent Ouchet
+See Also:
+ TJclScopedStream.ParentStream
+--------------------------------------------------------------------------------
+@@TJclScopedStream.FStartPos
+Description:
+ Private field to store the original position of ParentStream
+ \on creation of this object
+Donator:
+ Florent Ouchet
+See Also:
+ TJclScopedStream.StartPos TJclScopedStream.ParentStream
+--------------------------------------------------------------------------------
+@@TJclScopedStream.MaxSize
+Summary:
+ Data size limitation.
+Description:
+ This property exposes the maximum size for this virtual stream.
+
+ If set (\<\> 0), only bytes between StartPos and
+ StartPos+MaxSize-1 will be available in data stream.
+
+ If not set (=0), every bytes following position StartPos will
+ be available in data stream.
+Donator:
+ Florent Ouchet
+See Also:
+ TJclScopedStream.ParentStream TJclScopedStream.StartPos
+--------------------------------------------------------------------------------
+@@TJclScopedStream.ParentStream
+Summary:
+ Data stream providing data.
+Description:
+ This property exposes the stream providing and storing data
+ for this virtual stream.
+Donator:
+ Florent Ouchet
+See Also:
+ TJclScopedStream.StartPos TJclScopedStream.MaxSize
+--------------------------------------------------------------------------------
+@@TJclScopedStream.StartPos
+Summary:
+ Origin of the translation in position
+Description:
+ This property exposes the initial position of the data stream
+ when this virtual stream was created.
+Donator:
+ Florent Ouchet
+See Also:
+ TJclScopedStream.ParentStream TJclScopedStream.MaxSize
+--------------------------------------------------------------------------------
+@@TJclScopedStream.Create@TStream@Int64
+Summary:
+ Constructor of the TJclScopedStream class.
+Description:
+ Constructor of the TJclScopedStream class. On creation, the
+ current position of ParentStream is stored in StartPos
+ property.
+Parameters:
+ AParentStream - Data stream storing data that can be
+ read/written by this virtual stream.
+ AMaxSize - Maximum size of this virtual stream (set 0
+ not to limit).
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream.Read@@Longint
+Description:
+ Overridden method of TStream.Read, all calls to this methods
+ are redirected to the ParentStream.Read.
+See Also:
+TJclScopedStream.Seek TJclScopedStream.Write
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream.Seek@Int64@TSeekOrigin
+Description:
+ Overridden method of TStream.Seek, all calls to this methods
+ are redirected to the ParentStream.Seek.
+See Also:
+ TJclScopedStream.Read TJclScopedStream.Write
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclScopedStream.Write@@Longint
+Description:
+ Overridden method of TStream.Write, all calls to this methods
+ are redirected to the ParentStream.Write.
+See Also:
+ TJclScopedStream.Read TJclScopedStream.Seek
+Donator:
+ Florent Ouchet
+--------------------------------------------------------------------------------
+@@TJclEasyStream
+Description:
+ The TJclEasyStream class helps read and write operations of
+ common data types to stream.
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclEasyStream.IsEqual@TStream
+Description:
+ The IsEqual method compares data of this instance to data of
+ reference stream for difference. Result is set accordingly.
+Donator:
+ Heinz Zastrau
+Parameters:
+ Stream - Reference stream for comparisons
+Returns:
+ \Returns true if streams are equal, false otherwise.
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadBoolean
+Description:
+ The ReadBoolean method reads a boolean value from this stream (1 byte length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteBoolean TJclEasyStream.ReadChar
+ TJclEasyStream.ReadCString TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns
+ Boolean value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadChar
+Description:
+ The ReadChar method reads a character value from this stream (1 byte length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteChar TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadCString TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ Character value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadCString
+Description:
+ The ReadCString method reads a C-like string (null terminated) from this stream.
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteCString TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCurrency
+ TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ String value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadCurrency
+Description:
+ The ReadCurrency method reads a currency value from this stream
+ (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteCurrency TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadDateTime TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ Currency value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadDateTime
+Description:
+ The ReadDateTime method reads a TDateTime value from this stream
+ (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteDateTime TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDouble
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ TDateTime value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadDouble
+Description:
+ The ReadDouble method reads a double precision floating point
+ value from this stream (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteDouble TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadExtended TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ Double precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadExtended
+Description:
+ The ReadExtended method reads an extended precision floating
+ point value from this stream (10 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteExtended TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadInt64
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ Extended precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadInt64
+Description:
+ The ReadInt64 method reads a 64-bit integer value from this stream
+ (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteInt64 TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInteger TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ 64 bit integer value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadInteger
+Description:
+ The ReadInteger method reads a 32 bit integer value from this stream
+ (4 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteInteger TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64 TJclEasyStream.ReadShortString
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ 32 bit integer value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadShortString
+Description:
+ The ReadShortString method reads a short string value from this stream
+ (max 255 characters).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteShortString TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadSingle TJclEasyStream.ReadSizedString
+Returns:
+ \Short string value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadSingle
+Description:
+ The ReadSingle method reads a single precision floating point
+ value from this stream (4 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteSingle TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString TJclEasyStream.ReadSizedString
+Returns:
+ Single precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.ReadSizedString
+Description:
+ The ReadSizedString method reads a prefixed length string
+ value from this stream (max 2G characters).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.WriteSizedString TJclEasyStream.ReadBoolean
+ TJclEasyStream.ReadChar TJclEasyStream.ReadCString
+ TJclEasyStream.ReadCurrency TJclEasyStream.ReadDateTime
+ TJclEasyStream.ReadDouble TJclEasyStream.ReadExtended
+ TJclEasyStream.ReadInt64 TJclEasyStream.ReadInteger
+ TJclEasyStream.ReadShortString TJclEasyStream.ReadSingle
+Returns:
+ String value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteBoolean@Boolean
+Description:
+ The WriteBoolean method writes a boolean value to this stream
+ (1 byte length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadBoolean TJclEasyStream.WriteChar
+ TJclEasyStream.WriteCurrency TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Boolean value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteChar@Char
+Description:
+ The WriteChar method writes a character value to this stream
+ (1 byte length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadChar TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteCurrency TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Character value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteCurrency@Currency
+Description:
+ The WriteCurrency method writes a currency value to this
+ stream (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadCurrency TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteDateTime
+ TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Currency value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteDateTime@TDateTime
+Description:
+ The WriteDateTime method writes a TDateTime value to this
+ stream (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadDateTime TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDouble TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - TDateTime value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteDouble@Double
+Description:
+ The WriteDouble method writes a double precision floating
+ point value to this stream (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadDouble TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteExtended
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Double precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteExtended@Extended
+Description:
+ The WriteExtended method writes an extended precision
+ floating point value to this stream (10 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadExtended TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteInt64 TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Extended precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteInt64@Int64
+Description:
+ The WriteInt64 method writes a 64 bit integer value to this
+ stream (8 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadInt64 TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInteger
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - 64 bit integer value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteInteger@Integer
+Description:
+ The WriteInteger method writes a 32 bit integer value to this
+ stream (4 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadInteger TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteShortString TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - 32 bit integer value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteShortString@ShortString
+Description:
+ The WriteShortString method writes a short string value to
+ this stream (max 255 characters).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadShortString TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Short string value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteSingle@Single
+Description:
+ The WriteSingle method writes a single precision floating
+ point value to this stream (4 bytes length).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadSingle TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSizedString
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters:
+ Value - Single precision floating point value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteSizedString@string
+Description:
+ The WriteSizedString method writes a prefixed length string
+ value to this stream (max 2G characters).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadSizedString TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle
+ TJclEasyStream.WriteStringDelimitedByNull
+Parameters
+ Value - String value
+--------------------------------------------------------------------------------
+@@TJclEasyStream.WriteStringDelimitedByNull@string
+Description:
+ The WriteStringDelimitedByNull method writes a C-like string
+ value to this stream (max 2G characters).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEasyStream.ReadCString TJclEasyStream.WriteBoolean
+ TJclEasyStream.WriteChar TJclEasyStream.WriteCurrency
+ TJclEasyStream.WriteDateTime TJclEasyStream.WriteDouble
+ TJclEasyStream.WriteExtended TJclEasyStream.WriteInt64
+ TJclEasyStream.WriteInteger TJclEasyStream.WriteShortString
+ TJclEasyStream.WriteSingle TJclEasyStream.WriteSizedString
+Parameters:
+ Value - String value
+--------------------------------------------------------------------------------
+@@TJclEventStream
+Summary:
+ Stream with notification of progression.
+Description:
+ The TJclEventStream class triggers an event every time a
+ change is made to the stream. This class is adapted to update
+ progression bars. The event parameters contain current
+ position and size of the stream.
+
+ All operations use data from stream passed as a parameter to
+ the constructor.
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclDelegatedStream
+--------------------------------------------------------------------------------
+@@TJclEventStream.FNotification
+Description:
+ Private field to store event handler
+See Also:
+ TJclEventStream.OnNotification
+Donator:
+ Heinz Zastrau
+--------------------------------------------------------------------------------
+@@TJclEventStream.OnNotification
+Summary:
+ Notification event
+Description:
+ The OnNotification event is fired on every operations on the
+ stream (read/write/seek).
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEventStream.Read TJclEventStream.Seek
+ TJclEventStream.SetSize TJclEventStream.Write
+--------------------------------------------------------------------------------
+@@TStreamNotifyEvent
+Parameters:
+ Sender - The instance that fired the event
+ Position - Position of the stream after latest operation
+ Size - Size of the stream after latest operation
+--------------------------------------------------------------------------------
+@@TJclEventStream.Create@TStream@TStreamNotifyEvent@Boolean
+Summary:
+ Constructor of the TJclEventStream class.
+Description:
+ Create a new instance of the TJclEventStream class.
+Parameters:
+ AStream - Stream where data are written/read
+ ANotification - Notification handler
+ AOwnsStream - if set, current stream is destroyed when this
+ instance is destroyed
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEventStream.OnNotification
+--------------------------------------------------------------------------------
+@@TJclEventStream.DoAfterStreamChange
+Description:
+ Overridden method to notify that data stream is changed. This
+ method sends new position and size.
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEventStream.DoBeforeStreamChange
+--------------------------------------------------------------------------------
+@@TJclEventStream.DoBeforeStreamChange
+Description:
+ Overridden method to notify that data stream is about to
+ change. This method sends old position and size.
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEventStream.DoAfterStreamChange
+--------------------------------------------------------------------------------
+@@TJclEventStream.DoNotification
+Description:
+ Internal help to trigger the OnNotification event.
+Donator:
+ Heinz Zastrau
+See Also:
+ TJclEventStream.OnNotification
+--------------------------------------------------------------------------------
+@@TJclEventStream.Read@@Longint
+Description:
+ Overridden method of TStream.Read, all calls to this methods
+ are redirected to data stream and notified to event handler.
+See Also:
+ TJclEventStream.OnNotification TJclEventStream.Seek
+ TJclEventStream.SetSize TJclEventStream.Write
+Donator:
+ Heinz Zastrau
+Parameters:
+ Buffer - Reference to a buffer to store data
+ Count - Number of bytes to be read
+Returns:
+ Effective number of bytes that were read.
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_Seek_TJclEventStream
+Description:
+ Overridden method of TStream.Seek, all calls to this methods
+ are redirected to data stream and notified to event handler.
+See Also:
+ TJclEventStream.OnNotification TJclEventStream.Read
+ TJclEventStream.SetSize TJclEventStream.Write
+Donator:
+ Heinz Zastrau
+Parameters:
+ Offset - Number of bytes to seek from the origin
+ Origin - Origin to seek from (soBeginning, soCurrent, soEnd)
+Returns:
+ New position in stream.
+--------------------------------------------------------------------------------
+@@TJclEventStream.Seek@Int64@TSeekOrigin
+<combinewith !!OVERLOADED_Seek_TJclEventStream>
+
+--------------------------------------------------------------------------------
+@@TJclEventStream.Seek@Longint@Word
+<combinewith !!OVERLOADED_Seek_TJclEventStream>
+
+--------------------------------------------------------------------------------
+@@!!OVERLOADED_SetSize_TJclEventStream
+Description:
+ Overridden method of TStream.SetSize, all calls to this
+ methods are redirected to data stream and notified to event
+ handler.
+See Also:
+ TJclEventStream.OnNotification TJclEventStream.Read
+ TJclEventStream.Seek TJclEventStream.Write
+Donator:
+ Heinz Zastrau
+Parameters:
+ NewSize - Requested new size of the stream
+--------------------------------------------------------------------------------
+@@TJclEventStream.SetSize@Int64
+<combinewith !!OVERLOADED_SetSize_TJclEventStream>
+
+--------------------------------------------------------------------------------
+@@TJclEventStream.SetSize@Longint
+<combinewith !!OVERLOADED_SetSize_TJclEventStream>
+
+--------------------------------------------------------------------------------
+@@TJclEventStream.Write@@Longint
+Description:
+ Overridden method of TStream.Write, all calls to this methods
+ are redirected to data stream and notified to event handler.
+See Also:
+ TJclEventStream.OnNotification TJclEventStream.Read
+ TJclEventStream.Seek TJclEventStream.SetSize
+Donator:
+ Heinz Zastrau
+Parameters:
+ Buffer - Reference to a buffer to retrieve data
+ Count - Number of bytes to be written
+Returns:
+ Effective number of bytes that were written.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <cyc...@us...> - 2007-07-21 08:53:51
|
Revision: 2088
http://svn.sourceforge.net/jcl/?rev=2088&view=rev
Author: cycocrew
Date: 2007-07-21 01:53:50 -0700 (Sat, 21 Jul 2007)
Log Message:
-----------
More .dtx help files updates.
Modified Paths:
--------------
trunk/help/AppInst.dtx
trunk/help/Debug.dtx
trunk/help/Math.dtx
trunk/help/Statistics.dtx
trunk/help/Strings.dtx
trunk/help/Synch.dtx
trunk/help/SysUtils.dtx
trunk/help/Unicode.dtx
Modified: trunk/help/AppInst.dtx
===================================================================
--- trunk/help/AppInst.dtx 2007-07-20 22:24:32 UTC (rev 2087)
+++ trunk/help/AppInst.dtx 2007-07-21 08:53:50 UTC (rev 2088)
@@ -84,7 +84,7 @@
To receive notifications you must override the WndProc of
your main form and include the following code (or something
along those lines):
- <pre>
+
procedure TForm1.WndProc(var Msg: TMessage);
begin
if Msg.Msg = JclAppInstances.MessageId then
@@ -95,7 +95,7 @@
end;
inherited WndProc(Msg);
end;
- </pre>
+
Note that in both instance creation and instance destruction
the Msg.LParam field contains the process ID of the affected
instance (which could be the instance itself). Also,
Modified: trunk/help/Debug.dtx
===================================================================
--- trunk/help/Debug.dtx 2007-07-20 22:24:32 UTC (rev 2087)
+++ trunk/help/Debug.dtx 2007-07-21 08:53:50 UTC (rev 2088)
@@ -64,8 +64,8 @@
Result:
If the specified handle is valid the function returns True. If the specified
handle is invalid the function returns False.
-Quick info:
- Donator: Marcel van Brakel
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@IsDebuggerAttached
<GROUP Debugging.Miscellanuous>
@@ -78,8 +78,8 @@
Result:
If the current process is running in the context of a debugger, the return value is True.
If the current process is not running in the context of a debugger, the return value is False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@EnableCrashOnCtrlScroll
<GROUP Debugging.Miscellanuous>
@@ -95,8 +95,8 @@
Enable - If set to True the crash on ctrl scroll 'feature' is enabled, if set to False it is disabled.
Result:
If the function succeeds it returns True, otherwise it returns False.
-Quick info:
- Donator: Marcel van Brakel
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@AssertKindOf
<GROUP Debugging.Diagnostics>
@@ -110,8 +110,8 @@
Parameters:
ClassName - Name of the class to test Obj for.
Obj - The object to test.
-Quick info:
- Donator: Marcel van Brakel
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@Trace
<GROUP Debugging.Diagnostics>
@@ -124,11 +124,11 @@
Notes:
If you are running your application under the control of the debugger you can view these messages using the event log dialog, 'View | Debug Windows | Event Log'. If the application is not running under the debugger the message is sent to the system debugger. If there is no system debugger active the function does nothing.
See also:
- <link TraceFmt>
- <link TraceLoc>
- <link TraceLocFmt>
-Quick info:
- Donator: Marcel van Brakel
+ TraceFmt
+ TraceLoc
+ TraceLocFmt
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TraceFmt
<GROUP Debugging.Diagnostics>
@@ -145,11 +145,11 @@
Notes:
If you are running your application under the control of the debugger you can view these messages using the event log dialog, 'View | Debug Windows | Event Log'. If the application is not running under the debugger the message is sent to the system debugger. If there is no system debugger active the function does nothing.
See also:
- <link Trace>
- <link TraceLoc>
- <link TraceLocFmt>
-Quick info:
- Donator: Marcel van Brakel
+ Trace
+ TraceLoc
+ TraceLocFmt
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TraceLoc
<GROUP Debugging.Diagnostics>
@@ -168,11 +168,11 @@
Notes:
If you are running your application under the control of the debugger you can view these messages using the event log dialog, 'View | Debug Windows | Event Log'. If the application is not running under the debugger the message is sent to the system debugger. If there is no system debugger active the function does nothing.
See also:
- <link Trace>
- <link TraceFmt>
- <link TraceLocFmt>
-Quick info:
- Donator: Marcel van Brakel
+ Trace
+ TraceFmt
+ TraceLocFmt
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TraceLocFmt
<GROUP Debugging.Diagnostics>
@@ -191,11 +191,11 @@
Notes:
If you are running your application under the control of the debugger you can view these messages using the event log dialog, 'View | Debug Windows | Event Log'. If the application is not running under the debugger the message is sent to the system debugger. If there is no system debugger active the function does nothing.
See also:
- <link Trace>
- <link TraceFmt>
- <link TraceLoc>
-Quick info:
- Donator: Marcel van Brakel
+ Trace
+ TraceFmt
+ TraceLoc
+Donator:
+ Marcel van Brakel
--------------------------------------------------------------------------------
@@TJclMapAddress
<GROUP Debugging.SourceLocations.MapParsers>
@@ -203,8 +203,8 @@
Holds location information.
Description:
TJclMapAddress holds location information in notifiers of the map parsers.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
@@TJclMapAddress.Segment
Segment number of item.
@@TJclMapAddress.Offset
@@ -213,39 +213,39 @@
@@PJclMapString
<GROUP Debugging.SourceLocations.MapParsers>
Summary:
- A map-file string
+ A map-file string.
Description:
PJclMapString holds a map-file specific string. Use the MapStringToString class
function to convert it to a normal string.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser
<GROUP Debugging.SourceLocations.MapParsers>
Summary:
- Abstract Map parser
+ Abstract Map parser.
Description:
TJclAbstractMapParser is an abstract base class for a MAP-file parser.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.ClassTableItem
Summary:
- Handler for a class item
+ Handler for a class item.
Description:
ClassTableItem is a handler for a class item (eg. CODE, DATA or BSS class) in
the map file. It get's called by the Parse method when it finds a class table item.
Parameters:
Address - Address of the class item.
Len - Length of the class item.
- - Section name of the class item (eg. ".text").
- - Class name of the class item (eg. "CODE").
-Quick info:
- Donator: Petr Vones
+ SectionName - Section name of the class item (eg. ".text").
+ GroupName - Class name of the class item (eg. "CODE").
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.SegmentItem
Summary:
- Handler for a segment item (i.e.. a Delphi unit)
+ Handler for a segment item (i.e.. a Delphi unit).
Description:
SegmentItem is a handler for a segment item (i.e.. a Delphi unit) in the map file.
It gets called by the Parse method when it finds a segment item.
@@ -254,36 +254,36 @@
Len - Length of the segment item.
GroupName - Class name of the segment item (eg. "CODE").
UnitName - Delphi unit name of the segment item (eg. "System").
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.PublicsByNameItem
Summary:
Handler for a public item in the publics by name section.
Description:
PublicsByNameItem is a handler for a public item (eg. a procedure) in the "Publics
- By Name"-section of the map file.
+ By Name" section of the map file.
It gets called by the Parse method when it finds a public item in the "Publics
- By Name"-section.
+ By Name" section.
Parameters:
Address - Address of the public item.
Name - Name of the public item.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.PublicsByValueItem
Summary:
Handler for a public item in the publics by value section.
Description:
PublicsByValueItem is a handler for a public item (eg. a procedure) in the "Publics
- By Value"-section of the map file.
+ By Value" section of the map file.
It gets called by the Parse method when it finds a public item in the "Publics
- By Value"-section.
+ By Value" section.
Parameters:
Address - Address of the public item.
Name - Name of the public item.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.LineNumberUnitItem
Summary:
@@ -295,8 +295,8 @@
Parameters:
UnitName - Name of the unit.
UnitFileName - Name of the source file.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.LineNumbersItem
Summary:
@@ -308,78 +308,78 @@
Parameters:
LineNumber - Line number for the item.
Address - Starting address for the line number.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.Create
Summary:
- Creates an instance of TJclAbstractMapParser
+ Creates an instance of TJclAbstractMapParser.
Description:
The Create method instantiates a map-parser object. Since TJclAbstractMapParser
is an abstract base class, you should not Create an instance of
- TJclAbstractMapParser directly, but rather of a descendant.</P><P>
+ TJclAbstractMapParser directly, but rather of a descendant.
If the specified file exists, a TJclFileMappingStream will be assigned to
the Stream property, referencing the map file.
Parameters:
MapFileName - Name of the map-file to associate with the parser.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.Destroy
Summary:
- Destroys an instance of TJclAbstractMapParser
+ Destroys an instance of TJclAbstractMapParser.
Description:
Destroy frees up all internal objects before freeing this instance.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.Parse
Summary:
- Parses the map file
+ Parses the map file.
Description:
Parse parses the map file specified referenced by the Stream property. It calls
different methods for items found in the file. Descendants override these methods
to store it in an internal structure.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.MapStringToStr
Summary:
Translates map file specific strings to a normal string.
Description:
- MapStringToStr translates map file specific strings to a normal string.</P><P>
+ MapStringToStr translates map file specific strings to a normal string.
If MapString points to an opening bracket, it returns the text starting
at the next character up to the closing bracket or a Carriage Return, whichever
comes first.
If MapString does not point to an opening bracket, it returns the text from
the current location up to the next space, a carriage return or a closing bracket.
Parameters:
- MapString - String to translate
+ MapString - String to translate.
Result:
If MapString = nil the function returns an empty string, otherwise it returns
translated version of the string.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.Stream
Summary:
- A stream referencing the map file
+ A stream referencing the map file.
Description:
Stream holds the a reference to the map file assigned by the Create method.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.LinkerBug
Summary:
- Is the linker bug found in the map
+ Is the linker bug found in the map.
Description:
LinkerBug holds a flag to determine if the linker bug is found in the map file.
The bug appears if a unit has >64K of data after the code and another unit
follows. The solution is to move the data to a separate unit.
See also:
- <link LinkerBugUnit>
-Quick info:
- Donator: Petr Vones
+ LinkerBugUnit
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclAbstractMapParser.LinkerBugUnitName
Summary:
@@ -388,19 +388,19 @@
LinkerBugUnit holds the name of the unit containing the linker bug. If there's
no linker bug present (ie. LinkerBug = False) LinkerBugUnit is empty.
See also:
- <link LinkerBug>
-Quick info:
- Donator: Petr Vones
+ LinkerBug
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser
<GROUP Debugging.SourceLocations.MapParsers>
Summary:
- Generic map file parser
+ Generic map file parser.
Description:
TJclMapParser is a class for a generic MAP-file parser. Items are reported to
the user through event calls.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnClassTable
Summary:
@@ -408,39 +408,39 @@
Description:
OnClassTable is the event handler for a class item in the map file. It get's called by
the ClassTableItem method when the parser finds a class table item.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnSegment
Summary:
- Event handler for a segment item (i.e.. a Delphi unit)
+ Event handler for a segment item (i.e.. a Delphi unit).
Description:
OnSegment is the event handler for a segment item (i.e.. a Delphi unit) in the map file.
It gets called by the SegmentItem method when the parser finds a segment item.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnPublicsByName
Summary:
Event handler for a public item in the publics by name section.
Description:
OnPublicsByName is the event handler for a public item (eg. a procedure) in the "Publics
- By Name"-section of the map file.
+ By Name" section of the map file.
It gets called by the PublicsByNameItem method when the parser finds a public item in
- the "Publics By Name"-section.
-Quick info:
- Donator: Petr Vones
+ the "Publics By Name" section.
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnPublicsByValue
Summary:
Event handler for a public item in the publics by value section.
Description:
OnPublicsByValue is the event handler for a public item (eg. a procedure) in the "Publics
- By Value"-section of the map file.
+ By Value" section of the map file.
It gets called by the PublicsByValueItem method when the parser finds a public item in
- the "Publics By Value"-section.
-Quick info:
- Donator: Petr Vones
+ the "Publics By Value" section.
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnLineNumberUnit
Summary:
@@ -449,8 +449,8 @@
OnLineNumberUnit is the event handler for a unit declaration in the lines section
of the map file. It gets called by the LineNumberUnitItem method when the parser
finds a unit declaration in the lines section.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapParser.OnLineNumbers
Summary:
@@ -459,18 +459,18 @@
OnLineNumbers is the event handler for a line declaration in the lines section
of the map file. It gets called by the LineNumbers method when the parser finds
a unit declaration in the lines section.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner
<GROUP Debugging.SourceLocations.MapParsers>
Summary:
- Generic map file parser
+ Generic map file parser.
Description:
TJclMapScanner is a map file scanner. The class scans the map file and holds the
result for later reference.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.Scan
Summary:
@@ -478,20 +478,20 @@
Description:
Scan scans the map file specified by Create and stores the result for later
reference.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.Create
Summary:
- Creates an instance of TJclMapScanner
+ Creates an instance of TJclMapScanner.
Description:
The Create method instantiates a map-file scanner object. After calling the
inherited Create from TJclAbstractMapParser,
the scan method will be called to scan the file.
Parameters:
MapFileName - Name of the map-file to associate with the parser.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.LineNumberFromAddr
Summary:
@@ -503,12 +503,12 @@
Result:
The line number for the specified address.
See also:
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.ModuleNameFromAddr
Summary:
@@ -520,12 +520,12 @@
Result:
The Delphi unit name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.ModuleStartFromAddr
Summary:
@@ -538,12 +538,12 @@
Result:
The starting address of the Delphi unit that contains the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.ProcNameFromAddr
Summary:
@@ -555,12 +555,12 @@
Result:
The procedure name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclMapScanner.SourceNameFromAddr
Summary:
@@ -572,39 +572,39 @@
Result:
The source file name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@JclDbgDataSignature
<GROUP Debugging.SourceLocations.BinaryDebugData>
Summary:
- Signature of Jcl Binary Debug Data
+ Signature of Jcl Binary Debug Data.
Description:
- JclDbgDataSignature is the signature of the Jcl Binary Debug Data
-Quick info:
- Donator: Petr Vones
+ JclDbgDataSignature is the signature of the Jcl Binary Debug Data.
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@JclDbgDataResName
<GROUP Debugging.SourceLocations.BinaryDebugData>
Summary:
- Resource name for binary debug data
+ Resource name for binary debug data.
Description:
JclDbgDataResName is the resource name for Jcl Binary Debug Data.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@JclDbgFileExtension
<GROUP Debugging.SourceLocations.BinaryDebugData>
Summary:
- File extension for a Jcl Binary Debug File
+ File extension for a Jcl Binary Debug File.
Description:
JclDbgFileExtension is the extension for Jcl Binary Debug Data File.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugGenerator
<GROUP Debugging.SourceLocations.BinaryDebugData>
@@ -613,26 +613,26 @@
Description:
TJclBinDebugGenerator translates the text based map file created by the linker into
a smaller, binary version. The result is saved in a memory stream.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugGenerator.CreateData
Summary:
- Translates the map file
+ Translates the map file.
Description:
CreateData translates the text based map file into a binary version and stores it
in a memorystream, referenced by the DataStream
- property. CreateData gets called by the Create method automatically.</P><P>
+ property. CreateData gets called by the Create method automatically.
Literal strings are compressed into a 6-bit character, which results in a compression of
3:4. Furthermore, it doesn't store spaces and integers are stored as integer values (always
4 bytes instead of 8-byte hex-string). This results in a considerable savings on
needed space.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugGenerator.Create
Summary:
- Creates an instance of TJclBinDebugGenerator
+ Creates an instance of TJclBinDebugGenerator.
Description:
The Create method instantiates a binary debug generator object. After calling the
inherited Create from TJclMapScanner,
@@ -640,8 +640,8 @@
binary version.
Parameters:
MapFileName - Name of the map-file to associate with the parser.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugGenerator.CalculateCheckSum
Summary:
@@ -651,16 +651,16 @@
Result:
If the checksum could be calculated the function returns True, otherwise it returns
False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugGenerator.DataStream
Summary:
A memory stream holding the translation result.
Description:
DataStream holds the result of the translation.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner
<GROUP Debugging.SourceLocations.BinaryDebugData>
@@ -671,12 +671,12 @@
file. The binary file can be generated from a text-based map file by instantiating
a TJclBinDebugGenerator-object
and saving the DataStream to a file.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.Create
Summary:
- Creates an instance of TJclBinDebugScanner
+ Creates an instance of TJclBinDebugScanner.
Description:
The Create method instantiates a binary debug scanner object. After instantiating
and assigning the stream, the format is checked. You can use the ValidFormat-property
@@ -684,8 +684,8 @@
Parameters:
AStream - Stream with binary debug data.
CacheData - If set to true, data read from the stream is internally cached.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.IsModuleNameValid
Summary:
@@ -693,12 +693,12 @@
Description:
IsModuleNameValid checks if the given filename is a valid name for the module.
Parameters:
- Name - Filename to check
+ Name - Filename to check.
Result:
If the specified filename belongs to this module the function returns True,
otherwise it returns False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.LineNumberFromAddr
Summary:
@@ -710,12 +710,12 @@
Result:
The line number for the specified address.
See also:
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.ModuleNameFromAddr
Summary:
@@ -727,12 +727,12 @@
Result:
The Delphi unit name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.ModuleStartFromAddr
Summary:
@@ -745,12 +745,12 @@
Result:
The starting address of the Delphi unit that contains the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ProcNameFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ProcNameFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.ProcNameFromAddr
Summary:
@@ -762,12 +762,12 @@
Result:
The procedure name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link SourceNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ SourceNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.SourceNameFromAddr
Summary:
@@ -777,20 +777,20 @@
Result:
The source file name for the specified address.
See also:
- <link LineNumberFromAddr>
- <link ModuleNameFromAddr>
- <link ModuleStartFromAddr>
- <link ProcNameFromAddr>
-Quick info:
- Donator: Petr Vones
+ LineNumberFromAddr
+ ModuleNameFromAddr
+ ModuleStartFromAddr
+ ProcNameFromAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclBinDebugScanner.ValidFormat
Summary:
- Flag to check validity of data
+ Flag to check validity of data.
Description:
ValidFormat is true if the data in the specified stream is valid binary debug data.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ConvertMapFileToJdbgFile
<GROUP Debugging.SourceLocations.BinaryDebugData>
@@ -799,18 +799,18 @@
Description:
ConvertMapFileToJdbgFile convert the specified text based map file to a Jcl binary
debug file.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclLocationInfo
<GROUP Debugging.SourceLocations>
Summary:
- Location info structure
+ Location info structure.
Description:
TJclLocationInfo is the structure returned in various routines and methods that
request location info for a specific address.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
@@TJclLocationInfo.Address
Nearest address of the request.
@@TJclLocationInfo.UnitName
@@ -830,11 +830,11 @@
Debug info location item.
Description:
TJclDebugInfoSource is an abstract base class to hold location information.
- Instances of descendants are created by the TJclDebugInfoList-object.</P><P>
+ Instances of descendants are created by the TJclDebugInfoList-object.
Descendants should override the InitializeSource
and GetLocationInfo methods.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoSource.InitializeSource
Summary:
@@ -843,8 +843,8 @@
InitializeSource initializes the object.
Result:
If the function succeeds it returns True, otherwise it returns False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoSource.Create
Summary:
@@ -855,8 +855,8 @@
instantiate a TJclDebugSource directly, but rather a descendant.
Parameters:
AModule - Module handle to create debug info for.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoSource.GetLocationInfo
Summary:
@@ -871,24 +871,24 @@
If the specified address exists within the module represented by this object the
function returns True and Info will hold the information for the specified address.
If the address does not exist within the module, the function returns False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoSource.Module
Summary:
Module referenced by this object.
Description:
Module holds the module handle this instance has been created for.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoSource.FileName
Summary:
File name for the module referenced by this object.
Description:
FileName holds the file name of the module this instance has been created for.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoList
<GROUP Debugging.SourceLocations>
@@ -897,12 +897,12 @@
Description:
TJclDebugInfoList holds a list of TJclDebugInfoSource
items requested. Items are created when needed, not when the list is created.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoList.CreateDebugInfo
Summary:
- Creates a TJclDebugInfoSource descendant for a module
+ Creates a TJclDebugInfoSource descendant for a module.
Description:
CreateDebugInfo will atempt to create a TJclDebugInfoSource
for the given module and initializes it. The method tries to obtain the following types in order:
@@ -918,8 +918,8 @@
Result:
If debug info could be obtained for the specified module, a TJclDebugInfoSource
descendant will be returned, otherwise it returns nil.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoList.GetLocationInfo
Summary:
@@ -928,14 +928,14 @@
GetLocationInfo retreives information for the address specified by the Addr
parameter and returns it through the Info parameter.
Parameters:
- Addr - Address to get information on
+ Addr - Address to get information on.
Info - Structure that holds information on the address, if address belongs to any module in the current process.
Result:
If the specified address exists within the curent process the function returns True
and Info will hold the information for the specified address. If the address does
not exist within the current process, the function returns False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@DebugInfoAvailable
<GROUP Debugging.SourceLocations>
@@ -948,8 +948,8 @@
Result:
If the specified module has debug information the function returns True, otherwise
False will be returned.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoList.ItemFromModule
Summary:
@@ -957,16 +957,16 @@
Description:
ItemFromModule returns a TJclDebugInfoSource-item for the specified module. If the item
hasn't been created, it will try to do so.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoList.Items
Summary:
- Returns the debug info item at the specified index
+ Returns the debug info item at the specified index.
Description:
Items returns the TJclDebugInfoSource-item at the specified index.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoMap
<GROUP Debugging.SourceLocations>
@@ -975,8 +975,8 @@
Description:
TJclDebugInfoMap is the class to hold location information by scanning
a text-based map file. It uses a TJclMapScanner object to do so.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoBinary
<GROUP Debugging.SourceLocations>
@@ -985,8 +985,8 @@
Description:
TJclDebugInfoBinary is the class to hold location information by scanning
a Jcl binary debug data resource. It uses a TJclBinDebugScanner object to do so.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclDebugInfoExports
<GROUP Debugging.SourceLocations>
@@ -995,8 +995,8 @@
Description:
TJclDebugInfoExports is the class to hold location information by scanning
a Borland export header for the PE-image. It uses a TJclPeBorImage object to do so.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ModuleFromAddr
<GROUP Debugging.SourceLocations>
@@ -1009,13 +1009,13 @@
Result:
If the Addr parameter points to an address in code-segment, it returns the
handle of the module at at that address, otherwise it returns 0.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@IsSystemModule
<GROUP Debugging.SourceLocations>
Summary:
- Determines if a module belongs to the current application
+ Determines if a module belongs to the current application.
Description:
IsSystemModule checks if the specified module is part of the current application.
It does so by searching the list at LibModuleList (see Delphi Help).
@@ -1024,8 +1024,8 @@
Result:
If the module belongs to the application, the function returns True, otherwise it
returns False.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@Caller
<GROUP Debugging.SourceLocations>
@@ -1042,8 +1042,8 @@
Result:
The address of the instruction of the routine specified by Level at which execution
resumes when the function(s) return.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@GetLocationInfo
<GROUP Debugging.SourceLocations>
@@ -1056,8 +1056,8 @@
Result:
This function returns a TJclLocationInfo record filled with any information it
could find.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@GetLocationInfoStr
<GROUP Debugging.SourceLocations>
@@ -1065,17 +1065,17 @@
Returns location info in a formatted string, given an address.
Description:
GetLocationInfoStr returns location info in a formatted string. The string is
- formatted as: [<I>Address</I>] <I>UnitName</I>.<I>ProcedureName</I> (Line <I>linenumber</I>, "<I>source file name</I>"
- or [<I>Address</I>] {<I>ModuleName</I>} <I>UnitName</I>.<I>ProcedureName</I> (Line <I>linenumber</I>, "<I>source file name</I>", depending
+ formatted as: [Address] UnitName.>ProcedureName (Line linenumber, "source file name"
+ or [Address] {ModuleName} UnitName.ProcedureName (Line linenumber, "source file name", depending
on the value of IncludeModuleName parameter.
Parameters:
Addr - Address to obtain information on.
IncludeModuleName - Should the module name be included in the string. If this parameter is set to True, the module name is inserted right after the address.
Result:
If location info was found, the function returns the formatted info string,
- otherwise it returns a string formatted as <B>[</B><I>Address</I><B>]</B>.
-Quick info:
- Donator: Petr Vones
+ otherwise it returns a string formatted as [Address].
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ClearLocationData
<GROUP Debugging.SourceLocations>
@@ -1087,45 +1087,42 @@
different modules have been made, this could consume a lot of memory. By clearing
the list, the memory is release, but items will be added for any location request
made later on.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__FILE__
-
-Summary
-\Returns the name of the file.
-Description
-__FILE__ returns the name of the source file in which the
-routine specified by Level exists. Level 0 denotes the
-currently executing routine, 1 denotes the caller of the
-routine, 2 the caller of the caller, etc.
-Parameters
-Level : Caller level for which you want to know the source
- file in which it resides. 0 is the currently
- executing routine, 1 is the caller, 2 is the caller
- of the caller, etc.
-Returns
-Filename of the source file in which the routine specified by
-Level exists.
-Note
-Usage of this function requires building the module with a
-detailed map file. Use the Linker tab in the Project Options
-dialog to enable creation of a map file. This function is
-\obsolete. Use <link FileByLevel> instead.
-See Also
-<link __MODULE__>
-<link __PROC__>
-<link __LINE__>
-<link __MAP__>
-<link __FILE_OF_ADDR__>
-<link __MODULE_OF_ADDR__>
-<link __PROC_OF_ADDR__>
-<link __LINE_OF_ADDR__>
-<link __MAP_OF_ADDR__>
-QuickInfo
-Donator
-Petr Vones
-
+Summary:
+ Returns the name of the file.
+Description:
+ __FILE__ returns the name of the source file in which the
+ routine specified by Level exists. Level 0 denotes the
+ currently executing routine, 1 denotes the caller of the
+ routine, 2 the caller of the caller, etc.
+Parameters:
+ Level - Caller level for which you want to know the source
+ file in which it resides. 0 is the currently
+ executing routine, 1 is the caller, 2 is the caller
+ of the caller, etc.
+Result:
+ Returns the filename of the source file in which the routine specified by Level exists.
+Notes:
+ Usage of this function requires building the module with a
+ detailed map file. Use the Linker tab in the Project Options
+ dialog to enable creation of a map file. This function is
+ obsolete. Use FileByLevel> instead.
+See also:
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
+--------------------------------------------------------------------------------
@@__MODULE__
<GROUP Debugging.SourceLocations>
Summary:
@@ -1142,17 +1139,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use ModuleByLevel instead.
See also:
- <link __FILE__>
- <link __PROC__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__PROC__
<GROUP Debugging.SourceLocations>
@@ -1170,17 +1167,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use ProcByLevel instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__LINE__
<GROUP Debugging.SourceLocations>
@@ -1198,17 +1195,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use LineByLevel instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__MAP__
<GROUP Debugging.SourceLocations>
@@ -1229,51 +1226,48 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use MapByLevel instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __LINE__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__FILE_OF_ADDR__
-
-Summary
-\Returns the filename for an address.
+Summary:
+ Returns the filename for an address.
Description
-__FILE_OF_ADDR__ returns the name of the source code file
-given an address.
-Parameters
-Addr : The address for which you want to know the source code
- file.
-Returns
-Name of the source code file in which the specified address
-is defined.
-Note
-Usage of this function requires building the module with a
-detailed map file. Use the Linker tab in the Project Options
-dialog to enable creation of a map file. This function is
-\obsolete. Use <link FileOfAddr> instead.
-See Also
-<link __FILE__>
-<link __MODULE__>
-<link __PROC__>
-<link __LINE__>
-<link __MAP__>
-<link __MODULE_OF_ADDR__>
-<link __PROC_OF_ADDR__>
-<link __LINE_OF_ADDR__>
-<link __MAP_OF_ADDR__>
-QuickInfo
-Donator
-Petr Vones
-
+ __FILE_OF_ADDR__ returns the name of the source code file
+ given an address.
+Parameters:
+ Addr - The address for which you want to know the source code file.
+Result:
+ Returns the name of the source code file in which the specified address
+ is defined.
+Notes:
+ Usage of this function requires building the module with a
+ detailed map file. Use the Linker tab in the Project Options
+ dialog to enable creation of a map file. This function is
+ obsolete. Use FileOfAddr instead.
+See also:
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
@@__MODULE_OF_ADDR__
+--------------------------------------------------------------------------------
<GROUP Debugging.SourceLocations>
Summary:
Returns the module name for an address.
@@ -1287,17 +1281,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use ModuleOfAddr instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__PROC_OF_ADDR__
<GROUP Debugging.SourceLocations>
@@ -1313,17 +1307,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use ProcOfAddr instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __LINE_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __LINE_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__LINE_OF_ADDR__
<GROUP Debugging.SourceLocations>
@@ -1339,17 +1333,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use LineOfAddr instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __MAP_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __MAP_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@__MAP_OF_ADDR__
<GROUP Debugging.SourceLocations>
@@ -1370,17 +1364,17 @@
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
This function is obsolete. Use MapOfAddr instead.
See also:
- <link __FILE__>
- <link __MODULE__>
- <link __PROC__>
- <link __LINE__>
- <link __MAP__>
- <link __FILE_OF_ADDR__>
- <link __MODULE_OF_ADDR__>
- <link __PROC_OF_ADDR__>
- <link __LINE_OF_ADDR__>
-Quick info:
- Donator: Petr Vones
+ __FILE__
+ __MODULE__
+ __PROC__
+ __LINE__
+ __MAP__
+ __FILE_OF_ADDR__
+ __MODULE_OF_ADDR__
+ __PROC_OF_ADDR__
+ __LINE_OF_ADDR__
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@FileByLevel
<GROUP Debugging.SourceLocations>
@@ -1397,17 +1391,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ModuleByLevel
<GROUP Debugging.SourceLocations>
@@ -1424,20 +1418,20 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ProcByLevel
-<GROUP Debugging.SourceLocations>
+<GROUP Debugging.SourceLocations
Summary:
Returns the name of the routine at a specified level.
Description:
@@ -1451,17 +1445,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@LineByLevel
<GROUP Debugging.SourceLocations>
@@ -1478,17 +1472,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link MapByLevel>
- <link FileOFAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ MapByLevel
+ FileOFAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@MapByLevel
<GROUP Debugging.SourceLocations>
@@ -1508,17 +1502,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link FileOFAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ FileOFAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@FileOfAddr
<GROUP Debugging.SourceLocations>
@@ -1533,17 +1527,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ModuleOfAddr
<GROUP Debugging.SourceLocations>
@@ -1558,17 +1552,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ProcOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@ProcOfAddr
<GROUP Debugging.SourceLocations>
@@ -1583,17 +1577,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link LineOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ LineOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@LineOfAddr
<GROUP Debugging.SourceLocations>
@@ -1608,17 +1602,17 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link MapOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ ProcOfAddr
+ MapOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@MapOfAddr
<GROUP Debugging.SourceLocations>
@@ -1638,26 +1632,26 @@
Notes:
Usage of this function requires building the module with a detailed map file. Use the Linker tab in the Project Options dialog to enable creation of a map file.
See also:
- <link FileByLevel>
- <link ModuleByLevel>
- <link ProcByLevel>
- <link LineByLevel>
- <link MapByLevel>
- <link FileOfAddr>
- <link ModuleOfAddr>
- <link ProcOfAddr>
- <link LineOfAddr>
-Quick info:
- Donator: Petr Vones
+ FileByLevel
+ ModuleByLevel
+ ProcByLevel
+ LineByLevel
+ MapByLevel
+ FileOfAddr
+ ModuleOfAddr
+ ProcOfAddr
+ LineOfAddr
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TStackFrame
<GROUP Debugging.Stackinforoutines>
Summary:
- Stack frame information
+ Stack frame information.
Description:
TStackFrame holds stack frame information.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
@@TStackFrame.CallersEBP
Callers EBP register
@@TStackFrame.CallerAdr
@@ -1669,11 +1663,11 @@
@@TStackInfo
<GROUP Debugging.Stackinforoutines>
Summary:
- Stack information
+ Stack information.
Description:
TStackInfo holds stack information.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
@@TStackInfo.CallerAdr
Return address (the address of the caller)
@@TStackInfo.Level
@@ -1694,64 +1688,64 @@
@@TJclStackInfoItem
<GROUP Debugging.Stackinforoutines>
Summary:
- Stack information item
+ Stack information item.
Description:
TStackInfoItem holds stack information.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackInfoItem.LogicalAddress
Summary:
- Retreives the logical address for the caller
+ Retreives the logical address for the caller.
Description:
LogicalAddress retreives teh logical address for the caller. It does so by
subtracting the caller's module base address from the caller's address.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackInfoItem.StackInfo
Summary:
Stack information.
Description:
StackInfo holds the actual stack information.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackBaseList
<GROUP Debugging.Trackingroutines>
Summary:
- Base stack information list
+ Base stack information list.
Description:
TJclStackBaseList is the base class for the track list's (TJclStackInfoList and
TJclExceptFrameList). It provides properties that hold information on the thread
and timestamp of the info list.
-Quick info:
- Donator: Petr Vones
+Donator:
+ Petr Vones
--------------------------------------------------------------------------------
@@TJclStackBaseList.ThreadID
Summary:
ID of thread that made the trace.
Description:
ThreadID is ID of the thread that executed the trace.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackBaseList.TimeStamp
Summary:
- Time stamp of list creation
+ Time stamp of list creation.
Description:
TimeStamp holds the date and time of creation of the list.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackInfoList
<GROUP Debugging.Stackinforoutines>
Summary:
- Stack information list
+ Stack information list.
Description:
TStackInfoList holds a list of stack information items ().
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:
+ Hallvard Vassbotn
--------------------------------------------------------------------------------
@@TJclStackInfoList.Create
Summary:
@@ -1762,8 +1756,8 @@
Raw - When set to False, the stack is traced by means of the EBP frame, when set to True, all DWORDs are checked for valid caller addresses.
AIgnoreLevels - Number of callers to ignore upon tracing.
FirstCaller - If not nil, an explicit TJclStackInfoItem is added to the list, pointing to the FirstCaller.
-Quick info:
- Donator: Hallvard Vassbotn
+Donator:...
[truncated message content] |
49 messages has been excluded from this view by a project administrator.
