名前
題名
▼ 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; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link