Description: 标准类
TObject = class
constructor Create
procedure Free
end
TPersistent = class(TObject)
procedure Assign(Source: TPersistent)
end
TStrings = class(TPersistent)
function Add(S: String): Integer
procedure Append(S: String)
procedure AddStrings(Strings: TStrings)
procedure Clear
procedure Delete(Index: Integer)
function IndexOf(const S: String): Integer
procedure Insert(Index: Integer S: String)
procedure LoadFromFile(FileName: String)
procedure SaveToFile(FileName: String)
property Count: Integer read
property Text: String read write
property CommaText: String read write
property Strings[Index: Integer]: String read write
property Objects[Index: Integer]: TObject read write
end
TDuplicates = (dupIgnore, dupAccept, dupError)
TNotifyEvent = procedure(Sender: TObject)
TStringList = class(TStrings)
function Find(S: String var Index: Integer): Boolean
procedure Sort
property Duplicates:
To Search:
File list (Check if you may need any files):
Visual Basic
............\Form1.frm
............\Project1.vbp
............\Project1.vbw
............\Project1.vmp
Download