极简单的问题,循环 ( 积分: 23 )

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #1

var aaa:Tstringlist;

procedure TPrintForm.Button1Click(Sender: TObject);
var i:integer;
Begin
For I := 0 To aaa.count-1 Do
begin
WriteLineColumn( 1,-1, aaa);
WriteLineColumn( 2,-1, aaa);
WriteLineColumn( 3,-1, aaa);
end;
end;

有一个StringList的变量AAA,我想将AAA的值填入到三个Column中,名字分别是
WriteLineColumn( 1
WriteLineColumn( 2
WriteLineColumn( 3
我用上边的循环,把AAA中的一个值,三个Column一行填的全部一样,明显错了

应该怎么循环,才能把aaa的值不重复的填入到三个Column中

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #2

var aaa:Tstringlist;

procedure TPrintForm.Button1Click(Sender: TObject);
var i:integer;
Begin
For I := 0 To aaa.count-1 Do
begin
WriteLineColumn( 1,-1, aaa);
WriteLineColumn( 2,-1, aaa);
WriteLineColumn( 3,-1, aaa);
end;
end;

有一个StringList的变量AAA,我想将AAA的值填入到三个Column中,名字分别是
WriteLineColumn( 1
WriteLineColumn( 2
WriteLineColumn( 3
我用上边的循环,把AAA中的一个值,三个Column一行填的全部一样,明显错了

应该怎么循环,才能把aaa的值不重复的填入到三个Column中

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #3

procedure TPrintForm.Button1Click(Sender: TObject);
var i:integer;
Begin
For I := 0 To aaa.count-1 Do
begin
WriteLineColumn( i+1,-1, aaa);
end;
end;

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #4

WriteLineColumn( i+1,

这个过程的参数第一个,只能是1 或者2 或者3
1表示是第1个Column,2表示填入第2个Column,依此类推

I+1的话,没边了....呵

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #5

procedure TPrintForm.Button1Click(Sender: TObject);
var i,j:integer;
Begin
For I := 0 To (aaa.count-1) div 3 Do
begin
j:=I*3;
if j<aaa.count then
WriteLineColumn( 1,-1, aaa[j]);
j:=j+1;
if j<aaa.count then
WriteLineColumn( 2,-1, aaa[j]);
j:=j+1
if j<aaa.count then
WriteLineColumn( 3,-1, aaa[j]);
end;
end;
这样？[]

 

Y

yanshi1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #6

很简单啊
case (i mod 3) of
0:begin
WriteLineColumn( 1,-1, aaa);
end;
1:begin
WriteLineColumn( 2,-1, aaa);
end;
2:begin
WriteLineColumn( 3,-1, aaa);
end;
end;

这样肯定没问题：）

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #7

哈哈哈,试试,我技术太差,看不出来行不行,试一下,非常感谢大侠出手

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #8

Avalon大侠,有MSN或者QQ吗? 我把整个单元发给你吧,还是不太行 []

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-29

• #9

82279093
yanshi1980 和我方法基本是一样的

 

T

tommy_99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-30

• #10

for i:=0 to aaa.count-1 do
WriteLineColumn(i+1,-1,aaa);

 

P

power2010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #11

接受答案了.