この発言に対し以下のコメントが寄せられています

#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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。