TStringList的两个属性string和object怎么使用?
尤其是object是什么?怎么设置?
stringlist的index怎么移动?
为什么我的程序报错为index不能为1,只能为0?我有两个属性需要加入到TStringList中,即用文件名作索引,而object中装文件的内容。我不会设置object部分,就是代码addobject()里面的参数该怎么写呢?我可以检测出stringlist〔0〕有东西,而〔1〕就不行,为什么?
尤其是object是什么?怎么设置?
stringlist的index怎么移动?
为什么我的程序报错为index不能为1,只能为0?我有两个属性需要加入到TStringList中,即用文件名作索引,而object中装文件的内容。我不会设置object部分,就是代码addobject()里面的参数该怎么写呢?我可以检测出stringlist〔0〕有东西,而〔1〕就不行,为什么?
解决方案 »
- 前辈们来帮我纠正一下
- 菜单句柄问题
- 求解: access 阿拉伯文 乱码?怎么解决?
- pos打印机与条形码的相关问题
- 我写的activex控件放在网页中使用,在delphi中用run下的register activex server注册后,在网页上调用它,没有问题,可是用vpscript注册
- 再次提问,怎么取到这样的数据id
- 关于StringGrid的字体对齐问题
- Delphi问题还是ADO与ole驱动问题,请大家跟进
- 求完整的EXCEL和OFFICE被调用的方法等的列表。
- 欢迎讨论,关于VB的一点看法
- 请问各位高手,这样变态的报表怎样画?
- 关于集合类型,请大家帮忙。应该不难的,但我刚学请帮忙请解一下。
procedure Tfwqxz.FormShow(Sender: TObject);
var list1,list2:TStringList;
i,j:Integer;
begin
i:=1;
list1:= TStringList.Create;
list2:= TStringList.Create;
if GetServerList(list1) then
begin
showmessage('执行成功');
for i:=0 to list1.Count-1 do
begin
if getusers(list1.Strings[i],list2) then
begin
for j:=0 to list2.Count-1 do
UserList.Items.Add(list2.Strings[j]);
end;
end;
end;
list1.Destroy;
list2.Destroy;
end;
i:integer;
Tstring:Tstrings;
begin
Tstring:=Tstrings.create;
Tstring.loadfromfile('c:\xxx.txt')
for i:=0 to Tstring.count-1 do
showmessage(Tstring.string[i]);
---------------------------------------------
string[i]就是文件名
object[i] 麻烦,你想有它来存文件的内容,假如文件的内容在s中(String类型),文件名字mf1flist.addobject('mf1',Tobjec(s));看例子
procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
li:=TStringList.Create;
s:='I love you';
li.AddObject('qwe',TObject(s));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(string(integer(li.Objects[0])));
end;
var
StringList: TStringList;
Button: TButton;
i: Integer;
begin
StringList := TStringList.Create;
for i := 0 to 9 do
begin
Button := TButton.Create(Self);
//添加一个TButton对象
StringList.AddObject('Button' + IntToStr(i), Button);
{共添加了10个TButton对象}
end;//取得所有的对象
for i := 0 to StringList.Count - 1 do
begin
//---->你的代码
end;//以下是调用保存的对象
TButton(StringList.Objects[9]).Parent := Self; <----procedure TForm1.Button2Click(Sender: TObject);
var
StringList: TStringList;
Button: TButton;
i: Integer;
begin
StringList := TStringList.Create;
for i := 0 to 9 do
begin
Button := TButton.Create(Self);
//添加一个TButton对象
StringList.AddObject('Button' + IntToStr(i), Button);
{共添加了10个TButton对象}
end;//取得所有的对象
for i := 0 to StringList.Count - 1 do
begin
//---->你的代码
end;//以下是调用保存的对象
TButton(StringList.Objects[9]).Parent := Self; <----在Form中显示Button
//以下是对保存的对象的清空
//for i := 0 to 9 do
//begin
// TButton(StringList.Objects[i]).Free; <---释放每个对象
//end;
end;
//以下是对保存的对象的清空
for i := 0 to 9 do
begin
TButton(StringList.Objects[i]).Free;
end;
end;