首页 > TAG信息列表 > TStrings
delphi分割字符串
procedure TForm1.btn1Click(Sender: TObject);var constr,str,str1,str2,str3,str4:string; strs :TStrings; i:Integer;beginconstr:='1-2-3';strs := TStringList.Create; strs.Delimiter := '-'; strs.DelimitedText := constr; for i := 0获取打印页号列表
获取打印页号列表 procedure SplitCommaCross(aList: TStrings); procedure SPlitCross(aList: TStrings); var LList: TStrings; a,b: Integer; i: Integer; begin if Pos('-', aList.Text) < 2 then Exit; LList := TStringList.Create关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题
关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593//关于父类与子类的类型转换: procedure TForm1.FormCreate(Sender: TObject); var List1: TStrings; List2: TDelphi TStringList的用法
Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {Delphi TStringList的用法
Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {