书上看到这段代码，我看不懂？谁能逐句解释，50大洋双后捧上(50分)

L

lzchinaboy1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #1

procedure TMDIChild.FilePrintExecute(Sender: TObject);
var
Line:Integer;
PrintText:System.Text;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Cavas.Font:=Memo1.Font;
Writeln(PrintText,Memo1.lines[line]);
System.Close(PrintText);
end;


end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #2

怎么好象只打了一行就不打了?

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #3

這個是打印memo1的文字的﹐整型變量line沒有初始化的﹐而且沒有循環﹐所以只打印一行。

 

魔

魔鬼大师

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #4

不对不对

 

L

lzchinaboy1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #5

1.解释以下几句
PrintText:System.Text; ????
AssignPrn(PrintText);????
Rewrite(PrintText); ???
Printer.Cavas.Font:=Memo1.Font???
System.Close(PrintText);???

 

C

csz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #6

lzchinaboy1老弟，编译通过后选中你明白的函数，按F1看看不就明白了吗
再加个金山糍粑够了
第三行应该是
Printer.Canvas.Font:=Memo1.Font;

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #7

PrintText:System.Text; //PrintText為Text數據類型
AssignPrn(PrintText);//關聯打印機
Rewrite(PrintText); //初始化PrintText
Printer.Cavas.Font:=Memo1.Font//指定Printer的字體跟memo1一樣
System.Close(PrintText);//清除和釋放PrintText

 

刀

刀剑如梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #8

收藏之！

 

Z

zlyanyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-24

• #9

呵呵，楼主应该接受答案了把。

 

L

lzchinaboy1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-24

• #10

接受答案了.