お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





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

"文字列の左から指定文字数を切り出す"

この発言に対し以下のコメントが寄せられています
#00467 Fermion さん RE:文字列の左から...

■説明  パラメータとして渡された文字列の左より空白を除いた指定文字数を 取り出す関数です。(全角、半角に対応しています。) ■サンプルコード //===================================================================== function StrLeft( const Str: String; Count: Integer ): String; var i, Max: Integer; begin Result := ''; i := 1; Max := Length( Str ); while ( i <= Max ) and ( Count > 0 ) do begin if Windows.IsDBCSLeadByte( Byte( Str[i] ) ) then begin if Str[i] + Str[i+1] <> ' ' then begin Result := Result + Str[i] + Str[i+1]; Dec( Count ); end; Inc( i ); end else if Str[i] <> ' ' then begin Result := Result + Str[i]; Dec( Count ); end; Inc(i); end; end; //===================================================================== 98/03/21(土) 01:55 Fermion(KHF03264) Original document by Fermion 氏 ID:(KHF03264)



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

Copyright 1996-2002 Delphi Users' Forum