|
ｿｽ@ｿｽｿｽoracleｿｽﾌ「ｿｽ`ｿｽvｿｽ文趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ取得ｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽ痰ｩ 2008/04/02(ｿｽｿｽ) 20:38:22
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ痰ｩｿｽﾅゑｿｽｿｽB
ｿｽﾂ具ｿｽｿｽﾍ以会ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB
ｿｽEWindows Vista Bussiness
ｿｽEDelphi 7 Professinal
ｿｽEOracle 10g
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾈ会ｿｽｿｽﾌようｿｽｿｽADOQueryｿｽｿｽgｿｽpｿｽｿｽｿｽAoracleｿｽﾉ接托ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽuｿｽ`ｿｽvｿｽｿｽｿｽu?ｿｽvｿｽﾆなゑｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽOracle ｿｽｿｽ UNICODE ｿｽﾌコｿｽ[ｿｽhｿｽ}ｿｽbｿｽsｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈようｿｽﾅゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽpｿｽｿｽｿｽFhttp://www2.big.or.jp/‾osamu/Delphi/delphi-browse.cgi?index=071738ｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽNｿｽｿｽｿｽﾌ設抵ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽuWindows-31Jｿｽvｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾂ具ｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽﾌ都ｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽsｿｽﾂ能ｿｽﾈのでゑｿｽｿｽiｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽEｿｽjｿｽB
ｿｽlｿｽbｿｽgｿｽｿｽﾉゑｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽiSJIStoUTF,SJIStoUTFN,UTFtoSJIS,UTFNtoSJIS,JisToSJis,SJisToJis,HanToZen,
ｿｽ@HanToZen2,UTFtoSJIS,UTFNtoSJIS,Utf8Decode,Utf8EncodeｿｽｿｽｿｽXｿｽEｿｽEｿｽEｿｽj
ｿｽuｿｽaｿｽﾅゑｿｽ
VBｿｽｿｽReplaceｿｽﾖ撰ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽuｿｽ`ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ搾ｿｽﾌ暦ｿｽz
strSHONIN_NAME = Replace("" & OraDynaset("SHONIN_NAME"), ChrW(12316), "ｿｽ`", 1, -1, vbTextCompare)
ｿｽﾆ簡単ｿｽﾉ変奇ｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽADelphiｿｽﾅは不ｿｽﾂ能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽFｿｽlｿｽﾌゑｿｽｿｽﾍゑｿｽｿｽｿｽﾘりしｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽﾉゑｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽﾝゑｿｽｿｽｿｽｿｽﾈので奇ｿｽｿｽoｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽWｿｽ¥ｿｽﾍの厄ｿｽｿｽｿｽｿｽﾉ懶ｿｽｿｽRｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽｿｽpｿｽｿｽEｿｽｿｽﾅ趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
//-----------------------------------------
//ｿｽﾈ会ｿｽｿｽ¥ｿｽ[ｿｽX
//-----------------------------------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from test');
ADOQuery1.Open;
while ADOQuery1.Eof = False do
begin
ｿｽ@showmessage(ADOQuery1.FieldByName('text').AsString);
ｿｽ@ADOQuery1.Next;
end;
ADOQuery1.Close;
ｿｽｿｽｿｽﾊ：DBｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽ@ｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽv
ｿｽ@ｿｽ@ｿｽFｿｽ@ｿｽ@ｿｽuｿｽｿｽｿｽ`ｿｽｿｽｿｽvｿｽ@ｿｽｿｽｿｽuｿｽｿｽ?ｿｽｿｽｿｽv
DEKO 2008/04/02(ｿｽｿｽ) 23:08:34
ｿｽｿｽｿｽｿｽ"ｿｽgｿｽ_ｿｽbｿｽVｿｽｿｽ(WAVE DASH)ｿｽｿｽｿｽ"ｿｽﾅゑｿｽｿｽﾋ。
http://ja.wikipedia.org/wiki/%E6%B3%A2%E3%83%80%E3%83%83%E3%82%B7%E3%83%A5#Unicode.E3.81.AB.E9.96.A2.E9.80.A3.E3.81.99.E3.82.8B.E5.95.8F.E9.A1.8C
>Delphiｿｽﾅは不ｿｽﾂ能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Delphiｿｽﾅゑｿｽ2007ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAsWideStringｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾌで、
#$301C(ｿｽgｿｽ_ｿｽbｿｽVｿｽｿｽ:WAVE DASH)ｿｽｿｽ#$FF5E(ｿｽSｿｽpｿｽ`ｿｽｿｽｿｽ_:FULLWIDTH TILDE)ｿｽｿｽ
ｿｽﾏ奇ｿｽ(VBｿｽﾌ暦ｿｽﾌようｿｽｿｽ)ｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽDelphi7ｿｽﾉゑｿｽAsWideStringｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで撰ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
1.WideStringｿｽﾌ変撰ｿｽ(Wｿｽﾆゑｿｽｿｽｿｽ)ｿｽｿｽpｿｽﾓ。
2.ｿｽｿｽｿｽｿｽｿｽｿｽAsVariantｿｽﾅ取得ｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽB
ｿｽ@W := ADOQuery1.FieldByName('text').AsVariant;
3.#$301Cｿｽｿｽ#$FF5Eｿｽﾖ置ｿｽｿｽｿｽB
4.(Ansi)Stringｿｽ^ｿｽﾌ変撰ｿｽ(Aｿｽﾆゑｿｽｿｽｿｽ)ｿｽｿｽWideStringｿｽﾌ変撰ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@A := W;
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ痰ｩ 2008/04/03(ｿｽｿｽ) 14:53:46
DEKOｿｽl
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ痰ｩｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾔ趣ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽ`ｿｽvｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽu?ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽuｿｽ`ｿｽvｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ変奇ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽいｿｽｿｽlｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽﾈ会ｿｽｿｽﾌ鯉ｿｽｿｽﾊゑｿｽｿｽｿｽ
Oracleｿｽﾌ「ｿｽ`ｿｽvｿｽﾆ「?ｿｽvｿｽﾍ「#$301Cｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽH
ｿｽu?ｿｽvｿｽﾍ「#$FF1Fｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
(*
ｿｽｿｽｿｽpｿｽｿｽｿｽFhttp://ash.jp/code/unitbl21.htm
ｿｽｿｽ ｿｽ_ JIS SJIS EUC UTF-8 UTF-16 ｿｽｿｽ
01 33 2141 8160 A1C1 E3809C 301C ｿｽ`
01 09 2129 8148 A1A9 EFBC9F FF1F ｿｽH
*)
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆばゑｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽlｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
//-----------------------------------------
//ｿｽﾈ会ｿｽｿｽ¥ｿｽ[ｿｽX
//-----------------------------------------
var
WS : WideString;
AS : AnsiString;
begin
ｿｽ@ADOQuery1.SQL.Clear;
ｿｽ@ADOQuery1.SQL.Add('select * from test');
ｿｽ@ADOQuery1.Open;
ｿｽ@while ADOQuery1.Eof = False do
ｿｽ@begin
ｿｽ@ｿｽ@WS := ADOQuery1.fieldByName('test').AsVariant;
ｿｽ@ｿｽ@AS := StringReplace(wk_WS,#$301C,#$FF5E,[rfReplaceAll]);
ｿｽ@ｿｽ@
ｿｽ@ｿｽ@showmessage(ADOQuery1.FieldByName('text').AsString);
ｿｽ@ｿｽ@ADOQuery1.Next;
ｿｽ@end;
ｿｽ@ADOQuery1.Close;
end;
ｿｽｿｽｿｽﾊ：DBｿｽｿｽ ｿｽｿｽ ShowMessage
ｿｽ@ｿｽEｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾋ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽuｿｽｿｽｿｽ`ｿｽｿｽｿｽvｿｽﾋ「ｿｽｿｽｿｽ`ｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽuｿｽｿｽ?ｿｽｿｽｿｽv ｿｽﾋ「ｿｽｿｽｿｽ`ｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽu? / ｿｽ`ｿｽvｿｽﾋ「ｿｽ` / ｿｽ`ｿｽv
ｿｽ@ｿｽEｿｽuｿｽ` / ?ｿｽvｿｽﾋ「ｿｽ` / ｿｽ`ｿｽv
DEKO 2008/04/03(ｿｽｿｽ) 15:20:51
StringReplaceｿｽｿｽWideStringｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
# WideStringｿｽｿｽﾋゑｿｽｿｽｿｽｿｽﾞと暗黙的ｿｽｿｽAnsiｿｽﾏ奇ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽ
# ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾗてゑｿｽ?ｿｽｿｽｿｽ`ｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
WideStringｿｽｿｽforｿｽﾅ回すなりしｿｽﾄ趣ｿｽｿｽOｿｽﾅ置ｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
var
i:Integer;
A: String;
WS: WideString;
begin
WS := (ｿｽｿｽｿｽｿｽ);
for i:=1 to Length(WS) do
if WS[i] = #$301C then
WS[i] := #$FF5E;
A := WS;
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
>Oracleｿｽﾌ「ｿｽ`ｿｽvｿｽﾆ「?ｿｽvｿｽﾍ「#$301Cｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽH
>ｿｽu?ｿｽvｿｽﾍ「#$FF1Fｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
SHIFT-JISｿｽｿｽ"ｿｽ`"ｿｽﾍ波ｿｽ_ｿｽbｿｽVｿｽｿｽ(8160:#$301C)ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWindowsｿｽﾍゑｿｽｿｽｿｽｿｽSｿｽpｿｽ`ｿｽｿｽｿｽ_(#$FF5E)ｿｽﾉ奇ｿｽｿｽ闢厄ｿｽﾄてゑｿｽｿｽﾜゑｿｽｿｽB
UnicodeｿｽｿｽｿｽｿｽSHIFT-JISｿｽﾖ変奇ｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽ#$FF5Eｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽJISｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟ、
ｿｽﾏ奇ｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ托ｿｽﾖ包ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ設定さｿｽｿｽﾄゑｿｽｿｽｿｽ"ｿｽH(#$FF1F)"ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾉゑｿｽ 2008/04/03(ｿｽｿｽ) 15:34:57
ｿｽｿｽｿｽｿｽｿｽ邇ｸｿｽｿｽ
ｿｽﾂ具ｿｽｿｽｿｽVistaｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾌ場合ｿｽｿｽ
WS:WideString;
WS := ADOQuery1.fieldByName('test').AsVariant;
showmessage(WS);
ｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Oracle,WindowsｿｽﾌどゑｿｽｿｽｿｽｿｽSHIFT-JISｿｽﾏ奇ｿｽｿｽｿｽｿｽ驍ｩｿｽﾌ厄ｿｽｿｽﾌようｿｽﾉ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾉゑｿｽ 2008/04/03(ｿｽｿｽ) 15:39:51
ｿｽｿｽｿｽ[ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾟなゑｿｽﾅゑｿｽｿｽﾋ。
ｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆには奇ｿｽｿｽoｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈ；ｿｽG
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽ
DEKO 2008/04/03(ｿｽｿｽ) 16:04:32
Oracleｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ(ｿｽｿｽｿｽｿｽ)ｿｽgｿｽ_ｿｽbｿｽVｿｽｿｽ(8160:#$301C)ｿｽﾈのでゑｿｽｿｽB
# Unicodeｿｽﾅ格ｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽString(AsString)ｿｽﾅ趣ｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆ、WindowsｿｽｿｽUnicodeｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
Windowsｿｽｿｽ"ｿｽ`ｿｽｿｽｿｽSｿｽpｿｽ`ｿｽｿｽｿｽ_(#$FF5E)"ｿｽﾆゑｿｽｿｽｿｽｿｽFｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
#$301Cｿｽｿｽｿｽﾏ奇ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾉ托ｿｽﾖ包ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ"ｿｽH"ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
# ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ、ｿｽXｿｽ‾ｿｽ}ｿｽZｿｽｿｽｿｽB
var
A: String;
W: WideString;
begin
W := #$301C;
A := W;
WｿｽｿｽTextOutWｿｽｿｽｿｽﾅ抵ｿｽｿｽﾚ描ｿｽ謔ｷｿｽｿｽﾎ波ｿｽ_ｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽ`ｿｽ謔ｳｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
Aｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"ｿｽH"ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ痰ｩ 2008/04/03(ｿｽｿｽ) 17:33:42
DEKOｿｽl
ｿｽｿｽﾉゑｿｽl
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ痰ｩｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽ動ｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ告致ｿｽｿｽｿｽﾜゑｿｽｿｽB
>>DEKOｿｽl
ｿｽQｿｽlｿｽyｿｽ[ｿｽWｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾜでコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
UNICODEｿｽﾌ会ｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>>ｿｽｿｽﾉゑｿｽl
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾘゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽ
ｿｽﾜゑｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾌ厄ｿｽｿｽﾌ為にソｿｽ[ｿｽXｿｽｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽFｿｽlｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇ暦ｿｽｿｽlｿｽlｿｽMｿｽdｿｽﾈスｿｽyｿｽ[ｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
//--------------------------------------------------------
//ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽX
//--------------------------------------------------------
(* ｿｽﾂ具ｿｽ
ｿｽ@ｿｽ@ｿｽ@ｿｽEWindows Vista Bussiness
ｿｽ@ｿｽ@ｿｽ@ｿｽEDelphi 7 Professinal
ｿｽ@ｿｽ@ｿｽ@ｿｽEOracle 10g
*)
{ ｿｽﾖ撰ｿｽｿｽ骭ｾ }
//ｿｽuｿｽ`ｿｽvｿｽｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽﾖ撰ｿｽｿｽ@ｿｽiｿｽu#$301Cｿｽv ｿｽｿｽ ｿｽu#$FF5Eｿｽvｿｽj
function F_WaveDashReplace(WS : WideString): String;
ｿｽo ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽ ｿｽp
//=================================================
// ｿｽuｿｽ`ｿｽvｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽ
//=================================================
function TForm1.F_WaveDashReplace(WS : WideString): String;
var
ｿｽ@i : Integer;
begin
ｿｽ@for i := 1 to Length(WS) do
ｿｽ@begin
ｿｽ@ｿｽ@if WS[i] = #$301C then
ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@WS[i] := #$FF5E;
ｿｽ@ｿｽ@end;
ｿｽ@end;
ｿｽ@result := WS;
end;
//-----------------------------------------
// ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ
//-----------------------------------------
ｿｽ@ADOQuery1.SQL.Clear;
ｿｽ@ADOQuery1.SQL.Add('select * from test');
ｿｽ@ADOQuery1.Open;
ｿｽ@while ADOQuery1.Eof = False do
ｿｽ@begin
ｿｽ@//showmessage(ADOQuery1.FieldByName('text').AsString); ｿｽｿｽ ｿｽｿｽｿｽﾌままでは「ｿｽ`ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽu?ｿｽvｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@showmessage(F_WaveDashReplace(ADOQuery1.fieldByName('text').AsVariant))
ｿｽ@ｿｽ@ADOQuery1.Next;
ｿｽ@end;
ｿｽ@ADOQuery1.Close;
end;
ｿｽｿｽｿｽﾊ：DBｿｽｿｽ ｿｽｿｽ ShowMessage
ｿｽ@ｿｽEｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾋ「ｿｽｿｽｿｽｿｽｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽuｿｽｿｽｿｽ`ｿｽｿｽｿｽvｿｽﾋ「ｿｽｿｽｿｽ`ｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽuｿｽｿｽ?ｿｽｿｽｿｽv ｿｽﾋ「ｿｽｿｽ?ｿｽｿｽｿｽv
ｿｽ@ｿｽEｿｽu? / ｿｽ`ｿｽvｿｽﾋ「? / ｿｽ`ｿｽv
ｿｽ@ｿｽEｿｽuｿｽ` / ?ｿｽvｿｽﾋ「ｿｽ` / ?ｿｽv
