MS SQL Server テーブル一覧の取得

select name
from sysobjects
where xtype = 'U'
order by name

Delphi ADOのConnect接続文字列のウィザード

procedure TADODBTest.EditConnStrClick(Sender: TObject);
begin
Connection.Close;
Connection.ConnectionString := ConnectionString.Text;
if EditConnectionString(Connection) then
begin
ConnectionString.Text := Connection.ConnectionString;
ConnectionStringClick(Sender);
end;
end;

上記で接続文字列のウィザードが表示される

FileListGet

FileListGet関数
指定したフォルダ内のファイル名を取得する場合に使用する。

１．一次元ベクトル変数を作成します。
２．FileListGetで１番に作成したベクトルに代入
項目更新 １番の変数 FileListGet(フォルダ名, 抽出拡張子※１, サブフォルダ対象判定※２)

３．VecSizeでベクトルレコード分、処理を行う
BlockのWhileを使用しても良いが、タスクにした方が後でメンテしやすい。
終了条件：VecSize(BB)
４．VecGetで取り出し
レコード後処理で、VecGet(１番の変数,Counter(0))　で取り出し出来る。

確認Ver:MAGICv9

UniPaas 実行時のＰＦキーの動作がおかしい

UniPaas　実行時のＰＦキーの動作がおかしい時がある。

サブフォームのシステムメニューはＮｏにしていたが
メインフォームのシステムメニューがＹｅｓになっていた。
上記により、メインフォームのWindowsシステムメニューにカーソルが
パーキングしているから、キーが無効になっていた。

対応：メインフォームもシステムメニューをＮｏにすること

IIS7 Express

以下のリンクが詳しい
http://blogs.msdn.com/b/osamum/archive/2011/01/19/iis-7-5-express.aspx

WindowsXPでも、IIS7相当の機能

MAGIC LIKE関数

文字列の比較（パターンマッチング）

文字列が指定したパターンに一致するかどうかを判断し、論理値を返します。

パターンには、通常の文字とワイルドカード文字を含めることができます。次の文字がワイルドカードに使用されます。

* … 0個以上の文字列
? … 1個の文字

SQLのWHERE句にLIKE文を記述出来る。

確認Ver:MAGICv9.4Plus

Delphi Open Source Projects synapse

ネットワークアクセスコンポーネント

ライセンス：修正ＢＳＤ
http://ararat.cz/synapse/doku.php/start

Delphi TEditのPasswordCharに「*(アスタリスク)」を指定すると「●(黒丸)」で表示されてしまう

TEditのPasswordCharに「*(アスタリスク)」を指定すると「●(黒丸)」で表示されてしまう
MSDNによるとCommon Controlのバージョン６以降のEditコントロールの
パスワード文字のデフォルト値が●に変更になってて
Delphiの方でもテーマが有効でPasswordCharが＊の時は
コントロールのデフォルトに合わせる様になってるのが問題みたいですね。

Formの宣言の上に下記を追加したら良いかと

TEdit = class(StdCtrls.TEdit)
procedure CreateWnd; override;
end;

procedure TEdit.CreateWnd;
begin
inherited;
if PasswordChar <> #0 then
SendMessage(Handle, EM_SETPASSWORDCHAR, Ord(PasswordChar), 0);
end;


ソース：Delphi Q&A
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+201102/11020018.txt

MAGICのＤＢ２サポート状況

MAGICのＤＢ２サポート状況、2010/01/28時点

MAGIC v10までは、UDBをサポート
UniPaasからは、AS400用のDB2をサポート、UDBはサポート対象外となった。

ExpCalc

MAGIC(UniPaas)で使用出来る関数

一歩間違うと、訳分からない状態の式が出来る

式の実行
指定された式番号の定義式を実行します。

構文： ExpCalc (式番号)

確認Ver:MAGICv8とUniPaas1.5

iTextSharpでBarcodeのサイズを変更

iTextSharpでBarcodeのサイズを変更する

スケーリング（拡大・縮小）
イメージの大きさを指定してスケーリングをするときには
scaleAbsolute[Width|Height] メソッドを使います。
ある割合 (パーセント) でスケーリングするときは、scalePercent メソッドを使います。
既定では、スケーリングされていないイメージは、解像度が 72dpi と扱われることに注意。
50% でスケーリングされたイメージでは、144 になります。
小さくスケーリングされたイメージは、ピクセルの大きさが小さくなるので解像度は大きくなります。
300dpi で出力したいときには、72/300=24% のスケーリングを使います。
例えば、24% (72/300 = 0.24) のスケーリングで
1500X1500 ピクセル (5X300 = 1500) のイメージを PDF へ配置すると
PDF 中では、1500X1500 ピクセル が 5X5 inch となり
解像度が 300dpi のイメージとなります。
サイズがどうあろうとも、そのイメージはいつでも 1500X1500 ピクセルです。

Barcode39 code39 = new Barcode39();
code39.Code = iBarCode; //出力するバーコードの文字
code39.StartStopText = true; //スタートストップテキスト
code39.BarHeight = 20; //バーコ－ドの高さ
code39.GenerateChecksum = false;

Image image39 = code39.CreateImageWithBarcode(pcb, null, BaseColor.WHITE);
image39.SetAbsolutePosition(20, 550);
image39.RotationDegrees = 90; //回転９０度
image39.ScaleAbsolute(250,20);

pcb.AddImage(image39);

入出力デバイスのオープンタイミング

入出力デバイスのオープンタイミング （デフォルト:I=即時）

MAGIC.INIおよびコマンドライン名: IOTiming

対応Ver:MAGICv9

Quick PDF Library Lite

Quick PDF Library Lite

Quick PDF Libraryは有料だけどLiteは無料みたい。
でも使用したい機能は、DrawTextだから、Liteで十分と思われる。

http://www.quickpdflibrary.com/free/lite.php

DelphianWorldのアーカイブ

DelphianWorldをアーカイブしているページ
http://web.archive.org/web/20070517141149/norg1964.hp.infoseek.co.jp/delphianworld/

Delphiの資料および情報が無くなりつつありますが
保存してくれているとうれしい限りです。

情報元は、Mr.XRayさんの掲示板
http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi

Delphi Open Source Projects PasDoc

原文
Pasdoc generates documentation for Pascal units. It takes descriptions from comments within the source code. Documentation output formats include HTML and LaTeX. Object Pascal, FreePascal and Delphi specific features are supported.

翻訳
Pasdocは、Pascalユニットのためにドキュメンテーションを引き起こします。
それは、ソースコードの範囲内でコメントから説明をとります。
ドキュメンテーション出力フォーマットは、HTMLとLaTeXを含みます。
オブジェクトPascal、FreePascalとデルファイに特有の特徴は、サポートされます。

http://sourceforge.net/projects/pasdoc/
http://pasdoc.sipsolutions.net/

ライセンス：ＧＰＬ

C++ コマンドパラメータ

C++のコマンドパラメータ
VisualStudio2008のデフォルト文字がUniCodeだったので
正しく入力パラメータを認識しなかった。

対応
コンパイルオプションのUnicodeを無効にする。
構成：全般：文字セット

Delphi Open Source Projects SKRegexp

Delphi OpenSource

Delphi用正規表現ユニット
ライセンス：MPL1.1
開発者：日本人
http://komish.com/softlib/skregexp.htm

すべてDelphiで書かれている。

Open Source Haru Free PDF Library

Open Source Haru Free PDF Library
作成元は、日本人
ソースはＣ言語
ライセンスはZLib
現在は外人さんがメンテを行っている。

昔は、http://sourceforge.net/projects/libharu/ 2.0.8
現在は、http://libharu.org/ 2011/02/09時点で、2.2.1

インターフェースがそろっているので、.Net(C#),Delphi,Ruby,Pythonなどからも
コール出来る。

日本語解説
http://terusan.kage-tora.com/harupdf.html 確認日 2011/02/09

Delphi Open Source Projects

Delphi Open Source Projects

OmniXML
OmniXML is a XML parser
Mozilla Public License (MPL) 1.1.
http://www.omnixml.com/

Open Source Delphi components for MIDAS
http://sourceforge.net/projects/midess/

PDFsharp - A .NET library for processing PDF

http://pdfsharp.codeplex.com/

.net用のPDFライブラリ

ライセンスはMIT

Ascii 文字コード一覧

chr 0 : ヌル（空白文字）
chr 1 : バイト値１（「ヘッダ開始」という意味らしい）
chr 2 : バイト値２（「テキスト開始」という意味らしい）
chr 9 : 水平タブ（[TAB] キー一回分）
chr 10 : 改行（カーソル位置をそのままに、次の行へ移動）
chr 13 : 復帰（カーソル位置を行頭へ移動）
chr 32 : 空白（半角スペース " "）
chr 33 : 感嘆符（エクスクラメーション "!"）
chr 34 : 二重引用符（ダブルクォーテーション '"'）
chr 35 : シャープ（"#"）
chr 36 : ドル（"$"）
chr 37 : パーセント（"%"）
chr 38 : アンパサンド（＆記号 "&"）
chr 39 : （右）一重引用符（シングルクォーテーション "'"）
chr 40 : 始め小括弧（"("）
chr 41 : 終わり小括弧（")"）
chr 42 : アスタリスク（米印 "*"）
chr 43 : プラス（"+"）
chr 44 : カンマ（","）
chr 45 : マイナス（"-"）
chr 46 : ピリオド（"."）
chr 47 : スラッシュ（わり算記号 "/"）
chr 58 : コロン（":"）
chr 59 : セミコロン（";"）
chr 60 : 始め山括弧（"<"） chr 61 : 等号（イコール記号 "="） chr 62 : 終わり山括弧（">"）
chr 63 : 疑問符（クエスチョンマーク "?"）
chr 64 : アットマーク（"@"）
chr 91 : 始め大括弧（"["）
chr 92 : 円記号（"\"）
chr 93 : 終わり大括弧（"]"）
chr 95 : アンダーライン（"_"）
chr 123 : 始め中括弧（"{"）
chr 124 : 縦線（"|"）
chr 125 : 終わり中括弧（"}"）
chr 126 : チルダ（"~"）

MS-SQL 半角から全角の変換

http://d.hatena.ne.jp/babydaemons/20080226
コピペさせてもらいました。
非常に助かります。


CREATE FUNCTION dbo.ToWide(@s VARCHAR(512))
RETURNS VARCHAR(512) AS
BEGIN
/* ASCII文字はコード順に処理する */
SET @s = REPLACE(@s COLLATE Japanese_BIN, ' ', '　')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '!', '！')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '"', '”')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '#', '＃')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '$', '＄')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '%', '％')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '&', '＆')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '''', '’')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '(', '（')
SET @s = REPLACE(@s COLLATE Japanese_BIN, ')', '）')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '*', '＊')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '+', '＋')
SET @s = REPLACE(@s COLLATE Japanese_BIN, ',', '，')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '-', '－')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '.', '．')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '/', '／')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '0', '０')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '1', '１')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '2', '２')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '3', '３')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '4', '４')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '5', '５')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '6', '６')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '7', '７')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '8', '８')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '9', '９')
SET @s = REPLACE(@s COLLATE Japanese_BIN, ':', '：')
SET @s = REPLACE(@s COLLATE Japanese_BIN, ';', '；')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '<', '＜') SET @s = REPLACE(@s COLLATE Japanese_BIN, '>', '＞')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '?', '？')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '@', '＠')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'A', 'Ａ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'B', 'Ｂ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'C', 'Ｃ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'D', 'Ｄ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'E', 'Ｅ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'F', 'Ｆ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'G', 'Ｇ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'H', 'Ｈ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'I', 'Ｉ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'J', 'Ｊ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'K', 'Ｋ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'L', 'Ｌ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'M', 'Ｍ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'N', 'Ｎ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'O', 'Ｏ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'P', 'Ｐ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'Q', 'Ｑ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'R', 'Ｒ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'S', 'Ｓ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'T', 'Ｔ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'U', 'Ｕ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'V', 'Ｖ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'W', 'Ｗ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'X', 'Ｘ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'Y', 'Ｙ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'Z', 'Ｚ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '`', '｀')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'a', 'ａ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'b', 'ｂ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'c', 'ｃ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'd', 'ｄ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'e', 'ｅ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'f', 'ｆ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'g', 'ｇ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'h', 'ｈ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'i', 'ｉ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'j', 'ｊ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'k', 'ｋ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'l', 'ｌ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'm', 'ｍ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'n', 'ｎ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'o', 'ｏ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'p', 'ｐ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'q', 'ｑ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'r', 'ｒ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 's', 'ｓ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 't', 'ｔ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'u', 'ｕ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'v', 'ｖ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'w', 'ｗ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'x', 'ｘ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'y', 'ｙ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'z', 'ｚ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '{', '｛')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '|', '｜')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '}', '｝')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '~', '￣')

/* 濁点・半濁点を先に処理する */
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｶﾞ', 'ガ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｷﾞ', 'ギ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｸﾞ', 'グ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｹﾞ', 'ゲ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｺﾞ', 'ゴ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｻﾞ', 'ザ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｼﾞ', 'ジ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｽﾞ', 'ズ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｾﾞ', 'ゼ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｿﾞ', 'ゾ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾀﾞ', 'ダ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾁﾞ', 'ヂ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾂﾞ', 'ヅ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾃﾞ', 'デ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾄﾞ', 'ド')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾊﾞ', 'バ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾋﾞ', 'ビ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾌﾞ', 'ブ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾍﾞ', 'ベ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾎﾞ', 'ボ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾊﾟ', 'パ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾋﾟ', 'ピ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾌﾟ', 'プ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾍﾟ', 'ペ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾎﾟ', 'ポ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｳﾞ', 'ヴ')
/* 残りはコード順に処理する */
SET @s = REPLACE(@s COLLATE Japanese_BIN, '｡', '。')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '｢', '「')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '｣', '」')
SET @s = REPLACE(@s COLLATE Japanese_BIN, '､', '、')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｦ', 'ヲ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｧ', 'ァ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｨ', 'ィ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｩ', 'ゥ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｪ', 'ェ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｫ', 'ォ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｬ', 'ャ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｭ', 'ュ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｮ', 'ョ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｯ', 'ッ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｰ', 'ー')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｱ', 'ア')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｲ', 'イ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｳ', 'ウ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｴ', 'エ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｵ', 'オ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｶ', 'カ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｷ', 'キ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｸ', 'ク')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｹ', 'ケ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｺ', 'コ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｻ', 'サ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｼ', 'シ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｽ', 'ス')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｾ', 'セ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ｿ', 'ソ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾀ', 'タ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾁ', 'チ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾂ', 'ツ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾃ', 'テ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾄ', 'ト')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾅ', 'ナ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾆ', 'ニ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾇ', 'ヌ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾈ', 'ネ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾉ', 'ノ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾊ', 'ハ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾋ', 'ヒ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾌ', 'フ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾍ', 'ヘ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾎ', 'ホ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾏ', 'マ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾐ', 'ミ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾑ', 'ム')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾒ', 'メ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾓ', 'モ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾔ', 'ヤ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾕ', 'ユ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾖ', 'ヨ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾗ', 'ラ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾘ', 'リ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾙ', 'ル')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾚ', 'レ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾛ', 'ロ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾜ', 'ワ')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾝ', 'ン')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾟ', '゜')
SET @s = REPLACE(@s COLLATE Japanese_BIN, 'ﾞ', '゛')
RETURN @s
END

MAGIC FileDlg

UniPaasのFileDlg関数

構文：
FileDlg(ファイルタイプ,グループ)

グループにフルパスを設定すると、フルパスの場所で、ファイルダイアログが表示される。

確認Ver UniPaas1.5

FileDlg関数はMAGIC v8から存在しています。

Delphi ダミーファイル作成

procedure CreateNewFile(FileName: String; FileSize: Integer);
var
FileHandle: Integer;
C: Char;
begin
FileHandle := FileCreate (FileName);
FileSeek(FileHandle,FileSize-1,0);
C := Char(0);
FileWrite (FileHandle,C,1);
FileClose (FileHandle);
end;

MAGIC Translate関数

MAGIC Translate関数は
論理名の値を展開してくれる。

発生Ver MAGIC v9