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

* Fix bug ID #0036246, delphi compatibility property

Browse Source 
git-svn-id: trunk@43353 -
This commit is contained in:
michael 2019-11-02 10:25:42 +00:00
parent ae04e5d7f0
commit 30bc217d55
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -625,6 +625,7 @@ type
function GetCommaText: string;
function GetMissingNameValueSeparatorAction: TMissingNameValueSeparatorAction;
function GetName(Index: Integer): string;
function GetTrailingLineBreak: Boolean;
function GetValue(const Name: string): string;
Function GetLBS : TTextLineBreakStyle;
procedure SetDefaultEncoding(const ADefaultEncoding: TEncoding);
@ -634,6 +635,7 @@ type
procedure SetCommaText(const Value: string);
procedure SetMissingNameValueSeparatorAction(AValue: TMissingNameValueSeparatorAction);
procedure SetStringsAdapter(const Value: IStringsAdapter);
procedure SetTrailingLineBreak(AValue: Boolean);
procedure SetValue(const Name, Value: string);
procedure SetDelimiter(c:Char);
procedure SetQuoteChar(c:Char);
@ -733,6 +735,8 @@ type
property Objects[Index: Integer]: TObject read GetObject write PutObject;
property QuoteChar: Char read GetQuoteChar write SetQuoteChar;
Property SkipLastLineBreak : Boolean Read GetSkipLastLineBreak Write SetSkipLastLineBreak;
// Same as SkipLastLineBreak but for Delphi compatibility. Note it has opposite meaning.
Property TrailingLineBreak : Boolean Read GetTrailingLineBreak Write SetTrailingLineBreak;
Property StrictDelimiter : Boolean Read FStrictDelimiter Write FStrictDelimiter;
property Strings[Index: Integer]: string read Get write Put; default;
property StringsAdapter: IStringsAdapter read FAdapter write SetStringsAdapter;

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

@ -163,6 +163,7 @@ begin
end;
Function TStrings.GetNameValueSeparator :Char;
begin
CheckSpecialChars;
@ -292,6 +293,11 @@ begin
GetNameValue(Index,Result,V);
end;
function TStrings.GetTrailingLineBreak: Boolean;
begin
Result:=Not SkipLastLineBreak;
end;
Function TStrings.GetValue(const Name: string): string;
Var
@ -476,6 +482,11 @@ Procedure TStrings.SetStringsAdapter(const Value: IStringsAdapter);
begin
end;
procedure TStrings.SetTrailingLineBreak(AValue: Boolean);
begin
SkipLastLineBreak:=Not aValue;
end;
Procedure TStrings.SetDefaultEncoding(const ADefaultEncoding: TEncoding);