|
2007/8/8 (水) 19:25:20 taka |
▼ Nullさん
> ▼ takaさん、 Nullです。
>
>
> > そこのリンクをたどったら載っていました
> > http://wiki.lazarus.freepascal.org/Lazarus_Faq/ja
> > http://wiki.lazarus.freepascal.org/File_size_and_smartlinking/ja
>
> ステキな情報有り難う御座います。
> 早速、オプションの設定を探って見ます。
>
>
> ところで、
> >> http://wiki.lazarus.freepascal.org/Lazarus_Documentation/ja
> での情報(Documentation)量は凄いですね。
>
> 目的の資料を探すのに結構時間がかかります！！。
> エッ、もしかして私だけ？？。要領が悪いのかな！！。
>
> Linux版 Lazarusの進展にも大いに期待したいですね。
レンタルサーバーで動作させたいものがあったので
C言語使いたくないので
Freepascalで作って きがついたことがありますので
参考にどうぞ
Lazarus 全角文字を含むコメント{} // でエラー
原因
IDEがマルチバイトに対応していないため
対策
エラーがでたときは、 (* *) のコメントに変更することでほとんど回避できます
対象の文字
{
＋ ボ к 閲 顎 宮 鶏
砿 施 旬 須 捜 怒 倍
府 本 養 几
}
± マ 笠 急 迎 枝 図
挿 筑 党 媒 扶 凡 抑
など
他の文字は下のコードで確認できます。
procedure TForm1.Button1Click(Sender: TObject);
var i, x :integer;
const
ch : array[0..1] of char = ('{','}');
begin
// ascii -127
for x := 0 to 1 do
begin
Memo1.Lines.Add('---- : '+ch[x]);
for i:= 128 to 255 do
begin
if ($A0 <=i)and (i <= $DF) then continue; // 半_kana
if (byte(ch[x]) shl 8) + i < $F040 then
Memo1.Lines.Add(ch[x]+Char(i));
// $F040 > 外字 ?
if (i shl 8)+byte(ch[x]) < $F040 then
if (Char(i) in [#$81..#$9F,#$E0..#$FF]) then
Memo1.Lines.Add(Char(i)+ch[x]);
end;
end;
end;
|
|