お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"文字数を返すfunction"

この発言に対し以下のコメントが寄せられています
#00421 Atelier Macchan さん RE:文字数を返すfunction
#00442 Fermion さん [D2〜]文字数を返すfunction

2バイト文字/1バイト文字を正しくカウントしてバイト数ではなく文字数を 返すfunctionです。 function mojisu(text:string):integer; var i:integer; begin result:=0; for i:=1 to Length(Text) do begin case ByteType(Text,i) of mbSingleByte: begin inc(result); end; mbLeadByte: begin //何もしなくて良い。(^^; end; mbTrailByte: begin inc(result); end; end; end; end; ☆☆☆ わからないときサンプル蔵 わかったときサンプル蔵 ☆☆☆ 98/03/05(木) 23:48 凛(MXB01744) Original document by 凛 氏 ID:(MXB01744)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum