怎样传递tstringlist类型的参数？（100分！）(100分)

C

cwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #1

向函数中传递一个[red]tstringlist[/red]类型的参数，并在函数中进行处理。谢谢各位！

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #2

procedure YourFun(Strs:TStrings);
var i:integer;
begin
for i:=0 to Strs.Count-1 do
ShowMessage(Strs.strings);
end;
//调用
var ss:TStringList;
begin
ss:=TStringList.Create;
ss.add('1');
ss.add('B');
YourFun(ss);
end

 

C

cwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #3

没想到这么快就有了答案，赶快测试一下。。。

 

F

flysand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #4

用variant吧!

 

C

cwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #5

to zhangkan:测试未通过！我的测试代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
begin
str.Create;
str.Add('ddd');
str.Add('ddd');
xx(str);
str.Free;
end;

procedure xx(str:tstrings);
var i:integer;
begin
for i:=0 to Str.Count-1 do
ShowMessage(Str.strings);
end;
运行时出错。

 

C

cwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #6

ok！刚才纯属笔误，莫要见笑！100分给你。
另外你能不能透露一下怎样直接把消息发给我？（100分）