请大虾们给我讲讲Tstring和Tstringlist的区别。 ( 积分: 0 )

  • 主题发起人 主题发起人 d5love
  • 开始时间 开始时间
D

d5love

Unregistered / Unconfirmed
GUEST, unregistred user!
请先给我介绍一下他们的区别,在给我讲解一下下面例子实现的基本方法
比如我现在想做个测试题的程序,将每道题的得分转化成字符,再加上一个标志保存起来,最后在根据标志得到各组的得分,用Tstringlist可不可实现,请各位指点!!
 
请先给我介绍一下他们的区别,在给我讲解一下下面例子实现的基本方法
比如我现在想做个测试题的程序,将每道题的得分转化成字符,再加上一个标志保存起来,最后在根据标志得到各组的得分,用Tstringlist可不可实现,请各位指点!!
 
问题(一):
Tstring是个接口类,一般很少直接使用的;
Tstringlist是上述类的子类,常用于实际编程中。
procedure TForm1.FormCreate(Sender: TObject);
var
Temp : Tstrings;//注意此处是Tstrings
begin
Temp := TstringList.Create;//注意此处其子类 TstringList
try
...
finally
Temp.Free;
end;
end;
问题(二):
表述不清楚,且我一向不习惯回答具体业务细节方面的问题!
 
royal1442说的对,TStrings是一个虚类,不能实例化的。
不过如果声明变理时用TStrings比较有通用性,就好象Delphi为什么在大部分事件都用Sender: Object做为参数一样。(具体用的时候可以用TStringList或者其它继承自TStrings的类来实现具体功能)

第二个问题:
写一些伪代码吧
var 分数统计: TStrings

分数: String;
循环
分数 := 分数 + 每题分数 +';'
<==== 这个分号就是你所说的标志
结束循环
分数统计.DelimitedText := 分数;
分数统计.Delimiter := ';';

然后就可以用
分数统计.strings[X]来获取每一个分数了。具体你想再分组什么的,也可以前面再一个字母什么之类的区别汇总。
 
用 Anylib 吧,可以拖动行列
http://www.anylib.com
 
谢谢几位的帮忙,问题已经解决了
 
后退
顶部