Delphi

Set operators * intersection set set S * T

Fred — 2006-06-02 17:00:00Z

Set operators
Operator Operation Operand types Result type Example
+ union set set Set1 + Set2
- difference set set S - T
* intersection set set S * T
<= subset set Boolean Q <= MySet
>= superset set Boolean S1 >= S2
= equality set Boolean S2 = MySet
<> inequality set Boolean MySet <> S1
in membership ordinal, set Boolean A in Set1

有数学功底的人或逻辑思维严密的人做程序事半功倍

程序就是布局

飞天 — 2005-04-28 09:30:00Z

　　写代码如下棋未下子先有布局

Word文件转PDF文件　用Acrobat Assistant打印功能

飞天 — 2005-04-22 10:46:00Z

　程序跑在HP380 上　至强3.2G 2G RAM, 看到打印队列中５０００多个文件１秒钟消失一个，感觉很爽。

汗　今天才知道　Delphi pos()　是大小写敏感的，　还　＝　也是

飞天 — 2005-03-10 15:44:00Z

Word的另一种用法

飞天 — 2005-01-21 17:19:00Z

　在做邮件发送程序时要编辑Html格式的邮件，　通过一种变通的方法，先用RichEdit实现格式，再用

Word的打开RTF文件，另存为HTML文件，再Load到邮件中去。

Word 文档转换成 Text 文档

飞天 — 2004-06-28 16:34:00Z

// Word 文档转换成 Text 文档
// Created 2004-6-28
// @author pal

// windows2003, office2003, delphi7

// uses WordXP, Variants

TDoc2Text = class(TObject)
private
FWordApp: TWordApplication;
FWordDoc: TWordDocument;
FIsEnable: Boolean;
public
constructor Create;
destructor Destroy; override;
function Transfer(DocFileName, TxtFileName: string): Boolean;

property IsEnable: Boolean read FIsEnable write FIsEnable;
end;

{ TDoc2Text }

constructor TDoc2Text.Create;
begin
FWordApp   := TWordApplication.Create(nil);
FWordDoc   := TWordDocument.Create(nil);

try
    FWordApp.Connect;
    FWordApp.Visible := False;
    {Turn Spell checking of because it takes a long time if enabled and slows down Winword}
    FWordApp.Options.CheckSpellingAsYouType := False;
    FWordApp.Options.CheckGrammarAsYouType := False;

    FIsEnable := True;
except
    FIsEnable := False;
    Abort;
end;
end;

destructor TDoc2Text.Destroy;
begin
try
    FWordApp.Quit;
    FWordApp.Disconnect;
except
    on E: Exception do
    begin
      FWordApp.Disconnect;
    end;
end;

FreeAndNil(FWordApp);
FreeAndNil(FWordDoc);

inherited;
end;

function TDoc2Text.Transfer(DocFileName, TxtFileName: string): Boolean;
var
FileName: OleVariant;
Index: OleVariant;
FileFormat: OleVariant;
ovVisible: OleVariant;
begin
Result := False;
if not FIsEnable then
Exit;

FileName := DocFileName;
try
    // EmptyParam 空参数
    ovVisible := False;
    FWordApp.Documents.Open2000(FileName, EmptyParam, EmptyParam, EmptyParam,
                                EmptyParam, EmptyParam, EmptyParam,
                                EmptyParam, EmptyParam,
                                EmptyParam, EmptyParam, ovVisible);

    Index := 1;
    FWordDoc.ConnectTo(FWordApp.Documents.Item(Index));
    FileName   := TxtFileName;
    FileFormat := wdFormatText;
    FWordDoc.SaveAs2000(FileName, FileFormat);
    FWordDoc.Disconnect;
    FWordApp.Documents.Item(Index).Close(EmptyParam, EmptyParam, EmptyParam);

    Result := True;
except
    Result := False;
    Abort;
end;
end;