31.05.2007, 15:51
|
 |
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'Строка с пробелами';
ShowMessage( StringReplace( s, ' ', '', [rfReplaceAll] ) );
end; |