littletest43.out

来自「格式化源码的最新板」· OUT 代码 · 共 40 行

unit littletest43;

interface

implementation

uses SysUtils, Forms, Controls, comobj;

procedure foosavetodoc(filename: string);
var
  fword:  variant;
  fdoc:   variant;
  ftable: variant;
  frng:   variant;
  fcell:  variant;
  s, z:   integer;
begin
  screen.cursor := crhourglass;
  try
    fword := createoleobject('word.application');
  except
    screen.cursor := crdefault;
    raise Exception.Create('Word OLE server not found');
    exit;
  end;
  frng := fdoc.range(start := 0, end := 0);
  frng := fdoc.range(start := 0, begin := 0);
  frng := fdoc.range(start := 0, try := 0);
  frng := fdoc.range(start := 0, unit := 0);
  frng := fdoc.range(start := 0, for := 0);
  frng := fdoc.range(start := 0, if := 0);
  frng := fdoc.range(start := 0, then := 0);
  frng := fdoc.range(start := 0, procedure := 0);
  frng := fdoc.range(start := 0, string := 0);
  frng := fdoc.range(start := 0, integer := 0);
  frng := fdoc.range(start := 0, char := 0);
end;

end.