この発言は
#00136　牧原　博司　　　さんの文字列の後ろのスペースを削除する
に対するコメントです





#00136
>const
>  JSPC1 = Chr(81);  JSPC2 = Chr(40);

  const
    JSPC1 = #$81; JSPC2 = #$40;

  ですね。そこで Delphi 3 専用ということでこんな方法もあります。

function MyTrimRight(S: String): String;
begin
  while (AnsiLastChar(PChar(S)) = #$81#$40) or
        (AnsiLastChar(PChar(S)) = #$20)     do begin
    if AnsiLastChar(PChar(S)) = #$81#$40 then
      Delete(S, Length(S)-1, 2);
    S := TrimRight(S);
  end;
  Result := S;
end;

                                                           あほうどり

Original document by あほうどり      氏 ID:(GGA00167)

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