Becky! Advanced Template Plug-In version 1.0.0 beta 5

Author: Takeshi Ogue is͂jj
Web   : http://pages.prodigy.net/tak09/index.htm
Mail  : tak09@prodigy.net

Becky! Advanced Template Plug-In Ƃ́CBecky!ɃvO\ȃev
[ggݍނ߂̃vOCłB̃vOCgݍނƂɂC
ԐM̃[̏VXeɊւ擾C܂͎RɃwb
_ݒ肵肷邱Ƃ\ɂȂ܂B

Advanced Template Plug-In(ȉATML Plug-In)ɓڂĂC^v^
̌Poor-Pascal for ApplicationiPPAjƌĂ΂CProject PPA (P3A)
ĊJEǗĂ܂BPPA̓RpCłPascalɂ悭
łCPoor(nf)PascalƂOɂ炸Ȃ苭͂Ŋ
ꂽł܂BPascalɊS݊ł킯ł͂ȂCƂ
 PPAł͕ϐƂĐ^ƕ^ȂȂǂ݂̐܂B

ATMLXNvg(PPAɂ̊֐QǉĊgꂽXNvgj
PPAPascalɑ΂鐧̂قATMLƎ̐E[݂
܂B܂ɏdvȂƂ́CATML͈sڂ"begin_atml"Ƃ
܂܂ĂȂ΂Ȃ܂BɂATMLs̓ev[g
ATMLXNvgłƔfC͂͂߂܂B"begin_atml"Ƃ֐
萔ATMLɂ݂͑܂̂ŁCsڂɒu"begin_atml"͕KR
gAEgĂBRgAEg"//"(_uXbVǰ`̂݃T
|[gĂ܂B

ȉATML̊ȒPȃTvXNvgłB

---------
// begin_atml
// olɂĈAς

if Pos('.jp',refFrom) > 0 then // ol̃AhX".jp"
  println('ɂ́I')      // ĂC{ŕԂ
else
  println('Hello!');
---------

ЂƂB

---------
// BEGIN_ATML
// ԂɂĈAς܂

if StrToInt(Hour) < 12 then
  println('͂悤܂B')
else if StrToInt(Hour) < 18 then
  println('ɂ́B')
else
  println('΂B');
---------

PascalƓ悤ɁCPPA/ATML begin..end ň͂܂ꂽubN\T|
[g܂Bϐ錾sȂꍇ͑ŜKv͂܂񂪁C
錾sꍇ͂Ȃ炸XNvg{̂ begin..end ň͂łB

---------
// Begin_atml
// ϐ錾ƃubN\̃Tv
var
  a: Integer;
  s: String;
begin
  for a := 1 to 10 do
  begin
    s := IntToStr(a) + ' ' + IntToStr(a*a); // a̓\܂B
    println(s);
  end;
end;
---------

PPA/ATMLPascalCNȌłBȂ̂Ō^̈ɂɕqłB
^͂̂܂܂ł͏o͂͂ł܂̂ŁCK IntToStr() ֐ŕ^
ɃLXgiϊjďo͂悤ɂ܂傤B

ATMLXNvg͈̐ȉ̒ʂłB

- sڂ begin_atml ̕񂪑݂ȂĂ͂ȂȂ
- ^⏬^͂܂
- P3ÂrIVvWFNgł邽߁CPPAɂ̓oO݂
  \܂BPPAɊSˑĂATMLɂR̃oO͕\ʉ
  B
- ^̔rɂCompareStr()֐g܂Bȉ̍\̓G[ɂ
  ܂B
  if Str = 'ABC123' then ...

ȕ֐߂邽߁CATMLłPPAɑ݂Ȃ萔ƎɎĂ܂B

* refFrom - ԐM[FromtB[hi[Ă܂
* refDate - ԐM[DatetB[hi[Ă܂
* refTo   - ԐM[TotB[hi[Ă܂
* refSub  - ԐM[SubjecttB[hi[Ă܂
* refLines- ԐM[̍si[Ă܂
* Now     - ݎi[Ă܂
* Hour    - ݂̎Ԃi[Ă܂
* Minute  - ݂̕i[Ă܂
* Today   - ݂̓ti[Ă܂
* Date    - ݂̓ɂi[Ă܂
* Month   - ݂̌i[Ă܂
* Year    - ݂̔Ni[Ă܂
* DoW     - ݂̗ji[Ă܂
* Ver     - Becky!̃o[Wi[Ă܂
* Beta    - Becky!̃o[Wi[Ă܂

NowTodaỹtH[}bgWindows̐ݒɈˑ܂BWindows̐ݒ
XꍇBecky!ċNKv܂B܂C̒萔͑S
^ƂĊi[Ă܂B


*******************

ȉATMLɑgݍ܂Ă֐QłB

  procedure Attach(S: String);
    t@CYt܂B

  procedure println(S: String);
    [ɏo͂܂B

  procedure SetHeader(Header,Value: String);
    w肳ꂽwb_ݒ肵܂B

  procedure OriginalMessage(S: String);
    w肳ꂽpƂĕԐM[p܂B

  procedure ReadFromFile(FilePath: String);
    w肳ꂽeLXgt@Co͂܂B
    FileExists֐QƂĂB

  procedure Message(I1,I2:Integer;S:String);
    Qƃ[I1sڂI2sڂ܂łptŏo͂܂B

  procedure SetSignature(S: String);
    w肵܂B̊֐͏XgbL[łBnꂽɊ
    Sv̂w肷̂ł͂ȂCw肳ꂽŎn܂鏐
    Ƃ̏w肵܂B

  procedure ShowMessage(S: String);
    VvȃbZ[W{bNX\܂B

  function GetHeader(S: String): String;
    Qƃ[̃wb_lԂ܂B
    i.e) println(getheader('X-Mailer'));

  function Rand(I: Integer): Integer;
    Ow肳ꂽ܂ł͈̔͂ŗ쐬܂B

  function  StringAt(I:Integer):String;
    Qƃ[IsڂԂ܂B

  function  FileExists(FilePath: String): Integer;
    t@C݂ꍇ-1(True)C݂Ȃꍇ0(False)Ԃ
    ܂BReadFromFile֐gꍇ͂̊֐găG[
    Ƃ悢ł傤B


