我的数据内容:
88,14,0,2,True,"超级用户","8888"
99,14,0,2,True,"系统","9999"我用的是TTable控件
它怎么认为我只有一个字段??????????????????
88,14,0,2,True,"超级用户","8888"
99,14,0,2,True,"系统","9999"我用的是TTable控件
它怎么认为我只有一个字段??????????????????
解决方案 »
- 手头有个项目,需要在DELPHI中用PELCO-D协议控制摄像机,大家有这样的例子或是有这样的控件吗?谢谢
- 工具栏的问题!急!!
- 放分200恭喜 ARI 做版主 -- 修罗
- PING值高,会造成WINSOCKET发送失败吗?
- 我得到FontStyle是數字類型,如何把數字轉換成fsBold,fsItalic的形式。
- Combobox问题,在线等待
- B/S结构
- 通过注册表读主板BIOS的怪事
- 注意:DELPHI6中参数的缺省调用顺序改成了从右到左了!!!
- 请问高手如何实现两单元两变量--hh和nn的相互附值----急用
- 使用delphi开发软件,数据库组件用什么呢
- 谁知道Excel剪切板的数据格式
我的帖子贴了一天了~_~
高手都上哪里去了?
难道csdn真的?
将字符串以,分成一个个procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);
var
hs : string;
p : integer;begin
Terms.Clear; // 清除所有的terms
if Length(s)=0 then // 如没有任何分隔字符存在就退出
Exit;
p:=Pos(Separator,s);
while P<>0 do
begin
hs:=Copy(s,1,p-1); // 复制 term
Terms.Add(hs); // 加入 term
Delete(s,1,p); // 清除分隔符
p:=Pos(Separator,s); // 寻找下一个分隔符
end;
if Length(s)>0 then
Terms.Add(s); // 结尾剩余字符加入 term
end;
//使用办法var
Terms : TStringList;begin
Terms:=TStringList.Create;
str1='TEST|44.5|4'
SeparateTerms(str1,'|',Terms);
Terms.Free;
end;
我觉得文本数据表应该有固定的格式,
而Delphi数据控件可以识别。如果向您所说的那样的话,
我如何使用数据控件打开文本文件。您可以参考一下TTable的TableType属性。
谢谢
硬盘上的文本文件和数据库系统的组织方式不一样的,就是一个字符串,用数据空间是没办法直接打开硬盘上的文本文件的,只能是连接数据库中的文本数据库