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

[Stilet]

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

StringReplace() сейчас в моде

[Develop]

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

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

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

очень элегантный способ!!!

но все же я написал бы так:

n:= Length(str);
res:= '';
for i:=1 to n do
  if str[i] <> ' ' then
    res:= res + str[i];

[phomm]

Вариант с while pos плох тем, что каждый раз проверка строки снова - если строка состорит из тысячи символов а пробелов штук 100 в конце , то она прочтет строку 100 тысяч раз посимвольно. Пример, конечно, утрирован, но уже означает, что неуниверсальный алгоритм - сильно гуляет его сложность.
Пример с for res := res +str[i] тоже плохой, на строках высоких длин количество переаллокаций памяти под них будет удручающе - в таких случаях лучше заранее разаллоцировать строку, например, setlength'ом и в неё лить символы, а в конце обрезать по нужную длину.

[artemavd]

Ответ уже дан: StringReplace
Хватит уже разводить тему на несколько страниц!
Закрыто.