pascalSCADA OPM: hmitextstrings: Class TTextStrings

Pascal SCADA OPM

Class TTextStrings

Unit

hmitextstrings

Declaration

type TTextStrings = class(TStrings)

Description

user data

Hierarchy

  • TStrings
  • TTextStrings

Overview

Fields

Protected FArraysValid: boolean;
Protected FLineCount: LongInt;
Protected FLineCapacity: LongInt;
Protected FLineRanges: ˆTTextLineRange;
Protected FText: UTF8string;
Protected FUpdateCount: LongInt;
Protected FChangedWhileUpdate: boolean;

Methods

Protected function GetTextStr: UTF8string; override;
Protected procedure SetTextStr(const AValue: UTF8string); override;
Protected procedure BuildArrays; virtual;
Protected function GetCount: LongInt; override;
Protected procedure Changed; virtual;
Protected procedure Changing; virtual;
Protected function Get(Index: LongInt): UTF8string; override;
Protected procedure ClearArrays;
Protected function GetObject(Index: LongInt): TObject; override;
Protected procedure Put(Index: LongInt; const S: UTF8string); override;
Protected procedure PutObject(Index: LongInt; AnObject: TObject); override;
Protected function GetLineLen(Index: LongInt; IncludeNewLineChars: boolean): LongInt; inline;
Protected function GetLineEnd(Index: LongInt; IncludeNewLineChars: boolean): LongInt;
Protected function HasObjects: boolean;
Protected function CountLineEndings(const s: UTF8string): LongInt;
Public constructor Create;
Public destructor Destroy; override;
Public procedure Clear; override;
Public procedure SetText(TheText: PChar); override;
Public procedure Insert(Index: LongInt; const S: UTF8string); override;
Public procedure Delete(Index: LongInt); override;
Public procedure Exchange(Index1, Index2: LongInt); override;
Public procedure Move(CurIndex, NewIndex: LongInt); override;
Public procedure MakeTextBufferUnique;
Public procedure BeginUpdate;
Public procedure EndUpdate;
Public function GetText: PChar; override;
Public function IndexOf(const S: UTF8string): LongInt; override;
Public function Add(const S: UTF8string): LongInt; override;
Public function AddObject(const S: UTF8string; AObject: TObject): LongInt; override;
Public procedure AddStrings(TheStrings: TStrings); override;

Properties

Public property Text: UTF8string read FText write SetTextStr;
Public property OnChange: TNotifyEvent read FOnChange write FOnChange;
Public property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;

Description

Fields

Protected FArraysValid: boolean;
 
Protected FLineCount: LongInt;
 
Protected FLineCapacity: LongInt;
 
Protected FLineRanges: ˆTTextLineRange;
 
Protected FText: UTF8string;

array of TTextLineRange

Protected FUpdateCount: LongInt;
 
Protected FChangedWhileUpdate: boolean;
 

Methods

Protected function GetTextStr: UTF8string; override;
 
Protected procedure SetTextStr(const AValue: UTF8string); override;
 
Protected procedure BuildArrays; virtual;
 
Protected function GetCount: LongInt; override;
 
Protected procedure Changed; virtual;
 
Protected procedure Changing; virtual;
 
Protected function Get(Index: LongInt): UTF8string; override;
 
Protected procedure ClearArrays;
 
Protected function GetObject(Index: LongInt): TObject; override;
 
Protected procedure Put(Index: LongInt; const S: UTF8string); override;
 
Protected procedure PutObject(Index: LongInt; AnObject: TObject); override;
 
Protected function GetLineLen(Index: LongInt; IncludeNewLineChars: boolean): LongInt; inline;
 
Protected function GetLineEnd(Index: LongInt; IncludeNewLineChars: boolean): LongInt;
 
Protected function HasObjects: boolean;
 
Protected function CountLineEndings(const s: UTF8string): LongInt;
 
Public constructor Create;
 
Public destructor Destroy; override;
 
Public procedure Clear; override;
 
Public procedure SetText(TheText: PChar); override;
 
Public procedure Insert(Index: LongInt; const S: UTF8string); override;
 
Public procedure Delete(Index: LongInt); override;
 
Public procedure Exchange(Index1, Index2: LongInt); override;
 
Public procedure Move(CurIndex, NewIndex: LongInt); override;
 
Public procedure MakeTextBufferUnique;
 
Public procedure BeginUpdate;
 
Public procedure EndUpdate;
 
Public function GetText: PChar; override;
 
Public function IndexOf(const S: UTF8string): LongInt; override;
 
Public function Add(const S: UTF8string): LongInt; override;
 
Public function AddObject(const S: UTF8string; AObject: TObject): LongInt; override;
 
Public procedure AddStrings(TheStrings: TStrings); override;
 

Properties

Public property Text: UTF8string read FText write SetTextStr;
 
Public property OnChange: TNotifyEvent read FOnChange write FOnChange;
 
Public property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
 

Generated by PasDoc 0.14.0.