关于Tstringlist的用法

hu_jun_331 2004-11-08 03:26:26
var
vilelist:TstringList;
filelist.Add(edit1.text);//程序总是到这里就会卡住
不过我实在是不知stringlist的用法,请帮忙列出它的常用方法及其它,如怎样增加进去,怎样弄出来
小弟是菜鸟,请高手见了不要笑话我!
...全文
129 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
wenjianyao 2004-11-08
  • 打赏
  • 举报
回复
楼上的已经比较详细了
劣势 2004-11-08
  • 打赏
  • 举报
回复
错了:)

with TStringList.Create do
try
Add('ssdsds');
finally
Free;
end;
劣势 2004-11-08
  • 打赏
  • 举报
回复
没有生成对象实例怎么可以呢?
可以这样做;

with TStringList.Create do
try
Add('ssdsds');
finally
Close;
end;
fbysss 2004-11-08
  • 打赏
  • 举报
回复
少了Create语句
wjqname 2004-11-08
  • 打赏
  • 举报
回复
我是这样用的
var strs:tstrings;

strs:=tstringlist.create;
strs.add(edit1.text);
alinsoft 2004-11-08
  • 打赏
  • 举报
回复
你是不是少了
MyList := TStringList.Create;
这句呀?
beyondtkl 2004-11-08
  • 打赏
  • 举报
回复
vilelist := TStringList.Create;...

vilelist.Add('aaa');
vilelist.Add('bbb');
...

ShowMessage(vilelist[0]);
alinsoft 2004-11-08
  • 打赏
  • 举报
回复
这是DELPHI里的帮助的例子:
procedure TForm1.FormCreate(Sender: TObject);

var
MyList: TStringList;
Index: Integer;
begin
MyList := TStringList.Create;
try
MyList.Add('Animals');
MyList.Add('Flowers');

MyList.Add('Cars');

MyList.Sort; { Find will only work on sorted lists! }
if MyList.Find('Flowers', Index) then
begin
ListBox1.Items.AddStrings(MyList);
Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
end;
finally
MyList.Free;
end;
end;
hu_jun_331 2004-11-08
  • 打赏
  • 举报
回复
不好意思上面字打错了
var
filelist:TstringList;
filelist.Add(edit1.text
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-11-08 03:26
社区公告
暂无公告