お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





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

"文字列の後ろのスペースを削除する"

この発言に対し以下のコメントが寄せられています
#00144 あほうどり さん RE:文字列の後ろのスペースを削除する

文字列の後ろからスペースを削除する関数です。 全角スペースにも対応しています。(つもりです...。) function BackSpace(S: string): string; const JSPC1 = Chr(81); JSPC2 = Chr(40); var l,i : word; begin l := 0; i := 1; while i <= Length(S) do begin if IsDBCSLeadByte(byte(S[i])) and (S[i] = JSPC1) and (S[i+1] = JSPC2) then i := i + 2 // 全角スペース else if S[i] = ' ' then inc(i) else if IsDBCSLeadByte(byte(S[i])) then // 半角スペース begin inc(i,2); l := i-1; end else begin inc(i); l := i-1; end; end; // while Result := Copy(S,1,l); end; 牧原博司 QZS03450 - 97年10月29日 (Wed) 22時01分 - Original document by 牧原 博司   氏 ID:(QZS03450)



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

Copyright 1996-2002 Delphi Users' Forum