怎样显示到CheckListBox里？(20分)

X

xli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-11

• #1

MyString: TStringList;
有很多文件名如abc.exe,xyz.zip,qwe.bat等存放在MyString里，怎样把MyString的内容
存到CheckListBox里去呢？
谢谢！

 

D

Derlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-11

• #2

CheckListBox1.Assign(MyString);

 

X

xli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #3

不行啊，程序运行后，一点击按钮执行时，Delphi 6就报错！
怎么解决啊？！
谢谢！

 

D

dcx0026

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #4

const
Str='e:/abc.txt';
var
Mystring:Tstringlist;
i,j:integer;
sss:string;
begin
i:=0;
Mystring:=Tstringlist.Create;
Mystring.LoadFromFile(Str);
j:=Mystring.Count;
showmessage(inttostr(j));
edit1.Text:=Mystring.Text;
while i<jdo
begin
sss:=Mystring.Strings;
checklistbox1.AddItem(sss,Mystring);
i:=i+1;
end;
end;

注： abc.txt的内容为
abc.exe
xyz.zip
qwe.bat
......
必须换行才行。
仅做参考，（：

 

F

fshell

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #5

CheckListBox1.AddStrings(MyString);

 

F

fshell

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #6

Sorry, 一时手误，应该是：
CheckListBox1.Items.AddStrings(MyString);
[8D]

 

T

tomol

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #7

procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringList;
begin
sl := TStringList.Create;
try
sl.Add('aa.txt');
sl.Add('bb.txt');
checklistbox1.Items.Assign(sl);
finally
sl.Free;
end;
end;

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #8

你直接用
CheckListBox.Items.AddStrings(MyString);
就OK!

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-16

• #9

用dcx0026的方法就OK了。

 

R

rockythd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #10

一句话搞定：
checklistbox1.Items.Assign(listbox1.items);

 

W

wozhuchuanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-02

• #11

CheckListBox1.Items:= ListBox1.Items;