littletest43.out

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

unit LittleTest43;

{ AFS 10 Sept 2003

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 code from Adem baba
 }

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;
  { 'End'?!?! Since when is 'end' a valid identifier!?!?  I cannae believe it capt'n! }
  FRng := FDoc.Range(start := 0, end := 0); {<-- HERE}

 { right, if end works, let's see what other reserved words we can abuse
  amazing. }
  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.