使用Delphi填写使用富文本（rtf）文件制作的表格模板

Question

我有一个 rtf（富文本格式）文件格式的表。

我想知道是否可以在运行时将不同的内容放入单元格中。

这是一个屏幕截图。一些空白字段需要填写值。

Answer 1

您写了“需要编辑一些空白字段” - 如果这意味着 RTF 是某种模板，需要以编程方式填写空白字段，那么我会这样做：

• 使用文本编辑器打开 RTF 文档（例如 OpenOffice 或 MS Word）
• 在空字段中插入特殊占位符字符串，如 $field1$、$field2$ ...
• 将文档保存
• 在 Delphi 应用程序中，将 RTF 加载到字符串中（例如使用 TStringlist）
• 使用 Delphi String查找和替换的函数带有实际值的特殊占位符字符串

Answer 2

要在一张纸上打印表格，只需在打印机的画布​​上绘图即可！

procedure TForm1.Button1Click(Sender: TObject);
var
  y, Margin, Col2: integer;
  LineHeight: integer;
begin
  with TPrintDialog.Create(nil) do
    try
      if not Execute then
        Exit;
    finally
      Free;
    end;

  Printer.BeginDoc;

  Printer.Title := 'Sample Form';
  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Size := 11;

  Margin := 5*Printer.Canvas.TextWidth('M');
  Col2 := 35*Printer.Canvas.TextWidth('M');
  LineHeight := 3 * Printer.Canvas.TextHeight('M') div 2;

  y := Margin;

  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(MARGIN, y, 'Name: ');
  Printer.Canvas.Font.Style := [];
  Printer.Canvas.TextOut(Col2, y, 'Andreas Rejbrand');

  inc(y, LineHeight);

  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(MARGIN, y, 'Age: ');
  Printer.Canvas.Font.Style := [];
  Printer.Canvas.TextOut(Col2, y, '23');

  inc(y, LineHeight);

  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(MARGIN, y, 'Nationality: ');
  Printer.Canvas.Font.Style := [];
  Printer.Canvas.TextOut(Col2, y, 'Swedish');

  Printer.EndDoc;

end;

结果：http://privat.rejbrand.se/sampledrawing.pdf

Answer 3

要在 TRichEdit 中使用现有的 RTF 内容，请将其加载到组件的 Text 或 Lines 属性中：

RichEdit1.Lines.LoadFromFile(rtfFilename);

- 或 -

RichEdit1.Text := StringILoadedFromAnRtfFileOnDisk;

我不确定您想要做什么（根据某些现有的未指定 RTF 内容以编程方式创建或修改表格，打印它等）。通过询问丰富的编辑，还询问常规编辑，这是非常难以理解的。

您在评论中询问，如何在 TRichEdit 中创建表格：

procedure TForm1.PutTableIntoRichEdit;
begin
  RichEdit1.Text := '{\rtf1\ansi\deff0'#13#10+
'\trowd'#13#10+
'\cellx1000'#13#10+
'\cellx2000'#13#10+
'\cellx3000'#13#10+
'cell 1\intbl\cell'#13#10+
'cell 2\intbl\cell'#13#10+
'cell 3\intbl\cell'#13#10+
'\row'#13#10+
'}' ;
end;

如果您想在上面显示的屏幕截图中使用 RTF 内容，在您的 delphi 程序中，只需加载它并尝试一些操作，然后提出一个具体问题。向我们展示 microsoft word 的屏幕截图并不能帮助您弄清楚您的问题。