pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Add some documentation comments to JvStringHolder.pas

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8795 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-04-20 13:23:34 +00:00
parent 2b8ffd7796
commit 68f653368d
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jvcllaz/run/JvCmp/jvstringholder.pas
View File

@ -124,6 +124,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
{ Clears the string list. }
procedure Clear; procedure Clear;
function MacroCount: Integer; function MacroCount: Integer;
function MacroByName(const MacroName: string): TJvMacro; function MacroByName(const MacroName: string): TJvMacro;
@ -135,10 +136,18 @@ type
property Macros: TJvMacros read FMacros write SetMacros; property Macros: TJvMacros read FMacros write SetMacros;
property OnExpandMacros: TNotifyEvent read FOnExpandMacros write FOnExpandMacros; property OnExpandMacros: TNotifyEvent read FOnExpandMacros write FOnExpandMacros;
property Duplicates: TDuplicates read GetDuplicates write SetDuplicates default dupIgnore; property Duplicates: TDuplicates read GetDuplicates write SetDuplicates default dupIgnore;
{ String for encoding the contents of string holder.
Empty --> no encryption done.
Not empty ..> Encoding is performed, and the encrypted contents will be stored in the lfm file.
Encryption is a simple XOR-alghoritm with KeyString as the key to decode. }
property KeyString: string read FXorKey write FXorKey stored False; property KeyString: string read FXorKey write FXorKey stored False;
{ Ensures the string list is sorted when any changes occur. }
property Sorted: Boolean read GetSorted write SetSorted default False; property Sorted: Boolean read GetSorted write SetSorted default False;
{ Main container to store the strings. }
property Strings: TStrings read GetStrings write SetStrings stored False; property Strings: TStrings read GetStrings write SetStrings stored False;
{ Triggered after any changes have been made to the list. }
property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;
{ Trigged before changes are made to the list. }
property OnChanging: TNotifyEvent read FOnChanging write FOnChanging; property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
end; end;
@ -808,7 +817,7 @@ end;
procedure TJvStrHolder.SetStrings(Value: TStrings); procedure TJvStrHolder.SetStrings(Value: TStrings);
begin begin
if Value <> FStrings then //if Value <> FStrings then
FStrings.Assign(Value); FStrings.Assign(Value);
end; end;