Как удалить пробелы из строки на delphi?

1

NewString := StringReplace(OldString, ' ', '', [rfReplaceAll, rfIgnoreCase]);

1
2
3
4
5
6
7

var
  myString: string;
begin
  myString := '  Hello World!  '; // исходная строка с пробелами
  myString := Trim(myString);    // удаляем пробелы
  ShowMessage(myString);         // выводим результат
end;

1
2
3
4
5
6
7

var
  myString: string;
begin
  myString := 'He llo Wor ld!';     // исходная строка с пробелами
  myString := StringReplace(myString, ' ', '', [rfReplaceAll]); // удаляем все пробелы
  ShowMessage(myString);           // выводим результат
end;