paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TStringlist constructor with ownsobjects parameter, Delphi compatible + empty constructor to avoid compiler getting confused

Browse Source 
(cherry picked from commit 2457016671)
This commit is contained in:
marcoonthegit 2022-04-18 21:23:10 +02:00
parent 2aa8da16c5
commit b76535ebe4
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/classesh.inc
View File

@ -849,8 +849,9 @@ type
procedure InsertItem(Index: Integer; const S: string); virtual; procedure InsertItem(Index: Integer; const S: string); virtual;
procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual; procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual;
Function DoCompareText(const s1,s2 : string) : PtrInt; override; Function DoCompareText(const s1,s2 : string) : PtrInt; override;
public public
Constructor Create;
Constructor Create(anOwnsObjects : Boolean);
destructor Destroy; override; destructor Destroy; override;
function Add(const S: string): Integer; override; function Add(const S: string): Integer; override;
procedure Clear; override; procedure Clear; override;

10
rtl/objpas/classes/stringl.inc
View File

@ -1930,6 +1930,16 @@ begin
end; end;
Constructor TStringList.Create;
begin
inherited Create;
end;
Constructor TStringList.Create(anOwnsObjects : Boolean);
begin
inherited Create;
FOwnsObjects:=anOwnsObjects;
end;
destructor TStringList.Destroy; destructor TStringList.Destroy;