string - 文字列からスペースを削除するにはどうすればよいですか?

Question

文字列値からスペースを削除したい。たとえば、 にsString := 'Hello my name is BobなるはずsString := 'HellomynameisBobです。

while ループを使用してみました:

iPos := pos(' ', sString);
while iPos > 0 do
Delete(sString,iPos,1);

しかし、プログラムはフリーズするだけです。

Answer 1

iPosループ内で をインクリメントしないため、プログラムがフリーズします。

SysUtils最も簡単な解決策は、次のように- StringReplace( reference )で宣言された Delphi 関数を使用することです。

newStr := StringReplace(srcString, ' ', '', [rfReplaceAll]); //Remove spaces