火急，项目最后一处‘卡括’-----非常原始的打印问题,高手快进，待遇绝对丰厚

Question

谁能将一个自由风格数据窗口中的内容以及形式全部导入记事本中然后打印，
注意：决不是用什么SAVEAS等类似函数，只将数据导入这么简单，意思还得有网格反正，只要记事本中能显示即可，如何实现我不管,
当然，我希望用什么一条语句导入最好

Answer 1

这个副本原来是用VF做的，现在我们要用PB将此软件，升级，客户要求保留以前用记事本显示的
功能，怎么办，我连怎么在记事本中画线都不知道。谁能救命。。

Answer 2

问题是，这个程序的原件是用VF做的，而且还是95年做的，老版本的确导出了，老板说现在
的技术没道理实现不了，怎么，这老板又不太懂PB我这还有副本，

Answer 3

WORD－插入－符号
可以看到很多表格符号，例如：
─│┌┐└┘├┤┬┴┼
手工拼成表格线吧……虽然工作量很大

Answer 4

[email protected]在记事本中划线--根据长度划 ----------不就得了？

Answer 5

同意windindance(风舞轻扬)
象 dos下的软件一样

Answer 6

//Grid是一个TStringGridprocedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:integer;
  a:array of array of string;
  w:array of integer;
  s:string;
begin
  with Grid do
  begin
    SetLength(a, ColCount * 2 + 1, RowCount * 2 + 1);
    SetLength(w, ColCount);    for i:=0 to ColCount-1 do
    for j:=0 to RowCount-1 do
      if Length(Cells[i,j]) > w[i] then
        w[i] := (Length(Cells[i,j])+1) DIV 2 *2;    for i:=0 to ColCount-1 do
    for j:=0 to RowCount-1 do
      a[i*2+1, j*2+1] := Cells[i,j] + StringOfChar(' ', w[i] - Length(Cells[i,j]));    for i:=0 to ColCount do
    for j:=0 to RowCount-1 do
      a[i*2, j*2+1] := '│';    for i:=0 to ColCount-1 do
    for j:=0 to RowCount do
      for k:=1 to (w[i]+1) DIV 2 do
        a[i*2+1, j*2] := a[i*2+1, j*2] + '─';    for i:=0 to ColCount-2 do
    for j:=0 to RowCount-2 do
      a[i*2+2][j*2+2] := '┼';    for j:=0 to RowCount-2 do
    begin
      a[0][j*2+2] := '├';
      a[ColCount*2][j*2+2] := '┤';
    end;    for i:=0 to ColCount-2 do
    begin
      a[i*2+2][0] := '┬';
      a[i*2+2][RowCount*2] := '┴';
    end;    a[0,0] := '┌';
    a[0,RowCount*2] := '└';
    a[ColCount*2,0] := '┐';
    a[ColCount*2,RowCount*2] := '┘';    Memo.Lines.Clear;
    for j:=0 to RowCount*2 do
    begin
      s := '';
      for i:=0 to ColCount*2 do
        s := s + a[i,j];
      Memo.Lines.add(s);
    end;
  end;
end;

Answer 7

to :things(平)(♂意难平♀)
我发了一份副本给你，你用DELPHI或PB实现一份，画线本来就很麻烦了，而且还要
在表中填写数据，还要控制打印换行。发了，快去看看

Answer 8

偶现在很穷，挣分结贴 偶现在很穷，挣分结贴 偶现在很穷，挣分结贴到论坛去看一看
http://www.envanet.com
我的论坛，这样说是不是有拉条皮的嫌疑
不过我确实放了很多高程考试的资料在上面
好的话，给点分支持一下

Answer 9

to :windindance(风舞轻扬) 
十分感谢你提供的方法，我当初第一想法也是这个但我真的不敢去做，你不知这么划出来会多死人
因为不只一张要画，而且，没张格式又不同，关键是还要控制换页，打印。你的信箱？我发一份给你看看

Answer 10

to:windindance(风舞轻扬) 
你的代码我已经实现了，但表中的线不连贯呀，怎么办，还有其他方法吗？
到目前为止，你一定有分了
在线等待？？？？？？？？？？？？？？

Answer 11

我搞错了，我将MEMO框中的内容COPY到记事本中，的确是连贯的
我的副本你收到了么，看看吧！帮我研究一下实现这种效果的可行性

Answer 12

象DOS下面的划格子的编程一样，自己调试就是了