testoleparams.out

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

unit TestOleParams;

{ AFS 11 July 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
}

interface

implementation

uses ComObj;

procedure WordUp;
var
  MSWord: variant;
begin
  MsWord := CreateOleObject('Word.Basic');

  MsWord.AppShow;
  MSWord.FileNew;
  MSWord.Insert('Foo');
  MSWord.LineUp(2, 1);

  { Ack! }
  MSWord.TextToTable(ConvertFrom := 2, NumColumns := 3);
end;

procedure W_App;
var
  WordApp: variant;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Open('foo', , , , 'bar');
end;

end.