нужно убрать пробелы

[lezgin]

здрасте. у меня в edit1 любой текст . Как между этими словами убрать пробелы ?

[FaTaL]

Пройдись циклом по строке и если символ равен пробелу, то удали его и всё или используй функцию StringReplace

[lezgin]

Сообщение от FaTaL

Пройдись циклом по строке и если символ равен пробелу, то удали его и всё или используй функцию StringReplace

А можно поподробнее? Например: у меня в edit есть текст любой например internet, net work. Как между ними убрать пробелы?

[beegl]

procedure TForm1.DelSpac;
var
  i: Integer;
begin
  if Length(str) = 0 then
  begin
    DelSpaces := str;
    Exit;
  end;
  for i := 1 to length(str) do
  begin
    if pos(' ', str) = 1 then
      delete(str, 1, 1)
    else
    begin
      DelSpaces := str;
      Break;
    end;
  end;
end;

Пример использования:

Str := DelSpaces(Str);

[Аватар]

Str:=StringReplace(Str,' ','',rfReplaceAll);

Отлично заменит все из предыдущего поста (которое работать не будет).

Топикастеру - F1 никто не отменял

[lezgin]

не работает. другие способы нету да? Неужели это такая сложная функция. нигде не нашел ее

[BDA]

Вы бы указали ошибки, которые выдаются при компиляции.
Попробуйте так (у меня работает):

Edit1.Text := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);

[FaTaL]

Сообщение от lezgin

Неужели это такая сложная функция. нигде не нашел ее

Я же дал ссылку на описание этой функции в первом своём посте.

[XerSon]

Сообщение от FaTaL

Я же дал ссылку на описание этой функции в первом своём посте.

ы))) Если бы тебя кто нибудь услышал, прут в своем направлении и не оборачиваются!

[mosq]

Сообщение от lezgin

здрасте. у меня в edit1 любой текст . Как между этими словами убрать пробелы ?

while pos(' ',s)>0 do delete(s,pos(' ',s),1);

удалит все пробелы в строке s