社区
Delphi
帖子详情
tstrings如何用?
borlandsoftware
2002-03-17 01:53:17
var
u_list:tstrings;
begin
u_list:=tstrings.Create;
adoconnection1.GetFieldNames('FTT_jcqbhsjds',u_list);
...全文
70
8
打赏
收藏
tstrings如何用?
var u_list:tstrings; begin u_list:=tstrings.Create; adoconnection1.GetFieldNames('FTT_jcqbhsjds',u_list);
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
INeedCa
2002-03-17
打赏
举报
回复
var
u_list:tstrings;
begin
u_list:=tstrings.Create;
adoconnection1.GetFieldNames('FTT_jcqbhsjds',u_list);
这样用是不对的,编译器应该会给出一个warning,因为TStrings是抽象类,你应该用一个它的派生类生成实例,如TStringList。
andylife
2002-03-17
打赏
举报
回复
TComboBox.Items,
TMemo.Lines
TListBox.Items
等的属性都是TStrings类型 的
我们通常不可以直接使用TString,而是使用他的派生类的
如:TStringList
var
MyStringList:TStringList;
begin
MyStringList:=TStringList.Create(Application);
MyStringList.Add('I');
MyStringList.Add('love');
MyStringList.Add('you');
Memo1.Lines.Assign(MyStringList);
ListBox1.Items.Assign(MyStringList);
xyzguan
2002-03-17
打赏
举报
回复
就象comboxbox的list一样
brallow
2002-03-17
打赏
举报
回复
tstrings是一个字符串的队列,相当于一个数组。
joyhero
2002-03-17
打赏
举报
回复
同意andylife(猫王)的做法,但变量是可以申明为TStrings抽象类的,不一定非要申明为TStringList。
var
u_list:TStrings;
begin
u_list:=TStringList.Create;
adoconnection1.GetFieldNames('FTT_jcqbhsjds',u_list);
liuziran
2002-03-17
打赏
举报
回复
var sl:TStrings;
sl :=TStringList.Create;
...
shadowno
2002-03-17
打赏
举报
回复
http://www.csdn.net/expert/topic/566/566647.xml?temp=.5136072
stiwin
2002-03-17
打赏
举报
回复
TStrings是抽象类要用子类来实例化
自定义控件之
String
List
vs2005自定义控件,实现了delphi中T
String
s(T
String
List)一样的效果
win7常用小工具打包(有快捷启动面板、CPU内存信息和天气等)
包括CPU内存信息、MSN天气、快捷启动面板、日历、显卡温度GPUObserver32、硬盘等
json4delphi:JSON for Delphi,支持较早版本的Delphi(6或更高版本)
json4delphi JSON for Delphi,支持较早版本的Delphi(6或更高版本) 对象-pascal本机代码,仅使用TList,T
String
s和T
String
List类例子: var Json: TJson; Str:
String
begin Json := TJson.Create(); // put Json....
delphi通用函数单元
procedure GetDisks(
String
s: T
String
s { T
String
List ??? }); //获取所有盘符 procedure HideApp; //隐藏程序 function GetTmpPath:
String
; //取得WINDOWS的Temp路径 function GetSysPath:
String
; //取得...
liuoffice_COM_
sts:T
string
s):boolean;//将数据保存到excel文件中(已有文件名,保存到工作表,开始行,开始列,该列不为空跳过-1顺次保存,数据集|)function SaveDataToXls(const filename:
string
;sheetbrowbcolnilcol:integer;...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章