サブスクリプション通知

エンバカデロさんからサブスクリプションの案内が来た。

前回メール便で物議を醸したこともあり、今回は事前に
連絡すれば宅急便で送付してくれるとのことだ。

こういった姿勢は、ボーランドさんでは見られなかった
ことだ。

こういった、前回の問題となった点を改善してくれた
ことは非常に好感がもてますね。

クレームは、起こったことよりもその後どうするかが
非常に大事だと思います。

ある意味、接客を生業とする自分もこういった姿勢は
見習いたいと思います。

非公認パッチ

AndyさんがDelphi2009の非公認パッチを公開しています。

パッチはQC#66892に関するものです。

これって日本語を扱った場合でもOKかな？

25周年

Turbo Pascal 1.0が世に出てから今年で25周年ということで
David Iがブログにいろいろ記事を載っけている。

自分は、学生の時に触ったFMR50用のTurbo pascal Ver3が最初
（確かサザンパシフィック版だったと思う）

本格的に使い出したのはTubro pascal 5.5からで、もう15年も
使っているのだけど、一向に上達しないんだなこれが・・・(T_T)

にしても、会社が変わりながらでも、同一もコンパイラが
25年もつづくのはすごいことだと思う。

Pascal Scriptを使ってみた

Delphi Prismの関係でRemObjectsのWEBサイトを見たところPascal Scriptが
Freeと書いてあったのインストール。

Delphi2009にインストールしてみたけど、コンパイルエラーが・・・
内容を良く調べてみるとUnicode化に伴うエラーコードっぽい。

自分の手ではちょっと直しようがないので（パーサー周りポインターが
多くなるのでちょっとつらいかな？）とりあえずDelphi 2007で試用

サンプルは右図のメモにコードを入力して、結果をラベルに表示する簡単なものです。

ソースコードは、こんな感じ。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, uPSComponent;

type
TForm1 = class(TForm)
  Memo1: TMemo;
  Button1: TButton;
  Label1: TLabel;
  PSScript1: TPSScript;
  procedure Button1Click(Sender: TObject);
  procedure PSScript1Compile(Sender: TPSScript);
private
  { Private declarations }
  procedure DsWrite(s: string);
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.PSScript1.Script.Assign(Self.Memo1.Lines);
Self.PSScript1.Compile;
Self.PSScript1.Execute;
end;

procedure TForm1.DsWrite(s: string);
begin
Label1.Caption := s;
end;

procedure TForm1.PSScript1Compile(Sender: TPSScript);
begin
  Sender.AddMethod(Self,@TForm1.DsWrite, 'procedure Writeln(s: string);');
end;

end.

Pascal ScriptのコンパイラとDelphiのコードを結びつけることができるので
以外に応用範囲が広いかも・・・・

また、上の例ではやってないが、Pascal Scriptでコンパイル済みのストリーム
データの読み書きもできるので、自作のアプリケーションにちょっとした演算を
組み込むには便利かも？

もうちょっと深く突っ込んでみよう。