Аналог функции Trim-удаление лишних пробелов в начале и в конце передаваемой строки

[GULINA]

Работа со строками.Написать аналог функции Trim-удаление лишних пробелов в начале и в конце передаваемой строки.

[Пепел Феникса]

Function Trimmer(s:string):string;
begin
 while s[1]=' ' do Delete(s,1,1);
 while s[length(s)=' ' Delete(s.1,1);
end;

должно работать

[ArtInt]

А если пробелов больше в начале и конце больше 1, то можно примено так:

var
  str: string;
  i: Integer;
begin
  str:='         строка без пробелов в начале и конце   ';
  i:=0;
  repeat
  if str[i]= ' ' then
  begin
    str:=copy(str, (i+1)+1,length(str)-(i+1));
 
  end;
  i:=i+1;
  until str[i]<>' ';

   i:=length(str)-1;

  repeat
    if str[i]= ' ' then
    begin
      str:=copy(str,length(str)-i,i-1);
 
    end;
  i:=i-1;
  until str[i]<>' ';

//  Memo1.Text:=str;

end;

Не самый оптимальный вариант, но зато рабочий.

[Пепел Феникса]

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

А если пробелов больше в начале и конце больше 1

ты хочешь сказать что то что я написал удаляет только по одному символу?!!!?

[ArtInt]

Сказать честно, когда смотрел код показалось, что там вместо while стоит if. Это наверное потому что там по моему опечатки есть (do отсутствует например).
Вот как исправил код

 while s[1]=' ' do
 Delete(s,1,1);

 while s[length(s)]=' ' do
 Delete(s,length(s),1);

В последней строчке вместо 1 наверное все таки length(s) должно быть, а так по логике все правильно.
Но странно, почему то когда оформляю как функцию не работает или выводит ошибку? А так без функции все работает, пока не понял с чем это связано, может Дельфи глючит.

[Пепел Феникса]

ArtInt, да немного упустил, спасибо за то что тыкнул

вот исправил все:

Function Trimmer(s:string):string;
begin
 while s[1]=' ' do Delete(s,1,1);
 while s[length(s)]=' ' do Delete(s,length(s),1);
 Result:=s;
end;

[Alter]

Вот, измените имя функции и всё:

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Result := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;

Подсказка: Ctrl + Левая_Кнопка_Мыши