BCB6如何打印Memo1内的文字

[kerbcurb]

Printer->Begindoc();
for(int i = 0;i < Memo1->Lines->Count - 1;i++)
Printer->Canvas->TextOut(20,20 + i * 20,Memo1->Lines[i]);
......;
........;
//
Printer->EndDoc();
变异可以通过，执行有问题，可以确定在这一句Memo1->Lines[i]，当i > 0;就错，什么原因？

[Maconel]

应该是这样吧。
Memo1->Lines->Strings[2]
你那样写编译可以通过？

[hongwuzhao]

楼上的正确

Printer->Begindoc();
for(int i = 0;i < Memo1->Lines->Count;i++)
Printer->Canvas->TextOut(20,20 + i * 20,Memo1->Lines-Strings[i];
......;
........;
//
Printer->EndDoc();

[kerbcurb]

编译可以通过，我是仿造Delphi的代码，在Delphi中是
Printer.Canvas.TextOut(20,20 + i * 20,Memo1.Lines[i]);
;

[kerbcurb]

win2k下编译可以通过，也能执行，执行时报错

[Janes001]

Lines是一个TString类型，应该说Memo1.Lines[i]也是可以的。