名前
題名
▼ Syakeさん > いろいろありがとうございます。m(__)m > > 取り敢えず > > function XXXXXX.XpManChk: TXPMan; > var > ObjMem :TMemo; > RetLen,RetSel :Integer; > begin > ObjMem := TMemo.Create(Application); > try > ObjMem.Parent := Self; > ObjMem.Text := 'あ'; > ObjMem.SelStart := Length(ObjMem.Text); > RetLen := Length(ObjMem.Text); > RetSel := ObjMem.SelStart; > if RetSel <> RetLen then > begin > Result := ManOn; > end else begin > Result := ManNon; > end; > finally > ObjMem.Free; > end; > end; > > とうい、強引ともいえる判定方法で切り抜けますか？ > 学が無いので、この程度しか思いつきませんでした(;_;)
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link