掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Trim関数で大文字スペースもTrim対象にしたい (ID：14328)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さきほどのソースは、凡ミスだらけでした。 修正したソースです。いい感じで動いてます。 木星人様、deldel様のソースを参考に作りました。 他の皆様もご指摘ありがとうございました。 {*** 以下ソース ***} function TForm1.TrimMB(const S: string): string; var tmpS: String; begin tmpS := S; while (Copy(tmpS, 1, 1) = ' ') or (Copy(tmpS, 1, 2) = ' ') do begin if Copy(tmpS, 1, 1) = ' ' then tmpS := Copy(tmpS, 2, Length(tmpS)); if Copy(tmpS, 1, 2) = ' ' then tmpS := Copy(tmpS, 3, Length(tmpS)); end; while (Copy(tmpS, Length(tmpS), 1) = ' ') or (Copy(tmpS, Length(tmpS) -1, 2) = ' ') do begin if Copy(tmpS, Length(tmpS), 1) = ' ' then tmpS := Copy(tmpS, 1, Length(tmpS) - 1); if Copy(S, Length(S) - 1, 2) = ' ' then tmpS := Copy(tmpS, 1, Length(tmpS) - 2); end; Result := tmpS; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.