tstringlist类型的读写分解操作的小问题。。。。(20分)

  • 主题发起人 主题发起人 新小丸子
  • 开始时间 开始时间

新小丸子

Unregistered / Unconfirmed
GUEST, unregistred user!
tmp:tstringlist是这样子写进去的:
while not query1.eof do
begin
scontent:=format('%8d%50s',[query1['id'],query1['title']]);
tmp.Add(scontent);
query1.next;
end;
读如下:
scontent:=tmp.Strings[j];
sid:=
stitle:=
我不知道如何把id和title分解开分别赋值给sid和stitle,而且在运行写流的时候,
format那行还报错了,能帮我看看么?谢谢了![:D]
 
copy function+ pos function
 
不懂???[:(]
 
sid:=query1.FieldByName('id').AsInteger;
stitle:=query1.FieldByName('title').AsString;

 
先生那,请看看清楚我问的是什么???其实就是tstringlist的一行里有两个元素,
分别是放的是query1['id'],query1['title'],我要把他们分解出来赋予sid和stitle。
 
我再讲的简单一些吧,就是有一个字符串,共58个字符,我如何把前八个跟后面的50个分解
出来分别赋值给sid,和stitle,其实就一个函数就可以了,我只是不知道在delphi中该函数
的名字
 
sid:=copy(s,1,8); 前8个
stitle:=copy(s,9,50); 后50个
 
倒...建议你最好在两个值之前用一分隔符,比如逗号(,)什么的,你能保证以后的值不会
超过8个和50个吗?有分隔符了那只要判断 分隔符的位置:=Pos(',',Str);不就可以分隔出
前后两段字符串了吗?
 
是SPLIT函数吧。
 

Similar threads

后退
顶部