|
|
@@ -683,12 +683,12 @@ type
|
|
|
function AddObject(const Fmt: string; Args : Array of const; AObject: TObject): Integer; overload;
|
|
|
function AddPair(const AName, AValue: string): TStrings; overload; {$IFDEF CLASSESINLINE}inline;{$ENDIF}
|
|
|
function AddPair(const AName, AValue: string; AObject: TObject): TStrings; overload;
|
|
|
- procedure Append(const S: string);
|
|
|
procedure AddStrings(TheStrings: TStrings); overload; virtual;
|
|
|
procedure AddStrings(TheStrings: TStrings; ClearFirst : Boolean); overload;
|
|
|
procedure AddStrings(const TheStrings: array of string); overload; virtual;
|
|
|
procedure AddStrings(const TheStrings: array of string; ClearFirst : Boolean); overload;
|
|
|
Procedure AddText(Const S : String); virtual;
|
|
|
+ procedure Append(const S: string);
|
|
|
procedure Assign(Source: TPersistent); override;
|
|
|
procedure BeginUpdate;
|
|
|
procedure Clear; virtual; abstract;
|
|
|
@@ -697,14 +697,15 @@ type
|
|
|
function Equals(Obj: TObject): Boolean; override; overload;
|
|
|
function Equals(TheStrings: TStrings): Boolean; overload;
|
|
|
procedure Exchange(Index1, Index2: Integer); virtual;
|
|
|
+ function ExtractName(Const S:String):String;
|
|
|
function GetEnumerator: TStringsEnumerator;
|
|
|
+ procedure GetNameValue(Index : Integer; Out AName,AValue : String);
|
|
|
function GetText: PChar; virtual;
|
|
|
function IndexOf(const S: string): Integer; virtual;
|
|
|
function IndexOfName(const Name: string): Integer; virtual;
|
|
|
function IndexOfObject(AObject: TObject): Integer; virtual;
|
|
|
procedure Insert(Index: Integer; const S: string); virtual; abstract;
|
|
|
- procedure InsertObject(Index: Integer; const S: string;
|
|
|
- AObject: TObject);
|
|
|
+ procedure InsertObject(Index: Integer; const S: string; AObject: TObject);
|
|
|
procedure LoadFromFile(const FileName: string); overload; virtual;
|
|
|
procedure LoadFromFile(const FileName: string; IgnoreEncoding : Boolean);
|
|
|
procedure LoadFromFile(const FileName: string; AEncoding: TEncoding); overload; virtual;
|
|
|
@@ -717,31 +718,29 @@ type
|
|
|
procedure SaveToStream(Stream: TStream); overload; virtual;
|
|
|
procedure SaveToStream(Stream: TStream; AEncoding: TEncoding); overload; virtual;
|
|
|
procedure SetText(TheText: PChar); virtual;
|
|
|
- procedure GetNameValue(Index : Integer; Out AName,AValue : String);
|
|
|
- function ExtractName(Const S:String):String;
|
|
|
- Property TextLineBreakStyle : TTextLineBreakStyle Read GetLBS Write SetLBS;
|
|
|
- property Delimiter: Char read GetDelimiter write SetDelimiter;
|
|
|
- property DelimitedText: string read GetDelimitedText write SetDelimitedText;
|
|
|
- property DefaultEncoding: TEncoding read FDefaultEncoding write SetDefaultEncoding;
|
|
|
- property Encoding: TEncoding read FEncoding;
|
|
|
- property LineBreak : string Read GetLineBreak write SetLineBreak;
|
|
|
- Property StrictDelimiter : Boolean Read FStrictDelimiter Write FStrictDelimiter;
|
|
|
property AlwaysQuote: Boolean read FAlwaysQuote write FAlwaysQuote;
|
|
|
- property QuoteChar: Char read GetQuoteChar write SetQuoteChar;
|
|
|
- Property NameValueSeparator : Char Read GetNameValueSeparator Write SetNameValueSeparator;
|
|
|
- property ValueFromIndex[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex;
|
|
|
property Capacity: Integer read GetCapacity write SetCapacity;
|
|
|
property CommaText: string read GetCommaText write SetCommaText;
|
|
|
property Count: Integer read GetCount;
|
|
|
+ property DefaultEncoding: TEncoding read FDefaultEncoding write SetDefaultEncoding;
|
|
|
+ property DelimitedText: string read GetDelimitedText write SetDelimitedText;
|
|
|
+ property Delimiter: Char read GetDelimiter write SetDelimiter;
|
|
|
+ property Encoding: TEncoding read FEncoding;
|
|
|
+ property LineBreak : string Read GetLineBreak write SetLineBreak;
|
|
|
+ Property MissingNameValueSeparatorAction : TMissingNameValueSeparatorAction Read GetMissingNameValueSeparatorAction Write SetMissingNameValueSeparatorAction;
|
|
|
property Names[Index: Integer]: string read GetName;
|
|
|
+ Property NameValueSeparator : Char Read GetNameValueSeparator Write SetNameValueSeparator;
|
|
|
property Objects[Index: Integer]: TObject read GetObject write PutObject;
|
|
|
- property Values[const Name: string]: string read GetValue write SetValue;
|
|
|
+ property QuoteChar: Char read GetQuoteChar write SetQuoteChar;
|
|
|
+ Property SkipLastLineBreak : Boolean Read GetSkipLastLineBreak Write SetSkipLastLineBreak;
|
|
|
+ Property StrictDelimiter : Boolean Read FStrictDelimiter Write FStrictDelimiter;
|
|
|
property Strings[Index: Integer]: string read Get write Put; default;
|
|
|
- property Text: string read GetTextStr write SetTextStr;
|
|
|
property StringsAdapter: IStringsAdapter read FAdapter write SetStringsAdapter;
|
|
|
- Property SkipLastLineBreak : Boolean Read GetSkipLastLineBreak Write SetSkipLastLineBreak;
|
|
|
+ property Text: string read GetTextStr write SetTextStr;
|
|
|
+ Property TextLineBreakStyle : TTextLineBreakStyle Read GetLBS Write SetLBS;
|
|
|
+ property ValueFromIndex[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex;
|
|
|
+ property Values[const Name: string]: string read GetValue write SetValue;
|
|
|
property WriteBOM: Boolean read FWriteBOM write FWriteBOM;
|
|
|
- Property MissingNameValueSeparatorAction : TMissingNameValueSeparatorAction Read GetMissingNameValueSeparatorAction Write SetMissingNameValueSeparatorAction;
|
|
|
end;
|
|
|
|
|
|
{ TStringList class }
|
michael